3: PROCEDURE Collect_Atp_Info(
4: ERRBUF OUT VARCHAR2,
5: RETCODE OUT NUMBER)
6: IS
7: l_oe_install VARCHAR2(3);
8: BEGIN
9:
10: RETCODE := 0;
11: -- Before inserting new records, delete existing records
900: AND C.CALENDAR_DATE = TRUNC(F.SCHEDULED_COMPLETION_DATE)
901: AND C.PRIOR_DATE>=MRP_CALENDAR.next_work_day
902: (P.ORGANIZATION_ID, 1, SYSDATE);
903:
904: SELECT OE_INSTALL.Get_Active_Product
905: INTO l_oe_install
906: FROM DUAL;
907:
908: IF l_oe_install = 'OE' THEN
901: AND C.PRIOR_DATE>=MRP_CALENDAR.next_work_day
902: (P.ORGANIZATION_ID, 1, SYSDATE);
903:
904: SELECT OE_INSTALL.Get_Active_Product
905: INTO l_oe_install
906: FROM DUAL;
907:
908: IF l_oe_install = 'OE' THEN
909:
904: SELECT OE_INSTALL.Get_Active_Product
905: INTO l_oe_install
906: FROM DUAL;
907:
908: IF l_oe_install = 'OE' THEN
909:
910: -- insert sales order demand
911: INSERT INTO mrp_atp_supply_demand(
912: source_identifier1,