[Home] [Help]
237: p_supply_table => p_supply_table,
238: ERRBUF => ERRBUF,
239: RETCODE => RETCODE);
240:
241: Collect_MTL_Supply(p_group_id => p_group_id,
242: p_sys_seq_num => p_sys_seq_num,
243: p_mrp_status => p_mrp_status,
244: p_supply_table => p_supply_table,
245: ERRBUF => ERRBUF,
528:
529: END Collect_User_Supply;
530:
531:
532: PROCEDURE Collect_MTL_Supply(p_group_id IN NUMBER,
533: p_sys_seq_num IN NUMBER,
534: p_mrp_status IN NUMBER,
535: p_supply_table IN OUT NOCOPY SUPPLY_DEMAND_TBL_TYPE,
536: ERRBUF OUT NOCOPY VARCHAR2,
536: ERRBUF OUT NOCOPY VARCHAR2,
537: RETCODE OUT NOCOPY NUMBER)
538: IS
539:
540: -- queries mtl_supply information, that is PO, REQ, SHIP, RCV
541: -- question here,
542: -- I select NVL(S.MRP_PRIMARY_QUANTITY, S.TO_ORG_PRIMARY_QUANTITY)
543: -- as the supply_demand_quantity if discrete mps is included,
544: -- S.TO_ORG_PRIMARY_QUANTITY if not included.
545: -- However, in inldsd.ppc, it selects
546: -- S.TO_ORG_PRIMARY_QUANTITY for shipment, NVL(S.MRP_PRIMARY_QUANTITY, 0)
547: -- if discrete mps is included, S.TO_ORG_PRIMARY_QUANTITY if not included
548:
549: CURSOR MTL_SUPPLY_CURSOR IS
550: SELECT
551: 1 reservation_type,
552: DECODE(S.PO_HEADER_ID,
553: NULL,DECODE(S.SUPPLY_TYPE_CODE,
582: MTL_ATP_RULES R,
583: MTL_SYSTEM_ITEMS I,
584: MTL_PARAMETERS P,
585: BOM_CALENDAR_DATES C,
586: MTL_SUPPLY S
587: WHERE V.ATP_GROUP_ID = P_GROUP_ID
588: AND R.DEMAND_CLASS_ATP_FLAG=2
589: AND V.AVAILABLE_TO_ATP = 1
590: AND V.ATP_RULE_ID = R.RULE_ID
624: AND P.CALENDAR_CODE = C.CALENDAR_CODE
625: AND P.CALENDAR_EXCEPTION_SET_ID = C.EXCEPTION_SET_ID
626: AND C.CALENDAR_DATE = TRUNC(S.EXPECTED_DELIVERY_DATE);
627:
628: l_supply_rec MTL_SUPPLY_CURSOR%ROWTYPE;
629: j NUMBER := Nvl(p_supply_table.LAST,0) + 1;
630: BEGIN
631:
632: OPEN MTL_SUPPLY_CURSOR;
628: l_supply_rec MTL_SUPPLY_CURSOR%ROWTYPE;
629: j NUMBER := Nvl(p_supply_table.LAST,0) + 1;
630: BEGIN
631:
632: OPEN MTL_SUPPLY_CURSOR;
633:
634: LOOP
635: FETCH MTL_SUPPLY_CURSOR INTO l_supply_rec;
636: EXIT WHEN MTL_SUPPLY_CURSOR%NOTFOUND;
631:
632: OPEN MTL_SUPPLY_CURSOR;
633:
634: LOOP
635: FETCH MTL_SUPPLY_CURSOR INTO l_supply_rec;
636: EXIT WHEN MTL_SUPPLY_CURSOR%NOTFOUND;
637:
638: p_supply_table(j).reservation_type := l_supply_rec.reservation_type;
639: p_supply_table(j).supply_demand_source_type := l_supply_rec.supply_demand_source_type;
632: OPEN MTL_SUPPLY_CURSOR;
633:
634: LOOP
635: FETCH MTL_SUPPLY_CURSOR INTO l_supply_rec;
636: EXIT WHEN MTL_SUPPLY_CURSOR%NOTFOUND;
637:
638: p_supply_table(j).reservation_type := l_supply_rec.reservation_type;
639: p_supply_table(j).supply_demand_source_type := l_supply_rec.supply_demand_source_type;
640: p_supply_table(j).txn_source_type_id := l_supply_rec.txn_source_type_id;
648: j := j+1;
649:
650: END LOOP;
651:
652: CLOSE MTL_SUPPLY_CURSOR;
653:
654: END Collect_MTL_Supply;
655:
656: PROCEDURE Collect_DiscreteJob_Supply(p_group_id IN NUMBER,
650: END LOOP;
651:
652: CLOSE MTL_SUPPLY_CURSOR;
653:
654: END Collect_MTL_Supply;
655:
656: PROCEDURE Collect_DiscreteJob_Supply(p_group_id IN NUMBER,
657: p_sys_seq_num IN NUMBER,
658: p_mrp_status IN NUMBER,
1773: l_debug_line := 10;
1774: x_return_status := FND_API.G_RET_STS_SUCCESS;
1775:
1776: -- Preparing the init data
1777: SELECT MTL_ATP_RULES_S.NEXTVAL,MTL_SUPPLY_DEMAND_TEMP_S.NEXTVAL INTO l_rule_id,l_group_id from DUAL;
1778: DELETE FROM MTL_ATP_RULES WHERE RULE_NAME = 'FLM';
1779:
1780: l_debug_line := 20;
1781: