The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT cust_acct.cust_account_id, site.site_use_id, site.org_id
FROM hz_parties party,
hz_cust_accounts cust_acct,
hz_cust_acct_sites_all acct_site,
hz_cust_site_uses_all site,
hz_party_sites party_site,
hz_locations loc
WHERE acct_site.cust_account_id=cust_acct.cust_account_id
and cust_acct.party_id=party.party_id
and site.site_use_code='SHIP_TO'
and site.cust_acct_site_id=acct_site.cust_acct_site_id
and acct_site.status='A'
and site.cust_acct_site_id=acct_site.cust_acct_site_id
and acct_site.party_site_id=party_site.party_site_id
and party_site.location_id=loc.location_id
and party.party_number = UPPER(pcustomer_no);
SELECT cust_acct.cust_account_id
FROM hz_parties party,
hz_cust_accounts cust_acct,
hz_cust_acct_sites_all acct_site,
hz_cust_site_uses_all site,
hz_party_sites party_site,
hz_locations loc
where acct_site.cust_account_id=cust_acct.cust_account_id
and cust_acct.party_id=party.party_id
and site.site_use_code='SHIP_TO'
and site.cust_acct_site_id=acct_site.cust_acct_site_id
and acct_site.status='A'
and site.cust_acct_site_id=acct_site.cust_acct_site_id
and acct_site.party_site_id=party_site.party_site_id
and party_site.location_id=loc.location_id
and (cust_acct.cust_account_id = p_customer_id OR party.party_number = UPPER(p_customer_no));
SELECT site.site_use_id
FROM hz_parties party,
hz_cust_accounts cust_acct,
hz_cust_acct_sites_all acct_site,
hz_cust_site_uses_all site,
hz_party_sites party_site,
hz_locations loc
where acct_site.cust_account_id=cust_acct.cust_account_id
and cust_acct.party_id=party.party_id
and site.site_use_code='SHIP_TO'
and site.cust_acct_site_id=acct_site.cust_acct_site_id
and acct_site.status='A'
and site.cust_acct_site_id=acct_site.cust_acct_site_id
and acct_site.party_site_id=party_site.party_site_id
and party_site.location_id=loc.location_id
and site.site_use_id = p_site_id
and (cust_acct.cust_account_id = p_customer_id OR party.party_number = UPPER(p_customer_no));
SELECT site.org_id
FROM hz_parties party,
hz_cust_accounts cust_acct,
hz_cust_acct_sites_all acct_site,
hz_cust_site_uses_all site,
hz_party_sites party_site,
hz_locations loc
where acct_site.cust_account_id=cust_acct.cust_account_id
and cust_acct.party_id=party.party_id
and site.site_use_code='SHIP_TO'
and site.cust_acct_site_id=acct_site.cust_acct_site_id
and acct_site.status='A'
and site.cust_acct_site_id=acct_site.cust_acct_site_id
and acct_site.party_site_id=party_site.party_site_id
and party_site.location_id=loc.location_id
and site.org_id = p_org_id
and (cust_acct.cust_account_id = p_customer_id OR party.party_number = UPPER(p_customer_no));
/* no SAVEPOINT needed because there is no insert/update/delete */
IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
l_api_name, G_PKG_NAME) THEN
RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
/* no standard check of p_commit because no insert/update/delete */
/* standard call to get msge cnt, and if cnt is 1, get mesg info */
FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
SELECT user_id
FROM fnd_user
WHERE user_id = p_user_id;
/* no SAVEPOINT needed because there is no insert/update/delete */
IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
l_api_name, G_PKG_NAME) THEN
RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
/* no standard check of p_commit because no insert/update/delete */
/* standard call to get msge cnt, and if cnt is 1, get mesg info */
FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
SELECT Distinct status_code, Meaning, Description
FROM GMD_STATUS
Where status_code = vStatus_code;
/* Uday Phadtare 13-MAR-2008 Bug 6871738. Select ROUTING_CLASS_UOM */
/* instead of UOM in Cursor Rout_cls_cur. */
/* ************************************************************************ */
PROCEDURE Calculate_Process_loss
( process_loss IN process_loss_rec ,
Entity_type IN VARCHAR2 ,
x_recipe_theo_loss OUT NOCOPY GMD_PROCESS_LOSS.process_loss%TYPE ,
x_process_loss OUT NOCOPY GMD_PROCESS_LOSS.process_loss%TYPE ,
x_return_status OUT NOCOPY VARCHAR2 ,
x_msg_count OUT NOCOPY NUMBER ,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_process_loss NUMBER;
Select formula_id, routing_id, planned_process_loss
From gmd_recipes
Where recipe_id = vRecipe_id;
Select Routing_class, Routing_qty, Process_loss, routing_uom
From gmd_routings_b
Where routing_id = vRouting_id
and delete_mark = 0;
Select ROUTING_CLASS_UOM
From fm_rout_cls
Where routing_class = vRouting_class
and delete_mark = 0;
SELECT process_loss
FROM gmd_process_loss
WHERE routing_class = vRouting_class AND
(max_quantity >= qty OR
max_quantity IS NULL)
ORDER BY max_quantity;
SELECT total_output_qty, yield_uom
FROM fm_form_mst_b
WHERE formula_id = vFormula_id;
SELECT r.recipe_id, formula_id, routing_id, v.std_qty, v.organization_id, v.inventory_item_id, v.detail_uom
FROM gmd_recipes_b r, gmd_recipe_validity_rules v
WHERE r.recipe_id = v.recipe_id
AND v.recipe_validity_rule_id = vValidity_Rule_Id;
SELECT process_loss
FROM gmd_recipe_process_loss
WHERE recipe_id = vRecipe_id
AND organization_id = vOrgn_code_id;
SELECT uom_code
FROM mtl_units_of_measure
WHERE uom_class = pUm_type
AND base_uom_flag = 'Y';
SELECT detail_uom
FROM fm_matl_dtl
WHERE line_no = 1
AND line_type = 1
AND formula_id = vFormula_id;
SELECT line_no, line_type, inventory_item_id, qty, detail_uom, scale_type,
contribute_yield_ind, scale_multiple, scale_rounding_variance,
rounding_direction
FROM fm_matl_dtl
WHERE formula_id = vFormula_id
ORDER BY line_type;
SELECT owner_organization_id
FROM fm_form_mst_b
WHERE formula_id = vformula_id;
SELECT formula_id, routing_id, calculate_step_quantity
FROM gmd_recipes_b
WHERE recipe_id = vRecipe_Id;
Select rout.routing_qty rout_qty,
form.total_output_qty recipe_qty,
rout.routing_uom rout_uom,
form.formula_id formula_id,
form.yield_uom yield_typ_uom
from fm_form_mst_b form,
gmd_routings_b rout
where form.formula_id = pformula_id and
rout.routing_id = prouting_id ;
SELECT dtl.routingStep_id ,
dtl.step_qty qty ,
opr.process_qty_uom step_um
FROM fm_rout_dtl dtl ,
gmd_operations_b opr
WHERE dtl.oprn_id = opr.oprn_id AND
dtl.routing_id = vRouting_id
ORDER BY dtl.routingStep_id;
SELECT step_qty, mass_qty, mass_std_uom, volume_qty, volume_std_uom
FROM gmd_recipe_routing_steps
WHERE recipe_id = vRecipe_id AND
routingstep_id = vRoutingStep_id;
/*Modified the select statement to consider the generic resource only */
/*if there are no plant specific overrides */
SELECT MIN( NVL(orgnres.max_capacity, crres.max_capacity) ) max_cap,
crres.capacity_um capacity_um
FROM (SELECT resources, max_capacity, capacity_um, capacity_constraint
FROM cr_rsrc_mst_b m
WHERE capacity_constraint = 1
AND NOT EXISTS (SELECT 1
FROM cr_rsrc_dtl d
WHERE d.organization_id = vOrgn_id
AND d.resources = m.resources)
UNION
SELECT resources, max_capacity, capacity_um, capacity_constraint
FROM cr_rsrc_dtl
WHERE organization_id = vOrgn_id
AND capacity_constraint = 1 ) crres ,
(SELECT max_capacity, resources, routingstep_id
FROM gmd_recipe_orgn_resources
WHERE recipe_id = vRecipe_id
AND organization_id = vOrgn_id) orgnres ,
(SELECT oprn_id, routingStep_id
FROM fm_rout_dtl
WHERE routingstep_id = vRoutingstep_id ) dtl ,
gmd_operation_resources res ,
gmd_operation_activities act ,
gmd_operations_b opr
WHERE crres.resources = res.resources AND
dtl.oprn_id = opr.oprn_id AND
opr.oprn_id = act.oprn_id AND
act.oprn_line_id = res.oprn_line_id AND
(orgnres.routingstep_id IS NULL OR
dtl.routingstep_id = orgnres.routingstep_id ) AND
res.resources = orgnres.resources(+)
GROUP BY crres.capacity_um;
FUNCTION UPDATE_ALLOWED(Entity VARCHAR2
,Entity_id NUMBER
,Update_Column_Name VARCHAR2 Default Null)
RETURN BOOLEAN IS
l_meaning GMD_STATUS.Meaning%TYPE ;
l_delete_mark NUMBER := 0;
SELECT 1
FROM org_access_view
WHERE responsibility_id = vresp_id
AND organization_id = vOwner_orgn_id;
gmd_debug.put_line('In GMD_COMMON_VAL.UPDATE_ALLOWED - '
||' Entity = '||Entity||' and Entity id = '
||Entity_id);
SELECT delete_mark, formula_status
INTO l_delete_mark, l_status_code
FROM fm_form_mst
WHERE formula_id = Entity_id;
SELECT delete_mark, recipe_status, owner_organization_id
INTO l_delete_mark, l_status_code, l_owner_orgn_id
FROM gmd_recipes_b
WHERE recipe_id = Entity_id;
SELECT delete_mark, routing_status
INTO l_delete_mark, l_status_code
FROM fm_rout_hdr
WHERE routing_id = Entity_id;
SELECT delete_mark, operation_status
INTO l_delete_mark, l_status_code
FROM gmd_operations
WHERE oprn_id = Entity_id;
SELECT delete_mark, validity_rule_status
INTO l_delete_mark, l_status_code
FROM gmd_recipe_validity_rules
WHERE recipe_validity_rule_id = Entity_id;
AND (Upper(Update_Column_Name) like '%END_DATE%')) THEN
Return TRUE;
(l_status_code between 500 and 599) OR (l_delete_mark = 1)) THEN
Return FALSE;
(l_status_code between 500 and 599) OR (l_delete_mark = 1)) THEN
Return FALSE;
END UPDATE_ALLOWED;
SELECT owner_organization_id
FROM fm_form_mst_b
WHERE formula_id = vformula_id;
SELECT owner_organization_id
FROM gmd_recipes_b
WHERE recipe_id = vrecipe_id;
SELECT owner_organization_id
FROM gmd_routings_b
WHERE routing_id = vrouting_id;
SELECT owner_organization_id
FROM gmd_operations_b
WHERE oprn_id = voprn_id;
SELECT owner_organization_id
FROM GMD_ITEM_SUBSTITUTION_HDR_B
WHERE SUBSTITUTION_ID = vsub_id;
Select f.formula_status, s.version_enabled
From fm_form_mst f, gmd_status s
Where f.formula_id = Entity_id
And f.formula_status = s.status_code;
Select r.recipe_status, s.version_enabled
From gmd_recipes r, gmd_status s
Where r.recipe_id = Entity_id
And r.recipe_status = s.status_code;
Select r.routing_status, s.version_enabled
From fm_rout_hdr r, gmd_status s
Where r.routing_id = Entity_id
And r.routing_status = s.status_code;
Select r.operation_status, s.version_enabled
From gmd_operations r, gmd_status s
Where r.oprn_id = Entity_id
And r.operation_status = s.status_code;
/*SELECT TRIM(FND_PROFILE.VALUE('GMD_OPERATION_VERSION_CONTROL'))
INTO l_state
FROM sys.dual;*/
Select r.substitution_status, s.version_enabled
From gmd_item_substitution_hdr_b r, gmd_status s
Where r.substitution_id = Entity_id
And r.substitution_status = s.status_code;
* Run_status_update
*
* Parameter Input
* pCalendar_code - Calendar code set in cm_cldr_dtl
* pPeriod_code - Period code set in cm_cldr_dtl
* pCost_mthd_code - Cost_mthd_code from cm_cldr_hdr
*
* Parameters Output
*
* p_errbuf Completion message to the Concurrent Manager
* p_retcode Return code to the Concurrent Manager
*
*
* Description
*
* Procedure is used by costing to update the GMD tables with frozen status.
* This procedure is registered as a concurrent program
* Whenever costing updates the period status in cm_cldr_dtl table
* from 0 to 1 , the trigger fires and submits a request for a
* concurrent job.
*
* History
* 05/31/2001 Shyam Created
* 11/14/2001 Shyam Added fm context after the cost update.
* 12-FEB-2002 Shyam BUG # 2222882: Changes to Procedure GMD_RUN_STATUS_UPDATE.
* The FORALL condition for BULK update was changed to
* conventional FOR LOOP statement and makes update for each row.
*
* 12-FEB-2002 Shyam Created an NVL ststement for routing_id that is returned after
* the recipe table is updated. Recipe can have null routing_ids and
* returning a NULL routing_id into variable l_routing_id can cause issues.
* 01-MAR-2002 Shyam Added validation for Run_status_Updtae to check if the cost method is 'Standard'
* and period status is 1.
* 01/16/2003 Shyam UPdate made on status that are not obsoleted or on-hold
*
* *********************************************************************** */
PROCEDURE Run_status_update( p_errbuf OUT NOCOPY VARCHAR2,
p_retcode OUT NOCOPY VARCHAR2,
pCalendar_code IN cm_cmpt_dtl.calendar_code%TYPE,
pPeriod_code IN cm_cmpt_dtl.period_code%TYPE,
pCost_mthd_code IN cm_cmpt_dtl.cost_mthd_code%TYPE) IS
x_return_status VARCHAR2(1) := 'S';
SELECT distinct(fmeff_id) fmeff_id from cm_cmpt_dtl
WHERE Calendar_code = pCalendar_code AND
Period_code = pPeriod_code AND
Cost_mthd_code = pCost_mthd_code AND
ROLLOVER_IND = 1;
SELECT count(*) FROM cm_cldr_dtl
WHERE Calendar_code = pCalendar_code AND
Period_code = pPeriod_code AND
period_status = 1;
SELECT cost_type from cm_mthd_mst
WHERE cost_mthd_code = pCost_mthd_code;
SELECT recipe_id from gmd_recipe_validity_rules
WHERE recipe_validity_rule_id = vValidity_Rule_id;
SELECT formula_id, routing_id From gmd_recipes_b
WHERE recipe_id = vRecipe_id;
SAVEPOINT update_status;
/* Update the VR - status field */
Update gmd_recipe_validity_rules
SET validity_rule_status = '900'
WHERE recipe_validity_rule_id = VRList(i)
AND to_number(validity_rule_status) < 800;
/* Update the Recipe - status field */
UPDATE gmd_recipes_b
SET recipe_status = '900'
WHERE recipe_id = l_Recipe_Id
AND to_number(recipe_status) < 800;
/* Update the formula and routing status */
UPDATE fm_form_mst_b
SET formula_status = '900'
WHERE formula_id = l_formula_id
AND to_number(formula_status) < 800;
UPDATE gmd_routings_b
SET routing_status = '900'
WHERE routing_id = l_routing_id
AND to_number(routing_status) < 800;
/* Update oprns status */
IF (l_routing_id IS NOT NULL) THEN
UPDATE gmd_operations_b
SET operation_status = '900'
WHERE oprn_id IN (SELECT oprn_id
FROM fm_rout_dtl d
WHERE routing_id = l_routing_id)
AND to_number(operation_status) < 800;
set_conc_program_Status('NORMAL', 'Did not update the status on GMD tables');
ROLLBACK to update_status;
ROLLBACK to update_status;
ROLLBACK to update_status;
END Run_Status_Update;
SELECT fm.formula_no, fm.formula_vers, organization_code
FROM fm_form_mst fm, mtl_parameters o
WHERE formula_id =p_formula_id
AND fm.owner_organization_id = o.organization_id
AND formula_status < 1000
AND NOT EXISTS (SELECT 1
FROM mtl_system_items m
WHERE inventory_item_id = p_inventory_item_id
AND recipe_enabled_flag = 'Y'
AND m.organization_id = fm.owner_organization_id);
SELECT fm.formula_no, fm.formula_vers, organization_code
FROM fm_form_mst fm, mtl_parameters o
WHERE formula_id =p_formula_id
AND fm.owner_organization_id = o.organization_id
AND formula_status < 1000
AND NOT EXISTS (SELECT 1
FROM mtl_system_items m, mtl_item_revisions mir
WHERE m.inventory_item_id = p_inventory_item_id
AND mir.revision = p_revision
AND m.inventory_item_id = mir.inventory_item_id
AND m.recipe_enabled_flag = 'Y'
AND m.organization_id = fm.owner_organization_id
AND mir.organization_id = m.organization_id);
SELECT recipe_no, recipe_version, organization_code
FROM gmd_recipes_b r, mtl_parameters o
WHERE formula_id = p_formula_id
AND r.owner_organization_id = o.organization_id
AND recipe_status < 1000
AND NOT EXISTS (SELECT 1
FROM mtl_system_items m
WHERE inventory_item_id = p_inventory_item_id
AND recipe_enabled_flag = 'Y'
AND m.organization_id = r.owner_organization_id);
SELECT recipe_no, recipe_version, organization_code
FROM gmd_recipes_b r, mtl_parameters o
WHERE formula_id = p_formula_id
AND r.owner_organization_id = o.organization_id
AND recipe_status < 1000
AND NOT EXISTS (SELECT 1
FROM mtl_system_items m, mtl_item_revisions mir
WHERE m.inventory_item_id = p_inventory_item_id
AND mir.revision = p_revision
AND m.inventory_item_id = mir.inventory_item_id
AND m.recipe_enabled_flag = 'Y'
AND m.organization_id = r.owner_organization_id
AND mir.organization_id = m.organization_id
);
select r.recipe_no, r.recipe_version, o.organization_code
from gmd_recipe_process_loss rpl, gmd_recipes_b r, mtl_parameters o
where r.recipe_id = rpl.recipe_id
AND r.formula_id = p_formula_id
AND r.owner_organization_id <> rpl.organization_id
AND rpl.organization_id = o.organization_id
AND r.recipe_status < 1000
AND NOT EXISTS (SELECT 1
FROM mtl_system_items m
WHERE inventory_item_id = p_inventory_item_id
AND recipe_enabled_flag = 'Y'
AND m.organization_id = rpl.organization_id);
select r.recipe_no, r.recipe_version, o.organization_code
from gmd_recipe_process_loss rpl, gmd_recipes_b r, mtl_parameters o
where r.recipe_id = rpl.recipe_id
AND r.formula_id = p_formula_id
AND r.owner_organization_id <> rpl.organization_id
AND rpl.organization_id = o.organization_id
AND r.recipe_status < 1000
AND NOT EXISTS (SELECT 1
FROM mtl_system_items m, mtl_item_revisions mir
WHERE m.inventory_item_id = p_inventory_item_id
AND mir.revision = p_revision
AND m.inventory_item_id = mir.inventory_item_id
AND m.recipe_enabled_flag = 'Y'
AND m.organization_id = rpl.organization_id
AND mir.organization_id = m.organization_id);
select o.organization_code,r.recipe_no, r.recipe_version
from gmd_recipe_validity_rules rvr, gmd_recipes_b r, mtl_parameters o
where r.recipe_id = rvr.recipe_id
and r.formula_id = p_formula_id
and o.organization_id = rvr.organization_id
AND rvr.organization_id <> r.owner_organization_id
AND r.recipe_status < 1000
AND rvr.validity_rule_status < 1000
AND NOT EXISTS (SELECT 1
FROM mtl_system_items m
WHERE inventory_item_id = p_inventory_item_id
AND recipe_enabled_flag = 'Y'
AND m.organization_id = rvr.organization_id);
select o.organization_code,r.recipe_no, r.recipe_version
from gmd_recipe_validity_rules rvr, gmd_recipes_b r, mtl_parameters o
where r.recipe_id = rvr.recipe_id
and r.formula_id = p_formula_id
and o.organization_id = rvr.organization_id
AND r.recipe_status < 1000
AND rvr.validity_rule_status < 1000
AND NOT EXISTS (SELECT 1
FROM mtl_system_items m, mtl_item_revisions mir
WHERE m.inventory_item_id = p_inventory_item_id
AND mir.revision = p_revision
AND m.inventory_item_id = mir.inventory_item_id
AND m.recipe_enabled_flag = 'Y'
AND m.organization_id = rvr.organization_id
AND mir.organization_id = m.organization_id
);
select revision_qty_control_code
from mtl_system_items_b
where inventory_item_id = v_item_id;
SELECT OWNER_ORGANIZATION_ID
FROM FM_FORM_MST
WHERE formula_id = p_formula_id;
SELECT line_no, line_type, inventory_item_id, qty, DETAIL_UOM, scale_type,
contribute_yield_ind, scale_multiple, scale_rounding_variance,
rounding_direction , prod_percent
FROM fm_matl_dtl
WHERE formula_id = p_formula_id
AND contribute_yield_ind = 'Y' /* Added in Bug No.6314028 */
ORDER BY line_type;
SELECT uom_code
FROM mtl_units_of_measure
WHERE uom_class = v_yield_type
AND base_uom_flag = 'Y';
/* SELECT uom_class
INTO l_uom_class
FROM mtl_units_of_measure
where uom_code = l_material_tab (i).detail_uom; */
/* See if the product is of scale type fixed, if yes, then do not update and also use to subtract from the total
ingredient qty to be distributed. */
IF l_material_tab (i).scale_type = 0
THEN
l_prod_fix_cnt := l_prod_fix_cnt + 1;
UPDATE fm_matl_dtl
SET qty = ROUND (l_temp_qty, 5),
DETAIL_UOM = temp_prod_tbl1 (i).orig_uom
WHERE formula_id = p_formula_id
AND line_type = 1
AND inventory_item_id = temp_prod_tbl1 (i).inventory_item_id
AND line_no = temp_prod_tbl1 (i).line_no;
/* Finally update the formula level product qty as prod qty + by product qty. */
lhdrqty := lhdrqty + l_prod_fix_qty + NVL (l_by_product_qty, 0);
UPDATE fm_form_mst_b
SET total_output_qty = lhdrqty
WHERE formula_id = p_formula_id;
* Run_status_update
*
* Description
*
* Procedure is used by costing to update the GMD tables with frozen status.
* This procedure is registered as a concurrent program
*
* History
* 17-Jul-2008 Kishore Created
*
* *********************************************************************** */
PROCEDURE Run_status_update( p_errbuf OUT NOCOPY VARCHAR2,
p_retcode OUT NOCOPY VARCHAR2,
pLegal_entity_id IN number,
pCalendar_code IN cm_cmpt_dtl.calendar_code%TYPE,
pPeriod_code IN cm_cmpt_dtl.period_code%TYPE,
pCost_type_id IN cm_cmpt_dtl.Cost_type_id%TYPE) IS
x_return_status VARCHAR2(1) := 'S';
SELECT period_id from gmf_period_statuses
WHERE Legal_Entity_Id = pLegal_entity_id AND
Calendar_code = pCalendar_code AND
Period_code = pPeriod_code AND
Cost_type_id = pCost_type_id ;
SELECT distinct(fmeff_id) fmeff_id from cm_cmpt_dtl
WHERE period_id = l_period_id AND
cost_type_id = pCost_type_id AND
ROLLOVER_IND = 1;
SELECT count(*) FROM gmf_period_statuses
WHERE period_id = l_period_id AND
period_status = 'F';
SELECT cost_type from cm_mthd_mst
WHERE cost_type_id = pCost_type_id;
SELECT recipe_id from gmd_recipe_validity_rules
WHERE recipe_validity_rule_id = vValidity_Rule_id;
SELECT formula_id, routing_id From gmd_recipes_b
WHERE recipe_id = vRecipe_id;
SAVEPOINT update_status;
/* Update the VR - status field */
Update gmd_recipe_validity_rules
SET validity_rule_status = '900'
WHERE recipe_validity_rule_id = VRList(i)
AND to_number(validity_rule_status) < 800;
/* Update the Recipe - status field */
UPDATE gmd_recipes_b
SET recipe_status = '900'
WHERE recipe_id = l_Recipe_Id
AND to_number(recipe_status) < 800;
/* Update the formula and routing status */
UPDATE fm_form_mst_b
SET formula_status = '900'
WHERE formula_id = l_formula_id
AND to_number(formula_status) < 800;
UPDATE gmd_routings_b
SET routing_status = '900'
WHERE routing_id = l_routing_id
AND to_number(routing_status) < 800;
/* Update oprns status */
IF (l_routing_id IS NOT NULL) THEN
UPDATE gmd_operations_b
SET operation_status = '900'
WHERE oprn_id IN (SELECT oprn_id
FROM fm_rout_dtl d
WHERE routing_id = l_routing_id)
AND to_number(operation_status) < 800;
set_conc_program_Status('NORMAL', 'Did not update the status on GMD tables');
ROLLBACK to update_status;
ROLLBACK to update_status;
ROLLBACK to update_status;
ROLLBACK to update_status;
END Run_Status_Update;