The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Line_MDI(
p_api_version IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_line_id IN NUMBER,
p_assignment_set_id IN NUMBER,
p_atp_group_id IN OUT NOCOPY NUMBER ,
x_session_id OUT NOCOPY NUMBER)
IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30):= 'Insert_Line_MDI';
END Insert_Line_MDI;
PROCEDURE Insert_Supply_Sources_MDI(
p_api_version IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_atp_group_id IN NUMBER,
p_assignment_set_id IN NUMBER,
x_session_id OUT NOCOPY NUMBER )
IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30):= 'Insert_Supply_Sources_MDI';
END Insert_Supply_Sources_MDI;
PROCEDURE Insert_Res_MDI(
x_err_num OUT NOCOPY NUMBER,
x_err_msg OUT NOCOPY VARCHAR2,
p_atp_group_id IN NUMBER)
IS
BEGIN
--stubbed out
--5022204
return;
END Insert_Res_MDI;
PROCEDURE Insert_Comp_MDI(
p_api_version IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_atp_group_id IN NUMBER)
IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30):= 'Insert_Comp_MDI';
SELECT mdi.atp_group_id,
mdi.organization_id,
be.component_item_id,
NVL(wp.component_atp_rule_id,NVL(msi.atp_rule_id,
mp.default_atp_rule_id)),
(mdi.line_item_quantity * be.extended_quantity),
(mdi.primary_uom_quantity * be.extended_quantity),
mdi.requirement_date,
mdi.atp_calendar_organization_id,
1,
be.primary_uom_code,
mdi.supply_header_id
FROM mtl_system_items msi,
mtl_parameters mp,
wip_parameters wp,
bom_explosions be,
bom_bill_of_materials bom,
mtl_demand_interface mdi
WHERE mdi.atp_group_id = l_atp_group_id
AND bom.assembly_item_id = mdi.inventory_item_id
AND bom.organization_id = mdi.organization_id
AND bom.alternate_bom_designator is NULL
AND be.top_bill_sequence_id = bom.bill_sequence_id
AND be.optional = 2
AND be.explosion_type = 'ALL'
AND MRP_SCATP_PUB.required_component(be.top_bill_sequence_id,
be.plan_level,
mdi.requirement_date,
be.component_sequence_id,
be.component_code) = 1
AND be.component_item_id = msi.inventory_item_id
AND be.organization_id = msi.organization_id
AND mp.organization_id = msi.organization_id
AND wp.organization_id = msi.organization_id
AND msi.atp_flag in ('Y','C');
INSERT INTO MTL_DEMAND_INTERFACE(
atp_group_id,
organization_id,
inventory_item_id,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
atp_rule_id,
line_item_quantity,
primary_uom_quantity,
requirement_date,
atp_calendar_organization_id,
atp_check,
line_item_uom,
supply_header_id
)
VALUES (l_atp_group_id,
l_organization_id,
l_inventory_item_id,
sysdate,
1,
sysdate,
1,
1,
l_atp_rule_id,
l_line_item_quantity,
l_primary_uom_quantity,
l_requirement_date,
l_atp_calendar_organization_id,
l_atp_check,
l_line_item_uom,
l_supply_header_id);
END Insert_Comp_MDI;
SELECT '1'
INTO l_required
FROM BOM_INVENTORY_COMPONENTS
WHERE COMPONENT_SEQUENCE_ID = p_comp_seq_id
AND NVL(WIP_SUPPLY_TYPE,
MRP_SCATP_PUB.mtl_wip_supply_type(
p_top_bill_seq_id,
component_item_id)) <> 6; /* Bug 2777745 */
SELECT '1'
INTO l_required
FROM BOM_INVENTORY_COMPONENTS BIC,
BOM_EXPLOSIONS BE
WHERE BE.TOP_BILL_SEQUENCE_ID = p_top_bill_seq_id
AND BE.COMPONENT_CODE = l_component_code
AND BE.PLAN_LEVEL = i
AND BE.explosion_type = 'ALL'
AND TRUNC(BE.EFFECTIVITY_DATE) <= TRUNC(p_request_date)
AND TRUNC(BE.DISABLE_DATE) >TRUNC(p_request_date)
AND BIC.COMPONENT_SEQUENCE_ID =
BE.COMPONENT_SEQUENCE_ID
AND nvl(BIC.WIP_SUPPLY_TYPE,
MRP_SCATP_PUB.mtl_wip_supply_type(
p_top_bill_seq_id,
bic.component_item_id)) = 6 /* Bug 2777745 */
AND BIC.BOM_ITEM_TYPE NOT IN (1,2); -- not a model or oc
SELECT NVL(msi.wip_supply_type,1)
INTO l_wip_supply_type
FROM mtl_system_items msi, bom_bill_of_materials bbm
WHERE bbm.bill_sequence_id = p_top_bill_seq_id
AND msi.organization_id = bbm.organization_id
AND msi.inventory_item_id = p_comp_id;