The following lines contain the word 'select', 'insert', 'update' or 'delete':
/* Insert_FormulaDetail */
/* */
/* DESCRIPTION: */
/* This PL/SQL procedure is responsible for inserting a formula. */
/* ======================================================================== */
PROCEDURE Insert_FormulaHeader
( p_api_version IN NUMBER
,p_init_msg_list IN VARCHAR2
,p_commit IN VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
,p_formula_header_rec IN FM_FORM_MST%ROWTYPE
)
IS
/* Local Variables definitions */
l_api_name CONSTANT VARCHAR2(30) := 'INSERT_FORMULAHEADER';
select user_ind, responsibility_ind
from gmd_security_control
where organization_id = vOrgn_id
and object_type = 'F';
select 1, other_organization_id
from gmd_security_profiles
where organization_id = vOrgn_id
and assign_method_ind = 'M'
and access_type_ind = 'U'
and user_id = fnd_global.user_id;
select 1, other_organization_id
from gmd_security_profiles
where organization_id = vOrgn_id
and assign_method_ind = 'M'
and access_type_ind = 'U'
and responsibility_id = fnd_global.resp_id;
SAVEPOINT Insert_FormulaHeader_PVT;
/* Insert calls the mls package */
/* New changes to include MLS */
/* This package inserts into the and table. */
/* is a view of the <_b> and <_tl> table. */
/* currently we have no relationship between the */
/* fm_form_mst and vl table. However at a later time fm_form_mst will */
/* be a compatible synonym of this view. */
IF (l_debug = 'Y') THEN
gmd_debug.put_line(' ');
INSERT INTO GMD_FORMULA_SECURITY
(formula_security_id,
formula_id,
access_type_ind,
organization_id,
user_id,
responsibility_id,
other_organization_id,
created_by,
creation_date,
last_update_date,
last_updated_by,
last_update_login)
VALUES
(gmd_formula_security_id_s.NEXTVAL,
p_formula_header_rec.formula_id,
'U',
p_formula_header_rec.owner_organization_id,
p_formula_header_rec.created_by,
NULL,
l_other_orgn_id,
p_formula_header_rec.created_by,
SYSDATE,
SYSDATE,
p_formula_header_rec.created_by,
p_formula_header_rec.last_update_login);
INSERT INTO GMD_FORMULA_SECURITY
(formula_security_id,
formula_id,
access_type_ind,
organization_id,
user_id,
responsibility_id,
other_organization_id,
created_by,
creation_date,
last_update_date,
last_updated_by,
last_update_login)
VALUES
(gmd_formula_security_id_s.NEXTVAL,
p_formula_header_rec.formula_id,
'U',
p_formula_header_rec.owner_organization_id,
NULL,
fnd_global.resp_id,
l_other_orgn_id,
p_formula_header_rec.created_by,
SYSDATE,
SYSDATE,
p_formula_header_rec.created_by,
p_formula_header_rec.last_update_login);
ROLLBACK to Insert_FormulaHeader_PVT;
'Insert_Formula_Header');
gmd_debug.put_line(' In formula header Pvt - About to insert fm id = '
||p_formula_header_rec.formula_id);
FM_FORM_MST_MLS.INSERT_ROW(
X_ROWID => formula_rowid,
X_FORMULA_ID => p_formula_header_rec.formula_id,
X_MASTER_FORMULA_ID => p_formula_header_rec.master_formula_id,
X_OWNER_ORGANIZATION_ID => p_formula_header_rec.owner_organization_id,
X_TOTAL_INPUT_QTY => p_formula_header_rec.total_input_qty,
X_TOTAL_OUTPUT_QTY => p_formula_header_rec.total_output_qty,
X_YIELD_UOM => p_formula_header_rec.yield_uom,
X_FORMULA_STATUS => p_formula_header_rec.formula_status,
X_OWNER_ID => p_formula_header_rec.owner_id,
X_PROJECT_ID => NULL,
X_TEXT_CODE => p_formula_header_rec.text_code,
X_DELETE_MARK => p_formula_header_rec.delete_mark,
X_FORMULA_NO => p_formula_header_rec.formula_no,
X_FORMULA_VERS => p_formula_header_rec.formula_vers,
X_FORMULA_TYPE => p_formula_header_rec.formula_type,
X_IN_USE => p_formula_header_rec.in_use,
X_INACTIVE_IND => p_formula_header_rec.inactive_ind,
X_SCALE_TYPE => p_formula_header_rec.scale_type,
X_FORMULA_CLASS => p_formula_header_rec.formula_class,
X_FMCONTROL_CLASS => p_formula_header_rec.fmcontrol_class,
X_ATTRIBUTE_CATEGORY => p_formula_header_rec.attribute_category,
X_ATTRIBUTE1 => p_formula_header_rec.attribute1,
X_ATTRIBUTE2 => p_formula_header_rec.attribute2,
X_ATTRIBUTE3 => p_formula_header_rec.attribute3,
X_ATTRIBUTE4 => p_formula_header_rec.attribute4,
X_ATTRIBUTE5 => p_formula_header_rec.attribute5,
X_ATTRIBUTE6 => p_formula_header_rec.attribute6,
X_ATTRIBUTE7 => p_formula_header_rec.attribute7,
X_ATTRIBUTE8 => p_formula_header_rec.attribute8,
X_ATTRIBUTE9 => p_formula_header_rec.attribute9,
X_ATTRIBUTE10 => p_formula_header_rec.attribute10,
X_ATTRIBUTE11 => p_formula_header_rec.attribute11,
X_ATTRIBUTE12 => p_formula_header_rec.attribute12,
X_ATTRIBUTE13 => p_formula_header_rec.attribute13,
X_ATTRIBUTE14 => p_formula_header_rec.attribute14,
X_ATTRIBUTE15 => p_formula_header_rec.attribute15,
X_ATTRIBUTE16 => p_formula_header_rec.attribute16,
X_ATTRIBUTE17 => p_formula_header_rec.attribute17,
X_ATTRIBUTE18 => p_formula_header_rec.attribute18,
X_ATTRIBUTE19 => p_formula_header_rec.attribute19,
X_ATTRIBUTE20 => p_formula_header_rec.attribute20,
X_ATTRIBUTE21 => p_formula_header_rec.attribute21,
X_ATTRIBUTE22 => p_formula_header_rec.attribute22,
X_ATTRIBUTE23 => p_formula_header_rec.attribute23,
X_ATTRIBUTE24 => p_formula_header_rec.attribute24,
X_ATTRIBUTE25 => p_formula_header_rec.attribute25,
X_ATTRIBUTE26 => p_formula_header_rec.attribute26,
X_ATTRIBUTE27 => p_formula_header_rec.attribute27,
X_ATTRIBUTE28 => p_formula_header_rec.attribute28,
X_ATTRIBUTE29 => p_formula_header_rec.attribute29,
X_ATTRIBUTE30 => p_formula_header_rec.attribute30,
X_FORMULA_DESC1 => p_formula_header_rec.formula_desc1,
X_FORMULA_DESC2 => p_formula_header_rec.formula_desc2,
X_CREATION_DATE => p_formula_header_rec.creation_date,
X_CREATED_BY => p_formula_header_rec.created_by,
X_LAST_UPDATE_DATE => p_formula_header_rec.last_update_date,
X_LAST_UPDATED_BY => p_formula_header_rec.last_updated_by,
X_LAST_UPDATE_LOGIN => p_formula_header_rec.last_update_login,
-- Bug# 5716318
X_AUTO_PRODUCT_CALC => NVL(p_formula_header_rec.auto_product_calc,'N'));
gmd_debug.put_line(' In formula header Pvt - After fm insert row_id = '
||formula_rowid);
ROLLBACK to Insert_FormulaHeader_PVT;
ROLLBACK to Insert_FormulaHeader_PVT;
ROLLBACK to Insert_FormulaHeader_PVT;
fnd_msg_pub.add_exc_msg ('GMD_FORMULA_HEADER_PVT', 'Insert_Formula_Header');
END Insert_FormulaHeader;
/* Update_FormulaHeader */
/* */
/* DESCRIPTION: */
/* This PL/SQL procedure is responsible for updating a formula. */
/* ======================================================================== */
PROCEDURE Update_FormulaHeader
( p_api_version IN NUMBER
,p_init_msg_list IN VARCHAR2
,p_commit IN VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
,p_formula_header_rec IN fm_form_mst%ROWTYPE
)
IS
/* Local Variables definitions */
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FORMULAHEADER';
SAVEPOINT Update_FormulaHeader_PVT;
/* Call the Update_row procedure for mls */
/* To modify to call the approp variables */
IF (l_debug = 'Y') THEN
gmd_debug.put_line(' In Formula Header Pvt - Before updating fm_form_mst table '
||p_formula_header_rec.formula_id);
FM_FORM_MST_MLS.UPDATE_ROW(
X_FORMULA_ID => p_formula_header_rec.formula_id,
X_OWNER_ORGANIZATION_ID => p_formula_header_rec.owner_organization_id,
X_TEXT_CODE => p_formula_header_rec.text_code,
X_DELETE_MARK => p_formula_header_rec.delete_mark,
X_TOTAL_INPUT_QTY => p_formula_header_rec.total_input_qty,
X_PROJECT_ID => null,
X_TOTAL_OUTPUT_QTY => p_formula_header_rec.total_output_qty,
X_YIELD_UOM => p_formula_header_rec.yield_uom,
X_FORMULA_STATUS => p_formula_header_rec.formula_status,
X_OWNER_ID => p_formula_header_rec.owner_id,
X_FORMULA_NO => p_formula_header_rec.formula_no,
X_FORMULA_VERS => p_formula_header_rec.formula_vers,
X_FORMULA_TYPE => p_formula_header_rec.formula_type,
X_IN_USE => p_formula_header_rec.in_use,
X_INACTIVE_IND => p_formula_header_rec.inactive_ind,
X_SCALE_TYPE => p_formula_header_rec.scale_type,
X_FORMULA_CLASS => p_formula_header_rec.formula_class,
X_FMCONTROL_CLASS => p_formula_header_rec.fmcontrol_class,
X_ATTRIBUTE_CATEGORY => p_formula_header_rec.attribute_category,
X_ATTRIBUTE1 => p_formula_header_rec.attribute1,
X_ATTRIBUTE2 => p_formula_header_rec.attribute2,
X_ATTRIBUTE3 => p_formula_header_rec.attribute3,
X_ATTRIBUTE4 => p_formula_header_rec.attribute4,
X_ATTRIBUTE5 => p_formula_header_rec.attribute5,
X_ATTRIBUTE6 => p_formula_header_rec.attribute6,
X_ATTRIBUTE7 => p_formula_header_rec.attribute7,
X_ATTRIBUTE8 => p_formula_header_rec.attribute8,
X_ATTRIBUTE9 => p_formula_header_rec.attribute9,
X_ATTRIBUTE10 => p_formula_header_rec.attribute10,
X_ATTRIBUTE11 => p_formula_header_rec.attribute11,
X_ATTRIBUTE12 => p_formula_header_rec.attribute12,
X_ATTRIBUTE13 => p_formula_header_rec.attribute13,
X_ATTRIBUTE14 => p_formula_header_rec.attribute14,
X_ATTRIBUTE15 => p_formula_header_rec.attribute15,
X_ATTRIBUTE16 => p_formula_header_rec.attribute16,
X_ATTRIBUTE17 => p_formula_header_rec.attribute17,
X_ATTRIBUTE18 => p_formula_header_rec.attribute18,
X_ATTRIBUTE19 => p_formula_header_rec.attribute19,
X_ATTRIBUTE20 => p_formula_header_rec.attribute20,
X_ATTRIBUTE21 => p_formula_header_rec.attribute21,
X_ATTRIBUTE22 => p_formula_header_rec.attribute22,
X_ATTRIBUTE23 => p_formula_header_rec.attribute23,
X_ATTRIBUTE24 => p_formula_header_rec.attribute24,
X_ATTRIBUTE25 => p_formula_header_rec.attribute25,
X_ATTRIBUTE26 => p_formula_header_rec.attribute26,
X_ATTRIBUTE27 => p_formula_header_rec.attribute27,
X_ATTRIBUTE28 => p_formula_header_rec.attribute28,
X_ATTRIBUTE29 => p_formula_header_rec.attribute29,
X_ATTRIBUTE30 => p_formula_header_rec.attribute30,
X_FORMULA_DESC1 => p_formula_header_rec.formula_desc1,
X_FORMULA_DESC2 => p_formula_header_rec.formula_desc2,
X_LAST_UPDATE_DATE => p_formula_header_rec.last_update_date,
X_LAST_UPDATED_BY => p_formula_header_rec.last_updated_by,
X_LAST_UPDATE_LOGIN => p_formula_header_rec.last_update_login,
-- Bug# 5716318
X_AUTO_PRODUCT_CALC => p_formula_header_rec.auto_product_calc);
ROLLBACK to Update_FormulaHeader_PVT;
ROLLBACK to Update_FormulaHeader_PVT;
ROLLBACK to Update_FormulaHeader_PVT;
fnd_msg_pub.add_exc_msg ('GMD_FORMULA_HEADER_PVT', 'Update_Formula_Header');
END Update_FormulaHeader;