[Home] [Help]
1268:
1269: /* ship_rec_cal
1270: -- ngoel 9/25/2001, wrapped since this function raises an exception which needs to be handled.
1271: BEGIN
1272: l_sys_next_date := MSC_CALENDAR.NEXT_WORK_DAY(l_sourcing_org_id,
1273: p_instance_id,
1274: 1,
1275: sysdate);
1276: EXCEPTION
1688: IF (i=1) OR (l_atp_table.internal_org_id(i)<>l_atp_table.internal_org_id(i-1))
1689: OR (l_atp_table.organization_id(i)<>l_atp_table.organization_id(i-1))
1690: OR (l_atp_table.ship_method(i)<>l_atp_table.ship_method(i-1)) THEN
1691:
1692: l_receiving_cal_code := MSC_CALENDAR.Get_Calendar_Code(
1693: p_instance_id,
1694: null,
1695: null,
1696: null,
1697: null,
1698: null,
1699: NVL(l_atp_table.internal_org_id(i), l_atp_table.organization_id(i)),
1700: l_atp_table.ship_method(i),
1701: MSC_CALENDAR.ORC);
1702: ELSE
1703: l_receiving_cal_code := l_atp_table.receiving_cal_code(i-1);
1704: IF PG_DEBUG in ('Y', 'C') THEN
1705: msc_sch_wb.atp_debug('Schedule: ' || 'Calendar parameters have not changed for ORC');
1712: IF (i=1) OR (NVL(l_atp_table.customer_id(i),-1)<>NVL(l_atp_table.customer_id(i-1),-1))
1713: OR (NVL(l_atp_table.customer_site_id(i),-1)<>NVL(l_atp_table.customer_site_id(i-1),-1))
1714: OR (l_atp_table.ship_method(i)<>l_atp_table.ship_method(i-1)) THEN
1715:
1716: l_receiving_cal_code := MSC_CALENDAR.Get_Calendar_Code(
1717: p_instance_id,
1718: null,
1719: null,
1720: MSC_ATP_PVT.G_PARTNER_ID,
1721: MSC_ATP_PVT.G_PARTNER_SITE_ID,
1722: 2,
1723: null,
1724: l_atp_table.ship_method(i),
1725: MSC_CALENDAR.CRC);
1726: ELSE
1727: l_receiving_cal_code := l_atp_table.receiving_cal_code(i-1);
1728: IF PG_DEBUG in ('Y', 'C') THEN
1729: msc_sch_wb.atp_debug('Schedule: ' || 'Calendar parameters have not changed for CRC');
1730: END IF;
1731: END IF;
1732: ELSE
1733: -- Neither org nor customer provided
1734: l_receiving_cal_code := MSC_CALENDAR.FOC;
1735: END IF;
1736:
1737: IF MSC_ATP_PVT.G_USE_SHIP_REC_CAL='Y' THEN
1738: -- Bug 3647208 -- Move the check to individual "IF"s
1737: IF MSC_ATP_PVT.G_USE_SHIP_REC_CAL='Y' THEN
1738: -- Bug 3647208 -- Move the check to individual "IF"s
1739: IF (i=1) OR (l_atp_table.ship_method(i)<>l_atp_table.ship_method(i-1)) THEN
1740: -- Bug3593394 - Call this proc only if parameters have changed
1741: l_intransit_cal_code := MSC_CALENDAR.Get_Calendar_Code(
1742: p_instance_id,
1743: null,
1744: null,
1745: null,
1746: null,
1747: 4,
1748: null,
1749: l_atp_table.ship_method(i),
1750: MSC_CALENDAR.VIC);
1751: ELSE
1752: l_intransit_cal_code := l_atp_table.intransit_cal_code(i-1);
1753: IF PG_DEBUG in ('Y', 'C') THEN
1754: msc_sch_wb.atp_debug('Schedule: ' || 'Calendar parameters have not changed for VIC');
1754: msc_sch_wb.atp_debug('Schedule: ' || 'Calendar parameters have not changed for VIC');
1755: END IF;
1756: END IF;
1757: ELSE
1758: l_intransit_cal_code := MSC_CALENDAR.FOC;
1759: END IF;
1760:
1761:
1762: -- Bug 3647208 -- Moved OSC and VIC to different IF blocks
1762: -- Bug 3647208 -- Moved OSC and VIC to different IF blocks
1763: IF (i=1) OR (l_atp_table.ship_method(i)<>l_atp_table.ship_method(i-1)) THEN
1764: -- Bug3593394 - Call this proc only for the first line in the ship set unless ship method has changed
1765: -- No check on source org as "i" will be greater than one only for ship set.
1766: l_shipping_cal_code := MSC_CALENDAR.Get_Calendar_Code(
1767: p_instance_id,
1768: null,
1769: null,
1770: null,
1771: null,
1772: null,
1773: l_sourcing_org_id,
1774: l_atp_table.ship_method(i),
1775: MSC_CALENDAR.OSC);
1776: ELSE
1777: l_shipping_cal_code := l_atp_table.shipping_cal_code(i-1);
1778: IF PG_DEBUG in ('Y', 'C') THEN
1779: msc_sch_wb.atp_debug('Schedule: ' || 'Calendar parameters have not changed for OSC');
1785: -- Bug3593394 - Call this proc only for the first line in the ship set.
1786: -- "i" will be greater than one only for ship set.
1787: -- ATP4drp Call to obtain get_org_defaults.
1788: /*
1789: l_manufacturing_cal_code := MSC_CALENDAR.Get_Calendar_Code(
1790: p_instance_id,
1791: null,
1792: null,
1793: null,
1794: null,
1795: null,
1796: l_sourcing_org_id,
1797: null,
1798: MSC_CALENDAR.OMC);
1799: */
1800: -- Bug 2783787 fix involving removing the call to obtain org defaults
1801: -- restored here
1802: MSC_ATP_PROC.get_global_org_info(p_instance_id,
1832: -- Bug 3371817 - sys_next_date should be as per OSC
1833: -- maintaining l_sys_next_omc_date for PTF assignment.
1834: -- Bug3593394 - Call this proc only if calendar has changed
1835: IF (i=1) OR (l_shipping_cal_code<>l_atp_table.shipping_cal_code(i-1)) THEN
1836: l_sys_next_date := MSC_CALENDAR.NEXT_WORK_DAY(
1837: l_shipping_cal_code,
1838: p_instance_id,
1839: l_trunc_sysdate);
1840: END IF;
1842: IF l_manufacturing_cal_code=l_shipping_cal_code THEN
1843: l_sys_next_omc_date := l_sys_next_date;
1844: ELSIF (i=1) OR (l_manufacturing_cal_code<>l_atp_table.manufacturing_cal_code(i-1)) THEN
1845: -- Bug3593394 - Call this proc only if calendar has changed
1846: l_sys_next_omc_date := MSC_CALENDAR.NEXT_WORK_DAY(
1847: l_manufacturing_cal_code,
1848: p_instance_id,
1849: l_trunc_sysdate);
1850: END IF;
1855: l_sysdate_orc := l_sys_next_date;
1856: ELSIF l_receiving_cal_code=l_manufacturing_cal_code THEN
1857: l_sysdate_orc := l_sys_next_omc_date;
1858: ELSIF (i=1) OR (l_receiving_cal_code<>l_atp_table.receiving_cal_code(i-1)) THEN
1859: l_sysdate_orc := MSC_CALENDAR.NEXT_WORK_DAY(
1860: l_receiving_cal_code,
1861: p_instance_id,
1862: l_trunc_sysdate);
1863: END IF;
2400:
2401: l_request_date_qty := GREATEST(NVL(l_atp_rec.combined_requested_date_qty,
2402: l_atp_rec.requested_date_quantity), 0);
2403:
2404: l_atp_rec.requested_ship_date := MSC_CALENDAR.DATE_OFFSET (
2405: l_atp_rec.shipping_cal_code,
2406: l_atp_rec.instance_id,
2407: l_atp_rec.requested_ship_date,
2408: 1, 1);
2428: l_last_date,
2429: l_atp_rule_name);
2430:
2431: --Make sure that it is valid working day
2432: l_first_date := MSC_CALENDAR.PREV_WORK_DAY(
2433: l_atp_rec.shipping_cal_code,
2434: l_atp_rec.instance_id,
2435: l_atp_rec.requested_ship_date);
2436:
2435: l_atp_rec.requested_ship_date);
2436:
2437: --ITF date is a valid working day per mfg cal.
2438: --Make sure that it is valid working day as per shipping also.
2439: l_last_date := MSC_CALENDAR.NEXT_WORK_DAY(
2440: l_atp_rec.shipping_cal_code,
2441: l_atp_rec.instance_id,
2442: l_last_date);
2443: IF PG_DEBUG in ('Y', 'C') THEN
2543: )
2544: ) THEN
2545:
2546: IF (l_atp_rec.requested_arrival_date IS NOT NULL) THEN
2547: l_requested_ship_date := MSC_CALENDAR.PREV_WORK_DAY(
2548: l_atp_rec.receiving_cal_code,
2549: l_atp_rec.instance_id,
2550: l_atp_rec.requested_arrival_date);
2551:
2557: G_CALENDAR_CONSTRAINT := 'Y';
2558: ELSE
2559: G_CALENDAR_CONSTRAINT := 'N'; -- bug3593394 - reset the global variable
2560: END IF;
2561: l_requested_ship_date := MSC_CALENDAR.DATE_OFFSET(
2562: l_atp_rec.intransit_cal_code,
2563: l_atp_rec.instance_id,
2564: l_requested_ship_date,
2565: -1 * nvl(l_atp_rec.delivery_lead_time, 0),
2568: IF PG_DEBUG in ('Y', 'C') THEN
2569: msc_sch_wb.atp_debug('Schedule: ' || 'Date after subtracting intransit LT using VIC: ' || l_requested_ship_date);
2570: END IF;
2571:
2572: l_requested_ship_date := MSC_CALENDAR.PREV_WORK_DAY(
2573: l_atp_rec.shipping_cal_code,
2574: l_atp_rec.instance_id,
2575: l_requested_ship_date);
2576:
2574: l_atp_rec.instance_id,
2575: l_requested_ship_date);
2576:
2577: ELSE
2578: l_requested_ship_date := MSC_CALENDAR.PREV_WORK_DAY(
2579: l_atp_rec.shipping_cal_code,
2580: l_atp_rec.instance_id,
2581: l_atp_rec.requested_ship_date);
2582: IF trunc(l_requested_ship_date) <> trunc(l_atp_rec.requested_ship_date) THEN
2609:
2610: IF PG_DEBUG in ('Y', 'C') THEN
2611: msc_sch_wb.atp_debug('Schedule: ' || 'Request date is less than sysdate');
2612: END IF;
2613: l_requested_ship_date := MSC_CALENDAR.NEXT_WORK_DAY(
2614: l_atp_rec.shipping_cal_code,
2615: l_atp_rec.instance_id,
2616: l_sys_next_date);
2617:
3711: -- bug 2795053-reopen (ssurendr)
3712: --s_cto_rearch: do not honor atp lead time
3713: l_dmd_satisfied_date := l_atp_rec.ship_date;
3714: /*
3715: l_dmd_satisfied_date := MSC_CALENDAR.DATE_OFFSET(
3716: l_atp_rec.organization_id,
3717: p_instance_id,
3718: 1,
3719: l_atp_rec.ship_date,
3736: IF (l_atp_table.requested_ship_date(i) IS NOT NULL) THEN
3737: l_atp_rec.ship_date := l_atp_table.requested_ship_date(i);
3738:
3739: -- Bug 3520301 - dont consider first calendar in override cases
3740: l_atp_rec.arrival_date := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
3741: l_atp_rec.ship_date, MSC_CALENDAR.FOC, 1,
3742: l_atp_rec.intransit_cal_code, nvl(l_atp_rec.delivery_lead_time, 0), 1,
3743: l_atp_rec.receiving_cal_code, 1, p_instance_id);
3744: ELSE
3737: l_atp_rec.ship_date := l_atp_table.requested_ship_date(i);
3738:
3739: -- Bug 3520301 - dont consider first calendar in override cases
3740: l_atp_rec.arrival_date := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
3741: l_atp_rec.ship_date, MSC_CALENDAR.FOC, 1,
3742: l_atp_rec.intransit_cal_code, nvl(l_atp_rec.delivery_lead_time, 0), 1,
3743: l_atp_rec.receiving_cal_code, 1, p_instance_id);
3744: ELSE
3745: l_atp_rec.arrival_date := l_atp_table.requested_arrival_date(i);
3743: l_atp_rec.receiving_cal_code, 1, p_instance_id);
3744: ELSE
3745: l_atp_rec.arrival_date := l_atp_table.requested_arrival_date(i);
3746:
3747: l_atp_rec.ship_date := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
3748: -- Bug 3520301 - dont consider first calendar in override cases
3749: -- l_atp_table.requested_arrival_date(i), l_atp_rec.receiving_cal_code, -1,
3750: l_atp_table.requested_arrival_date(i), MSC_CALENDAR.FOC, -1,
3751: l_atp_rec.intransit_cal_code, -1 * nvl(l_atp_rec.delivery_lead_time, 0), -1,
3746:
3747: l_atp_rec.ship_date := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
3748: -- Bug 3520301 - dont consider first calendar in override cases
3749: -- l_atp_table.requested_arrival_date(i), l_atp_rec.receiving_cal_code, -1,
3750: l_atp_table.requested_arrival_date(i), MSC_CALENDAR.FOC, -1,
3751: l_atp_rec.intransit_cal_code, -1 * nvl(l_atp_rec.delivery_lead_time, 0), -1,
3752: l_atp_rec.shipping_cal_code, -1, p_instance_id);
3753: END IF;
3754: IF PG_DEBUG in ('Y', 'C') THEN
3757: END IF;
3758:
3759: /* If ship date returned is greater than requested ship date move it to OSC */
3760: ELSIF trunc(l_atp_rec.ship_date) > trunc(l_atp_rec.requested_ship_date) THEN
3761: l_atp_rec.ship_date := MSC_CALENDAR.NEXT_WORK_DAY(
3762: l_atp_rec.shipping_cal_code,
3763: p_instance_id,
3764: l_atp_rec.ship_date);
3765: IF PG_DEBUG in ('Y', 'C') THEN
3774: --- Bug 1621816 Calculate arrival date and take date offset into account
3775: IF (l_atp_rec.ship_date IS NOT NULL) AND (l_atp_rec.arrival_date IS NULL) THEN
3776:
3777: /* ship_rec_cal changes begin */
3778: l_atp_rec.arrival_date := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
3779: l_atp_rec.ship_date, l_atp_rec.shipping_cal_code, 1,
3780: l_atp_rec.intransit_cal_code, nvl(l_atp_rec.delivery_lead_time, 0), 1,
3781: l_atp_rec.receiving_cal_code, 1, p_instance_id) ;
3782: --4460369+ MSC_ATP_PVT.G_END_OF_DAY;
3795: END IF;
3796: /*plan by request date changes begin */
3797: IF l_atp_rec.requested_arrival_date IS NULL THEN
3798: -- date type is ship
3799: l_original_req_arrival_date := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
3800: NVL(l_atp_rec.original_request_date,l_atp_rec.requested_ship_date),
3801: l_atp_rec.shipping_cal_code, 1,
3802: l_atp_rec.intransit_cal_code, nvl(l_atp_rec.delivery_lead_time, 0), 1,
3803: l_atp_rec.receiving_cal_code, 1, p_instance_id) ;
4064: /* ship_rec_cal do we need this???
4065: l_atp_table.ship_date(i) := TRUNC(l_atp_table.requested_ship_date(i)) + MSC_ATP_PVT.G_END_OF_DAY;
4066:
4067: IF l_atp_table.ship_date(i) IS NULL THEN
4068: l_atp_table.ship_date(i) := TRUNC(MSC_CALENDAR.prev_work_day(
4069: l_atp_table.source_organization_id(i),
4070: p_instance_id,
4071: MSC_CALENDAR.TYPE_DAILY_BUCKET,
4072: l_atp_table.requested_arrival_date(i)
4067: IF l_atp_table.ship_date(i) IS NULL THEN
4068: l_atp_table.ship_date(i) := TRUNC(MSC_CALENDAR.prev_work_day(
4069: l_atp_table.source_organization_id(i),
4070: p_instance_id,
4071: MSC_CALENDAR.TYPE_DAILY_BUCKET,
4072: l_atp_table.requested_arrival_date(i)
4073: - nvl(l_atp_table.delivery_lead_time(i), 0)
4074: )) + MSC_ATP_PVT.G_END_OF_DAY;
4075: END IF;
4078: + MSC_ATP_PVT.G_END_OF_DAY;
4079: IF l_atp_table.arrival_date(i) IS NULL THEN
4080: -- dsting 2815549
4081: IF l_atp_table.customer_id(i) is null and l_atp_table.organization_id(i) is not null THEN
4082: l_atp_table.arrival_date(i) := TRUNC(MSC_CALENDAR.next_work_day(
4083: l_atp_table.organization_id(i),
4084: p_instance_id,
4085: MSC_CALENDAR.TYPE_DAILY_BUCKET,
4086: l_atp_table.requested_ship_date(i)
4081: IF l_atp_table.customer_id(i) is null and l_atp_table.organization_id(i) is not null THEN
4082: l_atp_table.arrival_date(i) := TRUNC(MSC_CALENDAR.next_work_day(
4083: l_atp_table.organization_id(i),
4084: p_instance_id,
4085: MSC_CALENDAR.TYPE_DAILY_BUCKET,
4086: l_atp_table.requested_ship_date(i)
4087: + nvl(l_atp_table.delivery_lead_time(i), 0)
4088: )) + MSC_ATP_PVT.G_END_OF_DAY;
4089: ELSE
4100: -- xxx dsting hack to make sure things don't ship before sysdate
4101: -- for an overridden ship set with req_arrival_date
4102: /* ship_rec_cal
4103: l_atp_table.earliest_acceptable_date(i) := l_sys_next_date;*/
4104: l_atp_table.earliest_acceptable_date(i) := MSC_CALENDAR.NEXT_WORK_DAY(
4105: l_shipping_cal_code,
4106: p_instance_id,
4107: sysdate);
4108: END IF; -- override
4128: l_atp_table.requested_arrival_date(i)),l_atp_table.requested_arrival_date(i),
4129: l_sysdate_orc);
4130: ELSE --bug4291375 If requested ship date is past due date then LAD needs to be offseted by the lead time.
4131: -- Calculate date after offset lead time
4132: l_sysdate_orc_new := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
4133: l_trunc_sysdate, l_atp_rec.shipping_cal_code, 1,
4134: l_atp_rec.intransit_cal_code, nvl(l_atp_rec.delivery_lead_time, 0), 1,
4135: l_atp_rec.receiving_cal_code, 1, p_instance_id);
4136: -- Calculate LAD after lead time taken in consideration
4252: -- l_sd_date := l_atp_rec.ship_date;
4253: -- ELSE
4254: l_sd_date := l_atp_rec.ship_date;
4255: /* s_cto_rearch: do not honor atp lead time
4256: l_sd_date := MSC_CALENDAR.DATE_OFFSET(
4257: l_atp_rec.organization_id,
4258: p_instance_id,
4259: 1,
4260: l_atp_rec.ship_date,
4525: p_instance_id,
4526: l_atp_rec.ship_date,
4527: --s_cto_rearch do not honor atp_lead time
4528: /*
4529: MSC_CALENDAR.DATE_OFFSET(
4530: l_atp_rec.organization_id,
4531: p_instance_id,
4532: 1,
4533: l_atp_rec.ship_date,
7008: p_atp_record.error_code := ATP_MULTI_REQ_DATES;
7009: RAISE FND_API.G_EXC_ERROR;
7010: END IF;
7011: --bug3821358
7012: l_sys_next_date := MSC_CALENDAR.NEXT_WORK_DAY(p_atp_record.manufacturing_cal_code, -- use OMC
7013: p_atp_record.instance_id,
7014: l_trunc_sysdate);
7015: IF PG_DEBUG in ('Y', 'C') THEN
7016: msc_sch_wb.atp_debug('ATP_Check: Sys Next Date is: ' || l_sys_next_date);
7276: -- we need to calculate the requested_ship_date
7277: -- requested_ship_date = requested_arrival_date - delivery_lead_time
7278:
7279: -- ship_rec_cal do we come here??
7280: l_requested_ship_date := MSC_CALENDAR.prev_work_day(
7281: p_atp_record.organization_id,
7282: p_atp_record.instance_id,
7283: MSC_CALENDAR.TYPE_DAILY_BUCKET,
7284: p_atp_record.requested_arrival_date
7279: -- ship_rec_cal do we come here??
7280: l_requested_ship_date := MSC_CALENDAR.prev_work_day(
7281: p_atp_record.organization_id,
7282: p_atp_record.instance_id,
7283: MSC_CALENDAR.TYPE_DAILY_BUCKET,
7284: p_atp_record.requested_arrival_date
7285: - l_delivery_lead_time);
7286:
7287: /* dlt
7290: l_requested_ship_date := p_atp_record.requested_arrival_date -
7291: l_delivery_lead_time ;
7292: ELSE
7293: --- Org
7294: l_requested_ship_date := MSC_CALENDAR.DATE_OFFSET
7295: (p_atp_record.to_organization_id,
7296: p_atp_record.to_instance_id,
7297: 1,
7298: p_atp_record.requested_arrival_date,
7389: -- we need to offset x working days from the the ship date.
7390:
7391: /* S_CTO_REACH : do not honor atp lead time
7392:
7393: l_requested_ship_date := MSC_CALENDAR.DATE_OFFSET
7394: (p_atp_record.organization_id,
7395: p_atp_record.instance_id,
7396: 1,
7397: l_requested_ship_date,
7402: -- Find the next working date for sysdate
7403: -- and comment out the call related to bug 1124538.
7404:
7405: BEGIN -- Bug2031894. Handle Exception here.
7406: l_sysdate := NVL(MSC_CALENDAR.next_work_day(
7407: p_atp_record.shipping_cal_code,
7408: p_atp_record.instance_id,
7409: sysdate), sysdate);
7410: EXCEPTION
7497: -- in ODS ATP we want to honor lead times for ATO models
7498: l_mso_lead_time_factor := MSC_ATP_PVT.G_MSO_LEAD_TIME_FACTOR;
7499: l_net_processing_lt := (l_fixed_lt + l_variable_lt * p_atp_record.quantity_ordered)*
7500: (1 + l_mso_lead_time_factor);
7501: l_ato_date := MSC_CALENDAR.DATE_OFFSET
7502: (p_atp_record.organization_id,
7503: p_atp_record.instance_id,
7504: 1,
7505: l_sysdate,
7541: --p_atp_record.ship_date := l_requested_ship_date;
7542: p_atp_record.ship_date := GREATEST(l_requested_ship_date, MSC_ATP_PVT.G_PTF_DATE); --5160663
7543: /* s_cto_arch: do not honor atp lead time
7544: IF NVL(p_atp_record.atp_lead_time, 0) > 0 THEN
7545: p_atp_record.ship_date := MSC_CALENDAR.DATE_OFFSET
7546: (p_atp_record.organization_id,
7547: p_atp_record.instance_id,
7548: 1,
7549: l_requested_ship_date,
7615:
7616: -- cchen 1276131 make sure we offset if atp_lead time exists
7617: /* s_cto_rearch: do not honor atp lead time
7618: IF NVL(p_atp_record.atp_lead_time, 0) > 0 THEN
7619: p_atp_record.ship_date := MSC_CALENDAR.DATE_OFFSET
7620: (p_atp_record.organization_id,
7621: p_atp_record.instance_id,
7622: 1,
7623: -- Bug 2625791, 2623816
9626: GREATEST(p_atp_record.requested_date_quantity, 0) +
9627: l_sub_requested_date_quantity + l_stealing_requested_date_qty;
9628:
9629: /* s_cto_rearch: do not honor atp lead time
9630: p_atp_record.ship_date := MSC_CALENDAR.DATE_OFFSET
9631: (p_atp_record.organization_id,
9632: p_atp_record.instance_id,
9633: 1,
9634: l_requested_ship_date, -- bug 1338599
9847: l_stealing_qty)); --bug3409973
9848: -- 2859130 move to next work day for forward pass
9849: /* Do not honor atp lead time
9850: IF NVL(p_atp_record.atp_lead_time, 0) > 0 THEN
9851: p_atp_record.ship_date := MSC_CALENDAR.DATE_OFFSET
9852: (p_atp_record.organization_id,
9853: p_atp_record.instance_id,
9854: 1,
9855: l_atp_date_this_level,
9854: 1,
9855: l_atp_date_this_level,
9856: NVL(p_atp_record.atp_lead_time, 0));
9857: ELSE
9858: p_atp_record.ship_date := MSC_CALENDAR.NEXT_WORK_DAY
9859: (p_atp_record.organization_id,
9860: p_atp_record.instance_id,
9861: 1,
9862: l_atp_date_this_level);
9867:
9868: IF (l_atp_date_this_level is NULL ) THEN
9869: p_atp_record.ship_date := NULL;
9870: ELSE
9871: p_atp_record.ship_date := MSC_CALENDAR.next_work_day(
9872: p_atp_record.shipping_cal_code,
9873: p_atp_record.instance_id,
9874: l_atp_date_this_level);
9875: END IF;
10313: -- ptf only if plan option is checked.
10314:
10315: -- Bug 3535999 - l_ptf_date should be validated on mgf cal
10316: -- l_ptf_date := l_sysdate;
10317: l_ptf_date := NVL(MSC_CALENDAR.next_work_day(
10318: p_atp_record.manufacturing_cal_code,
10319: p_atp_record.instance_id,
10320: l_trunc_sysdate), l_trunc_sysdate);
10321:
10463:
10464: -- 2859130 move to next work day for forward pass
10465: /* do not honor atp lead time
10466: IF NVL(p_atp_record.atp_lead_time, 0) > 0 THEN
10467: p_atp_record.ship_date := MSC_CALENDAR.DATE_OFFSET
10468: (p_atp_record.organization_id,
10469: p_atp_record.instance_id,
10470: 1,
10471: l_atp_date_this_level,
10470: 1,
10471: l_atp_date_this_level,
10472: NVL(p_atp_record.atp_lead_time, 0));
10473: ELSE
10474: p_atp_record.ship_date := MSC_CALENDAR.NEXT_WORK_DAY
10475: (p_atp_record.organization_id,
10476: p_atp_record.instance_id,
10477: 1,
10478: l_atp_date_this_level);
10477: 1,
10478: l_atp_date_this_level);
10479: END IF;
10480: */
10481: p_atp_record.ship_date := MSC_CALENDAR.next_work_day(
10482: p_atp_record.shipping_cal_code,
10483: p_atp_record.instance_id,
10484: l_atp_date_this_level);
10485:
10993: END IF;
10994: END IF;
10995:
10996: -- Bug 3737759 - Moved from below
10997: l_atp_rec.manufacturing_cal_code := MSC_CALENDAR.Get_Calendar_Code(
10998: l_sources.instance_id(j),
10999: null,
11000: null,
11001: null,
11002: null,
11003: null,
11004: l_sources.organization_id(j),
11005: null,
11006: MSC_CALENDAR.OMC);
11007:
11008: -- Bug 3593394
11009: IF MSC_ATP_PVT.G_USE_SHIP_REC_CAL='Y' THEN
11010: -- receiving party is org
11007:
11008: -- Bug 3593394
11009: IF MSC_ATP_PVT.G_USE_SHIP_REC_CAL='Y' THEN
11010: -- receiving party is org
11011: l_atp_rec.receiving_cal_code := MSC_CALENDAR.Get_Calendar_Code(
11012: p_atp_record.instance_id,
11013: null,
11014: null,
11015: null,
11016: null,
11017: null,
11018: p_atp_record.organization_id,
11019: l_sources.Ship_Method(j),
11020: MSC_CALENDAR.ORC);
11021:
11022: l_atp_rec.intransit_cal_code := MSC_CALENDAR.Get_Calendar_Code(
11023: l_sources.instance_id(j),
11024: null,
11018: p_atp_record.organization_id,
11019: l_sources.Ship_Method(j),
11020: MSC_CALENDAR.ORC);
11021:
11022: l_atp_rec.intransit_cal_code := MSC_CALENDAR.Get_Calendar_Code(
11023: l_sources.instance_id(j),
11024: null,
11025: null,
11026: null,
11027: null,
11028: 4,
11029: null,
11030: l_sources.Ship_Method(j),
11031: MSC_CALENDAR.VIC);
11032:
11033: l_atp_rec.shipping_cal_code := MSC_CALENDAR.Get_Calendar_Code(
11034: l_sources.instance_id(j),
11035: null,
11029: null,
11030: l_sources.Ship_Method(j),
11031: MSC_CALENDAR.VIC);
11032:
11033: l_atp_rec.shipping_cal_code := MSC_CALENDAR.Get_Calendar_Code(
11034: l_sources.instance_id(j),
11035: null,
11036: null,
11037: null,
11038: null,
11039: null,
11040: l_sources.organization_id(j),
11041: l_sources.Ship_Method(j),
11042: MSC_CALENDAR.OSC);
11043: ELSE
11044: -- Bug 3593394
11045: IF PG_DEBUG in ('Y', 'C') THEN
11046: msc_sch_wb.atp_debug('ATP_Check: ' || 'G_USE_SHIP_REC_CAL is N');
11044: -- Bug 3593394
11045: IF PG_DEBUG in ('Y', 'C') THEN
11046: msc_sch_wb.atp_debug('ATP_Check: ' || 'G_USE_SHIP_REC_CAL is N');
11047: END IF;
11048: -- Bug 3737759 - Use receiving org's OMC - l_atp_rec.receiving_cal_code := MSC_CALENDAR.FOC;
11049: l_atp_rec.receiving_cal_code := p_atp_record.manufacturing_cal_code;
11050: l_atp_rec.intransit_cal_code := MSC_CALENDAR.FOC;
11051: -- Bug 3737759 - Use shipping org's OMC - l_atp_rec.shipping_cal_code := MSC_CALENDAR.FOC;
11052: l_atp_rec.shipping_cal_code := l_atp_rec.manufacturing_cal_code;
11046: msc_sch_wb.atp_debug('ATP_Check: ' || 'G_USE_SHIP_REC_CAL is N');
11047: END IF;
11048: -- Bug 3737759 - Use receiving org's OMC - l_atp_rec.receiving_cal_code := MSC_CALENDAR.FOC;
11049: l_atp_rec.receiving_cal_code := p_atp_record.manufacturing_cal_code;
11050: l_atp_rec.intransit_cal_code := MSC_CALENDAR.FOC;
11051: -- Bug 3737759 - Use shipping org's OMC - l_atp_rec.shipping_cal_code := MSC_CALENDAR.FOC;
11052: l_atp_rec.shipping_cal_code := l_atp_rec.manufacturing_cal_code;
11053: END IF;
11054:
11047: END IF;
11048: -- Bug 3737759 - Use receiving org's OMC - l_atp_rec.receiving_cal_code := MSC_CALENDAR.FOC;
11049: l_atp_rec.receiving_cal_code := p_atp_record.manufacturing_cal_code;
11050: l_atp_rec.intransit_cal_code := MSC_CALENDAR.FOC;
11051: -- Bug 3737759 - Use shipping org's OMC - l_atp_rec.shipping_cal_code := MSC_CALENDAR.FOC;
11052: l_atp_rec.shipping_cal_code := l_atp_rec.manufacturing_cal_code;
11053: END IF;
11054:
11055: /* Bug 3737759 - Moved to beginning of IF
11052: l_atp_rec.shipping_cal_code := l_atp_rec.manufacturing_cal_code;
11053: END IF;
11054:
11055: /* Bug 3737759 - Moved to beginning of IF
11056: l_atp_rec.manufacturing_cal_code := MSC_CALENDAR.Get_Calendar_Code(
11057: l_sources.instance_id(j),
11058: null,
11059: null,
11060: null,
11061: null,
11062: null,
11063: l_sources.organization_id(j),
11064: null,
11065: MSC_CALENDAR.OMC);
11066: */
11067: ELSE
11068: -- receiving party is org
11069: /* Bug 3593394 - Moved after get_delivery_lead_time
11066: */
11067: ELSE
11068: -- receiving party is org
11069: /* Bug 3593394 - Moved after get_delivery_lead_time
11070: l_atp_rec.receiving_cal_code := MSC_CALENDAR.Get_Calendar_Code(
11071: p_atp_record.instance_id,
11072: null,
11073: null,
11074: null,
11075: null,
11076: null,
11077: p_atp_record.organization_id,
11078: l_sources.Ship_Method(j),
11079: MSC_CALENDAR.ORC);
11080: */
11081:
11082: -- supplier intransit LT
11083: MSC_ATP_PROC.Get_Supplier_Regions(l_sources.Supplier_Site_Id(j),
11113: END IF;
11114: --l_atp_rec.manufacturing_cal_code := p_atp_record.manufacturing_cal_code;
11115: --Bug 3687353: Use SMC irrespective of profile MSC_ATP_PVT.G_USE_SHIP_REC_CAL
11116:
11117: l_atp_rec.manufacturing_cal_code := MSC_CALENDAR.Get_Calendar_Code(
11118: l_sources.instance_id(j),
11119: p_plan_id,
11120: --s_cto_rearch
11121: --In case of ATP item pass model's id
11126: l_sources.supplier_site_id(j),
11127: null,
11128: null,
11129: null,
11130: MSC_CALENDAR.SMC);
11131:
11132: -- Bug 3593394
11133: IF MSC_ATP_PVT.G_USE_SHIP_REC_CAL='Y' THEN
11134:
11131:
11132: -- Bug 3593394
11133: IF MSC_ATP_PVT.G_USE_SHIP_REC_CAL='Y' THEN
11134:
11135: l_atp_rec.receiving_cal_code := MSC_CALENDAR.Get_Calendar_Code(
11136: p_atp_record.instance_id,
11137: null,
11138: null,
11139: null,
11141: null,
11142: p_atp_record.organization_id,
11143: l_atp_rec.ship_method,
11144: -- Bug 3593394 - l_sources.Ship_Method(j),
11145: MSC_CALENDAR.ORC);
11146:
11147: l_atp_rec.intransit_cal_code := MSC_CALENDAR.Get_Calendar_Code(
11148: p_atp_record.instance_id,
11149: null,
11143: l_atp_rec.ship_method,
11144: -- Bug 3593394 - l_sources.Ship_Method(j),
11145: MSC_CALENDAR.ORC);
11146:
11147: l_atp_rec.intransit_cal_code := MSC_CALENDAR.Get_Calendar_Code(
11148: p_atp_record.instance_id,
11149: null,
11150: null,
11151: null,
11152: null,
11153: 4,
11154: null,
11155: l_atp_rec.ship_method,
11156: MSC_CALENDAR.VIC);
11157:
11158: l_atp_rec.shipping_cal_code := MSC_CALENDAR.Get_Calendar_Code(
11159: l_sources.instance_id(j),
11160: null,
11154: null,
11155: l_atp_rec.ship_method,
11156: MSC_CALENDAR.VIC);
11157:
11158: l_atp_rec.shipping_cal_code := MSC_CALENDAR.Get_Calendar_Code(
11159: l_sources.instance_id(j),
11160: null,
11161: null,
11162: l_sources.supplier_id(j),
11163: l_sources.supplier_site_id(j),
11164: 1,
11165: null,
11166: l_atp_rec.ship_method,
11167: MSC_CALENDAR.SSC);
11168:
11169: /* Bug 3687353: Use SMC irrespective of profile MSC_ATP_PVT.G_USE_SHIP_REC_CAL
11170: l_atp_rec.manufacturing_cal_code := MSC_CALENDAR.Get_Calendar_Code(
11171: l_sources.instance_id(j),
11166: l_atp_rec.ship_method,
11167: MSC_CALENDAR.SSC);
11168:
11169: /* Bug 3687353: Use SMC irrespective of profile MSC_ATP_PVT.G_USE_SHIP_REC_CAL
11170: l_atp_rec.manufacturing_cal_code := MSC_CALENDAR.Get_Calendar_Code(
11171: l_sources.instance_id(j),
11172: p_plan_id,
11173: --s_cto_rearch
11174: --In case of ATP item pass model's id
11179: l_sources.supplier_site_id(j),
11180: null,
11181: null,
11182: null,
11183: MSC_CALENDAR.SMC);
11184: */
11185:
11186: ELSE
11187:
11188: -- Bug 3593394
11189: IF PG_DEBUG in ('Y', 'C') THEN
11190: msc_sch_wb.atp_debug('ATP_Check: ' || 'G_USE_SHIP_REC_CAL is N');
11191: END IF;
11192: -- Bug 3737759 - Use receiving org's OMC - l_atp_rec.receiving_cal_code := MSC_CALENDAR.FOC;
11193: l_atp_rec.receiving_cal_code := p_atp_record.manufacturing_cal_code;
11194: l_atp_rec.intransit_cal_code := MSC_CALENDAR.FOC;
11195: l_atp_rec.shipping_cal_code := MSC_CALENDAR.FOC;
11196:
11190: msc_sch_wb.atp_debug('ATP_Check: ' || 'G_USE_SHIP_REC_CAL is N');
11191: END IF;
11192: -- Bug 3737759 - Use receiving org's OMC - l_atp_rec.receiving_cal_code := MSC_CALENDAR.FOC;
11193: l_atp_rec.receiving_cal_code := p_atp_record.manufacturing_cal_code;
11194: l_atp_rec.intransit_cal_code := MSC_CALENDAR.FOC;
11195: l_atp_rec.shipping_cal_code := MSC_CALENDAR.FOC;
11196:
11197: /*Bug 3687353: Use SMC irrespective of profile MSC_ATP_PVT.G_USE_SHIP_REC_CAL
11198: l_atp_rec.manufacturing_cal_code := p_atp_record.manufacturing_cal_code;*/
11191: END IF;
11192: -- Bug 3737759 - Use receiving org's OMC - l_atp_rec.receiving_cal_code := MSC_CALENDAR.FOC;
11193: l_atp_rec.receiving_cal_code := p_atp_record.manufacturing_cal_code;
11194: l_atp_rec.intransit_cal_code := MSC_CALENDAR.FOC;
11195: l_atp_rec.shipping_cal_code := MSC_CALENDAR.FOC;
11196:
11197: /*Bug 3687353: Use SMC irrespective of profile MSC_ATP_PVT.G_USE_SHIP_REC_CAL
11198: l_atp_rec.manufacturing_cal_code := p_atp_record.manufacturing_cal_code;*/
11199:
11210: msc_sch_wb.atp_debug('**************************************************************');
11211: END IF;
11212:
11213: /* planned order due date as per OMC-D */
11214: l_planned_order_date := MSC_CALENDAR.PREV_WORK_DAY(
11215: p_atp_record.manufacturing_cal_code,
11216: p_atp_record.instance_id,
11217: l_requested_ship_date);
11218: IF PG_DEBUG in ('Y', 'C') THEN
11601: msc_sch_wb.atp_debug('ATP_Check: ' || 'l_ptf_date := ' ||l_ptf_date);
11602: END IF;
11603:
11604: -- Bug 3782472 - calculate ptf date for lower level
11605: l_ptf_date_for_child := MSC_CALENDAR.DATE_OFFSET (
11606: p_atp_record.manufacturing_cal_code,
11607: p_atp_record.instance_id,
11608: l_parent_ptf_date,
11609: -1 * l_post_pro_lt, -1);
11610: IF PG_DEBUG in ('Y', 'C') THEN
11611: msc_sch_wb.atp_debug('ATP_Check: ' ||
11612: 'After Man. Cal Offset l_ptf_date_for_child := ' ||l_ptf_date_for_child );
11613: END IF;
11614: l_ptf_date_for_child := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
11615: l_ptf_date_for_child, l_atp_rec.receiving_cal_code, -1,
11616: l_atp_rec.intransit_cal_code, -1 * l_atp_rec.delivery_lead_time, -1,
11617: l_atp_rec.shipping_cal_code, -1, p_atp_record.instance_id);
11618: IF PG_DEBUG in ('Y', 'C') THEN
11629: ||MSC_ATP_PVT.G_PTF_DATE );
11630: END IF;
11631:
11632: /* ship_rec_cal changes begin */
11633: l_dock_date := MSC_CALENDAR.DATE_OFFSET (
11634: p_atp_record.manufacturing_cal_code,
11635: p_atp_record.instance_id,
11636: l_requested_ship_date,
11637: -1 * l_post_pro_lt, -1);
11642: msc_sch_wb.atp_debug('ATP_Check: ' || '___________________Start Offset___________________');
11643: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after subtracting PPLT using OMC: '||l_dock_date);
11644: END IF;
11645:
11646: l_dock_date := MSC_CALENDAR.PREV_WORK_DAY(
11647: l_atp_rec.receiving_cal_code,
11648: p_atp_record.instance_id,
11649: l_dock_date);
11650: /* populating new_dock_date for transfer orders also, this is to support requirement of supporting
11654: IF PG_DEBUG in ('Y', 'C') THEN
11655: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after validating on ORC : '||l_dock_date);
11656: END IF;
11657:
11658: l_start_date := MSC_CALENDAR.DATE_OFFSET (
11659: l_atp_rec.intransit_cal_code,
11660: p_atp_record.instance_id,
11661: l_dock_date,
11662: -1 * l_atp_rec.delivery_lead_time, -1);
11669: msc_sch_wb.atp_debug('ATP_Check: ' || 'To Org : '|| p_atp_record.organization_id);
11670: msc_sch_wb.atp_debug('ATP_Check: ' || 'Lead Time : '|| l_atp_rec.delivery_lead_time);
11671: END IF;
11672: IF l_PTF_DATE < MSC_ATP_PVT.G_PTF_DATE THEN
11673: MSC_ATP_PVT.G_PTF_DATE := MSC_CALENDAR.DATE_OFFSET (l_atp_rec.intransit_cal_code,
11674: p_atp_record.instance_id,
11675: MSC_ATP_PVT.G_PTF_DATE ,
11676: -1 * l_atp_rec.delivery_lead_time, -1); -- Bug No: 4592289/4667756
11677: IF PG_DEBUG in ('Y', 'C') THEN
11680: else
11681: G_PTF_DATE := l_PTF_DATE;
11682: msc_sch_wb.atp_debug('ATP_Check: ' || 'G_PTF_DATE after assign : '||MSC_ATP_PVT.G_PTF_DATE );
11683: END IF;
11684: MSC_ATP_PVT.G_PTF_DATE := MSC_CALENDAR.NEXT_WORK_DAY(
11685: l_atp_rec.shipping_cal_code,
11686: p_atp_record.instance_id,
11687: MSC_ATP_PVT.G_PTF_DATE );
11688: IF PG_DEBUG in ('Y', 'C') THEN
11694: IF PG_DEBUG in ('Y', 'C') THEN
11695: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after subtracting DLT using VIC : '||l_start_date);
11696: END IF;
11697:
11698: l_atp_rec.requested_ship_date := MSC_CALENDAR.PREV_WORK_DAY(
11699: l_atp_rec.shipping_cal_code,
11700: l_atp_rec.instance_id,
11701: l_start_date);
11702: /* populating new_ship_date for transfer orders also, this is to support requirement of supporting
11709: IF PG_DEBUG in ('Y', 'C') THEN
11710: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after validating on OSC : '||l_atp_rec.requested_ship_date);
11711: END IF;
11712:
11713: l_order_date := MSC_CALENDAR.DATE_OFFSET (
11714: p_atp_record.manufacturing_cal_code,
11715: p_atp_record.instance_id,
11716: l_atp_rec.requested_ship_date,
11717: -1 * MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt, -1);
11742: /* Bug 3412143 - Earlier ptf_due_date was calculated as
11743: ptf_due_date := ptf_date + pre-processing lead time + delivery lead time + post-processing lead time
11744: it should actually be
11745: ptf_due_date := ptf_date + delivery lead time + post-processing lead time
11746: l_ptf_due_date := MSC_CALENDAR.DATE_OFFSET (
11747: p_atp_record.manufacturing_cal_code,
11748: p_atp_record.instance_id,
11749: l_ptf_date,
11750: MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt, 1);
11753: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after adding pre PLT using OMC: '||l_ptf_due_date);
11754: END IF;
11755: */
11756:
11757: l_ptf_due_date := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
11758: l_ptf_date, l_atp_rec.shipping_cal_code, +1,
11759: l_atp_rec.intransit_cal_code, nvl(l_atp_rec.delivery_lead_time, 0), +1,
11760: l_atp_rec.receiving_cal_code, +1, p_atp_record.instance_id);
11761:
11763: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after validating on OSC, adding intransit LT using VIC and ');
11764: msc_sch_wb.atp_debug('ATP_Check: ' || ' validating on ORC: '||l_ptf_due_date);
11765: END IF;
11766:
11767: l_ptf_due_date := MSC_CALENDAR.DATE_OFFSET (
11768: p_atp_record.manufacturing_cal_code, -- using OMC destination
11769: p_atp_record.instance_id,
11770: l_ptf_due_date,
11771: l_post_pro_lt, 1);
11777: msc_sch_wb.atp_debug('ATP_Check: ' || '___________________Start Calc LT Due Date___________________');
11778: msc_sch_wb.atp_debug('ATP_Check: ' || 'Sysdate: '||sysdate);
11779: END IF;
11780:
11781: l_lt_due_date := MSC_CALENDAR.DATE_OFFSET (
11782: p_atp_record.manufacturing_cal_code,
11783: p_atp_record.instance_id,
11784: -- sysdate, - Bug 3512996 - Removed unnecessary reference to sysdate
11785: l_trunc_sysdate,
11795: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after adding pre PLT using OMC: '||l_lt_due_date);
11796: msc_sch_wb.atp_debug('ATP_Check: ' || 'Setting PTF for lower level: '||MSC_ATP_PVT.G_PTF_DATE);
11797: END IF;
11798:
11799: l_lt_due_date := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
11800: l_lt_due_date, l_atp_rec.shipping_cal_code, +1,
11801: l_atp_rec.intransit_cal_code, nvl(l_atp_rec.delivery_lead_time, 0), +1,
11802: l_atp_rec.receiving_cal_code, +1, p_atp_record.instance_id);
11803:
11805: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after validating on OSC, adding intransit LT using VIC and ');
11806: msc_sch_wb.atp_debug('ATP_Check: ' || ' validating on ORC: '||l_lt_due_date);
11807: END IF;
11808:
11809: l_lt_due_date := MSC_CALENDAR.DATE_OFFSET (
11810: p_atp_record.manufacturing_cal_code, -- using OMC destination
11811: p_atp_record.instance_id,
11812: l_lt_due_date,
11813: l_post_pro_lt, 1);
11873: /* Enforce Pur LT - changes end */
11874:
11875:
11876: /* ship_rec_cal changes begin */
11877: l_start_date := MSC_CALENDAR.DATE_OFFSET(
11878: p_atp_record.manufacturing_cal_code,
11879: p_atp_record.instance_id,
11880: l_requested_ship_date,
11881: -1 * l_post_pro_lt, -1);
11898:
11899: /* Enforce Pur LT - No need to calculate dates if trunc has started */
11900: IF l_trunc_started = 2 THEN
11901: -- Actually dock date
11902: l_start_date := MSC_CALENDAR.PREV_WORK_DAY(
11903: l_atp_rec.receiving_cal_code,
11904: p_atp_record.instance_id,
11905: l_start_date);
11906: IF PG_DEBUG in ('Y', 'C') THEN
11980: IF (g_sup_cap_cum_date IS NOT NULL) THEN
11981: -- Get the next_working day based on plan owning org's calendar.
11982: -- to account for MBP's -ve 1 day offset.
11983: /* ship_rec_cal
11984: g_sup_cap_cum_date := MSC_CALENDAR.next_work_day
11985: (G_PLAN_INFO_REC.organization_id,
11986: G_PLAN_INFO_REC.sr_instance_id,
11987: 1,
11988: g_sup_cap_cum_date + 1);*/
11985: (G_PLAN_INFO_REC.organization_id,
11986: G_PLAN_INFO_REC.sr_instance_id,
11987: 1,
11988: g_sup_cap_cum_date + 1);*/
11989: g_sup_cap_cum_date := MSC_CALENDAR.next_work_day(
11990: l_atp_rec.manufacturing_cal_code,
11991: G_PLAN_INFO_REC.sr_instance_id,
11992: g_sup_cap_cum_date + 1);
11993: IF PG_DEBUG in ('Y', 'C') THEN
12009: msc_sch_wb.atp_debug('ATP_Check: ' || 'l_net_processing_lt := ' || l_net_processing_lt);
12010: END IF;
12011:
12012: -- Bug 3782472 - calculate ptf date for lower level
12013: l_ptf_date_for_child := MSC_CALENDAR.DATE_OFFSET (
12014: p_atp_record.manufacturing_cal_code,
12015: p_atp_record.instance_id,
12016: l_parent_ptf_date,
12017: -1 * l_post_pro_lt, -1);
12025: msc_sch_wb.atp_debug('ATP_Check: ' || '--- Capacity to Ship ---');
12026: END IF;
12027:
12028: -- Bug 3782472 - calculate ptf date for lower level
12029: l_ptf_date_for_child := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
12030: l_ptf_date_for_child, l_atp_rec.receiving_cal_code, -1,
12031: l_atp_rec.intransit_cal_code, -1 * l_atp_rec.delivery_lead_time, -1,
12032: l_atp_rec.shipping_cal_code, -1, p_atp_record.instance_id);
12033:
12034: /* Enforce Pur LT - Check if date needs to be calculated */
12035: IF l_trunc_started = 1 THEN
12036: l_supplier_start_date := l_trunc_sysdate;
12037: ELSE
12038: l_supplier_start_date := MSC_CALENDAR.DATE_OFFSET(
12039: l_atp_rec.intransit_cal_code,
12040: l_atp_rec.instance_id,
12041: l_new_dock_date,
12042: (-1 * l_atp_rec.delivery_lead_time), -1);
12057:
12058:
12059: /* Enforce Pur LT - Check if date needs to be calculated */
12060: IF l_trunc_started = 2 THEN
12061: l_supplier_start_date := MSC_CALENDAR.PREV_WORK_DAY(
12062: l_atp_rec.shipping_cal_code,
12063: l_atp_rec.instance_id,
12064: l_supplier_start_date);
12065: IF PG_DEBUG in ('Y', 'C') THEN
12092:
12093: l_atp_rec.requested_ship_date := l_new_dock_date;
12094:
12095: -- Bug 3782472 - calculate ptf date for lower level
12096: l_ptf_date_for_child := MSC_CALENDAR.PREV_WORK_DAY(
12097: l_atp_rec.receiving_cal_code,
12098: p_atp_record.instance_id,
12099: l_ptf_date_for_child);
12100:
12107: /* Enforce Pur LT - Check if date needs to be calculated */
12108: IF l_trunc_started = 1 THEN
12109: l_new_ship_date := l_trunc_sysdate;
12110: ELSE
12111: l_new_ship_date := MSC_CALENDAR.DATE_OFFSET(
12112: l_atp_rec.intransit_cal_code,
12113: l_atp_rec.instance_id,
12114: l_start_date,
12115: (-1 * l_atp_rec.delivery_lead_time), -1);
12128: IF PG_DEBUG in ('Y', 'C') THEN
12129: msc_sch_wb.atp_debug('ATP_Check: ' || 'Past due date truncated to: '||l_trunc_sysdate);
12130: END IF;
12131: ELSE
12132: l_new_ship_date := MSC_CALENDAR.PREV_WORK_DAY(
12133: l_atp_rec.shipping_cal_code,
12134: l_atp_rec.instance_id,
12135: l_new_ship_date);
12136:
12159: /* Enforce Pur LT - Check if date needs to be calculated */
12160: IF l_trunc_started = 1 THEN
12161: l_supplier_start_date := l_trunc_sysdate;
12162: ELSIF l_process_lt > 0 THEN
12163: l_supplier_start_date := MSC_CALENDAR.DATE_OFFSET(
12164: l_atp_rec.manufacturing_cal_code,
12165: G_PLAN_INFO_REC.sr_instance_id,
12166: l_supplier_start_date,
12167: (-1 * l_process_lt), -1);
12181: l_sugg_start_date := l_supplier_start_date; -- Bug 3241766
12182:
12183: /* Enforce Pur LT - Check if date needs to be calculated */
12184: IF l_trunc_started = 2 THEN
12185: l_supplier_start_date := MSC_CALENDAR.DATE_OFFSET(
12186: p_atp_record.manufacturing_cal_code, -- use OMC
12187: l_atp_rec.instance_id,
12188: l_supplier_start_date,
12189: (-1 * l_pre_pro_lt), -1);
12225: msc_sch_wb.atp_debug('ATP_Check: ' || 'PTF Date: '||l_ptf_date);
12226: END IF;
12227:
12228: IF l_start_date < l_ptf_date and l_post_pro_lt > 0 THEN
12229: l_ptf_due_date := MSC_CALENDAR.DATE_OFFSET(
12230: p_atp_record.manufacturing_cal_code,
12231: p_atp_record.instance_id,
12232: l_ptf_date,
12233: l_post_pro_lt, 1);
12250: This constraint will get enforced via the G_PTF_DATE which has already been set to a date
12251: greater than or equal to l_ptf_date
12252: IF p_search = FORWARD_SCHEDULING THEN
12253: l_supplier_request_date := GREATEST(l_start_date, l_ptf_date);
12254: l_supplier_request_date := MSC_CALENDAR.PREV_WORK_DAY(
12255: l_atp_rec.receiving_cal_code,
12256: l_atp_rec.instance_id,
12257: l_supplier_request_date);
12258:
12261: END IF;
12262:
12263: IF l_sources.sup_cap_type(j) = 1 THEN
12264: -- capacity to be checked on ship date
12265: l_supplier_request_date := MSC_CALENDAR.DATE_OFFSET(
12266: l_atp_rec.intransit_cal_code,
12267: l_atp_rec.instance_id,
12268: l_supplier_request_date,
12269: (-1 * l_atp_rec.delivery_lead_time), -1);
12269: (-1 * l_atp_rec.delivery_lead_time), -1);
12270: IF PG_DEBUG in ('Y', 'C') THEN
12271: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after subtracting intransit LT using VIC : '||l_supplier_request_date);
12272: END IF;
12273: l_supplier_request_date := MSC_CALENDAR.PREV_WORK_DAY(
12274: l_atp_rec.shipping_cal_code,
12275: l_atp_rec.instance_id,
12276: l_supplier_request_date);
12277: END IF;
12299: ELSE
12300: l_store_order_date := l_trunc_sysdate;
12301: END IF;
12302:
12303: l_lt_due_date := MSC_CALENDAR.DATE_OFFSET(
12304: p_atp_record.manufacturing_cal_code,
12305: l_atp_rec.instance_id,
12306: l_trunc_sysdate,
12307: l_pre_pro_lt, 1);
12312: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after adding Pre PLT using OMC: '||l_lt_due_date);
12313: END IF;
12314:
12315: IF l_process_lt > 0 THEN
12316: l_lt_due_date := MSC_CALENDAR.DATE_OFFSET(
12317: l_atp_rec.manufacturing_cal_code,
12318: G_PLAN_INFO_REC.sr_instance_id,
12319: l_lt_due_date,
12320: l_process_lt, 1);
12324: END IF;
12325:
12326: -- intransit lead time offset in case of capacity to ship
12327: IF l_sources.sup_cap_type(j) = 1 THEN
12328: l_lt_due_date:= MSC_CALENDAR.NEXT_WORK_DAY(
12329: l_atp_rec.shipping_cal_code,
12330: p_atp_record.instance_id,
12331: l_lt_due_date);
12332: --Bug 3821358
12343: msc_sch_wb.atp_debug('ATP_Check: ' || '--- Capacity to Ship ---');
12344: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after validating on SSC: '||l_lt_due_date);
12345: END IF;
12346:
12347: l_lt_due_date := MSC_CALENDAR.DATE_OFFSET(
12348: l_atp_rec.intransit_cal_code,
12349: G_PLAN_INFO_REC.sr_instance_id,
12350: l_lt_due_date,
12351: l_atp_rec.delivery_lead_time, 1);
12349: G_PLAN_INFO_REC.sr_instance_id,
12350: l_lt_due_date,
12351: l_atp_rec.delivery_lead_time, 1);
12352:
12353: l_lt_due_date := MSC_CALENDAR.NEXT_WORK_DAY(
12354: l_atp_rec.receiving_cal_code,
12355: p_atp_record.instance_id,
12356: l_lt_due_date);
12357:
12367: msc_sch_wb.atp_debug('ATP_Check: ' || '--- Capacity to Dock ---');
12368: END IF;
12369:
12370: --Bug 3821358
12371: l_lt_due_date := MSC_CALENDAR.NEXT_WORK_DAY(
12372: l_atp_rec.receiving_cal_code,
12373: p_atp_record.instance_id,
12374: l_lt_due_date);
12375:
12374: l_lt_due_date);
12375:
12376: l_store_dock_date := l_lt_due_date;
12377:
12378: l_store_ship_date := MSC_CALENDAR.DATE_OFFSET(
12379: l_atp_rec.intransit_cal_code,
12380: G_PLAN_INFO_REC.sr_instance_id,
12381: l_lt_due_date,
12382: (-1 * l_atp_rec.delivery_lead_time), -1);
12380: G_PLAN_INFO_REC.sr_instance_id,
12381: l_lt_due_date,
12382: (-1 * l_atp_rec.delivery_lead_time), -1);
12383:
12384: l_store_ship_date := MSC_CALENDAR.PREV_WORK_DAY(
12385: l_atp_rec.shipping_cal_code,
12386: p_atp_record.instance_id,
12387: l_store_ship_date);
12388: END IF;
12386: p_atp_record.instance_id,
12387: l_store_ship_date);
12388: END IF;
12389:
12390: /*l_lt_due_date := MSC_CALENDAR.NEXT_WORK_DAY(
12391: l_atp_rec.receiving_cal_code,
12392: p_atp_record.instance_id,
12393: l_lt_due_date);*/
12394:
12404: IF PG_DEBUG in ('Y', 'C') THEN
12405: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after validating on ORC: '||l_lt_due_date);
12406: END IF;
12407:
12408: l_lt_due_date := MSC_CALENDAR.DATE_OFFSET(
12409: p_atp_record.manufacturing_cal_code,
12410: p_atp_record.instance_id,
12411: l_lt_due_date,
12412: l_post_pro_lt, 1);
13031:
13032: /* ship_rec_cal changes begin */
13033: -- BEGIN -- removed exception handling from here so that it can be handled in the end
13034: /* Bug 3241766 : Broke the single call to get intermediate dates
13035: l_ship_date := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
13036: l_atp_rec.ship_date, l_atp_rec.shipping_cal_code, +1,
13037: l_atp_rec.intransit_cal_code, nvl(l_atp_rec.delivery_lead_time, 0), +1,
13038: l_atp_rec.receiving_cal_code, +1, p_atp_record.instance_id);
13039: */
13036: l_atp_rec.ship_date, l_atp_rec.shipping_cal_code, +1,
13037: l_atp_rec.intransit_cal_code, nvl(l_atp_rec.delivery_lead_time, 0), +1,
13038: l_atp_rec.receiving_cal_code, +1, p_atp_record.instance_id);
13039: */
13040: l_ship_date := MSC_CALENDAR.NEXT_WORK_DAY(
13041: l_atp_rec.shipping_cal_code,
13042: p_atp_record.instance_id,
13043: l_atp_rec.ship_date);
13044: l_new_ship_date := l_ship_date;
13048: msc_sch_wb.atp_debug('ATP_Check: ' || '___________________Start Offset___________________');
13049: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after validating on OSC: '||l_ship_date);
13050: END IF;
13051:
13052: l_ship_date := MSC_CALENDAR.DATE_OFFSET(
13053: l_atp_rec.intransit_cal_code,
13054: p_atp_record.instance_id,
13055: l_ship_date,
13056: nvl(l_atp_rec.delivery_lead_time, 0),
13059: IF PG_DEBUG in ('Y', 'C') THEN
13060: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after adding intransit LT using VIC: '||l_ship_date);
13061: END IF;
13062:
13063: l_ship_date := MSC_CALENDAR.NEXT_WORK_DAY(
13064: l_atp_rec.receiving_cal_code,
13065: p_atp_record.instance_id,
13066: l_ship_date);
13067: l_new_dock_date := l_ship_date;
13072:
13073: -- Bug 3241766 : Back calculate start date and order date
13074: l_sugg_start_date := l_new_ship_date;
13075:
13076: l_order_date := MSC_CALENDAR.DATE_OFFSET (
13077: p_atp_record.manufacturing_cal_code,
13078: p_atp_record.instance_id,
13079: l_sugg_start_date,
13080: -- Bug 3633591 - Dont use global variable here : -1 * MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt, -1);
13096: IF PG_DEBUG in ('Y', 'C') THEN
13097: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after subtracting pre PLT using OMC : '||l_order_date);
13098: END IF;
13099:
13100: l_ship_date := MSC_CALENDAR.DATE_OFFSET (
13101: p_atp_record.manufacturing_cal_code,
13102: p_atp_record.instance_id,
13103: l_ship_date,
13104: l_post_pro_lt, 1);
13147: ELSE
13148:
13149: IF l_sources.sup_cap_type(j) = 1 THEN
13150:
13151: l_ship_date:= MSC_CALENDAR.NEXT_WORK_DAY(
13152: l_atp_rec.shipping_cal_code,
13153: l_atp_rec.instance_id,
13154: l_atp_rec.ship_date);
13155:
13159: END IF;
13160:
13161: l_new_ship_date := l_ship_date; -- Bug 3241766
13162:
13163: l_ship_date := MSC_CALENDAR.DATE_OFFSET(
13164: l_atp_rec.intransit_cal_code,
13165: l_atp_rec.instance_id,
13166: l_ship_date,
13167: l_atp_rec.delivery_lead_time, 1);
13177: msc_sch_wb.atp_debug('ATP_Check: ' || '--- Capacity to Dock ---');
13178: END IF;
13179:
13180: -- Bug 3241766 : back calculate the ship date
13181: l_new_ship_date := MSC_CALENDAR.DATE_OFFSET(
13182: l_atp_rec.intransit_cal_code,
13183: l_atp_rec.instance_id,
13184: l_ship_date,
13185: -1 * l_atp_rec.delivery_lead_time, -1);
13187: IF PG_DEBUG in ('Y', 'C') THEN
13188: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after adding intransit LT using VIC: '||l_new_ship_date);
13189: END IF;
13190:
13191: l_new_ship_date := MSC_CALENDAR.PREV_WORK_DAY(
13192: l_atp_rec.shipping_cal_code,
13193: l_atp_rec.instance_id,
13194: l_new_ship_date);
13195: --Bug 3821358
13199: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after validating on SSC: '||l_new_ship_date);
13200: END IF;
13201: END IF;
13202:
13203: l_ship_date := MSC_CALENDAR.NEXT_WORK_DAY(
13204: l_atp_rec.receiving_cal_code,
13205: l_atp_rec.instance_id,
13206: l_ship_date );
13207:
13216: IF G_PLAN_INFO_REC.enforce_pur_lead_time = 2 AND l_new_ship_date <= l_trunc_sysdate THEN
13217: l_sugg_start_date := l_trunc_sysdate;
13218: ELSE
13219: IF (l_sources.sup_cap_type(j) = 1) THEN --Bug 3821358
13220: l_sugg_start_date := MSC_CALENDAR.DATE_OFFSET(
13221: l_atp_rec.manufacturing_cal_code,
13222: l_atp_rec.instance_id,
13223: l_new_ship_date,
13224: (-1 * l_process_lt), -1);
13222: l_atp_rec.instance_id,
13223: l_new_ship_date,
13224: (-1 * l_process_lt), -1);
13225: ELSE
13226: l_sugg_start_date := MSC_CALENDAR.DATE_OFFSET(
13227: l_atp_rec.manufacturing_cal_code,
13228: l_atp_rec.instance_id,
13229: l_new_dock_date,
13230: (-1 * l_process_lt), -1);
13240:
13241: IF G_PLAN_INFO_REC.enforce_pur_lead_time = 2 AND l_sugg_start_date <= l_trunc_sysdate THEN
13242: l_order_date := l_trunc_sysdate;
13243: ELSE
13244: l_order_date := MSC_CALENDAR.DATE_OFFSET(
13245: p_atp_record.manufacturing_cal_code, -- use OMC
13246: l_atp_rec.instance_id,
13247: l_sugg_start_date ,
13248: (-1 * l_pre_pro_lt), -1);
13255: IF PG_DEBUG in ('Y', 'C') THEN
13256: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after subtracting pre PLT using OMC : '||l_order_date);
13257: END IF;
13258:
13259: l_ship_date := MSC_CALENDAR.DATE_OFFSET(
13260: p_atp_record.manufacturing_cal_code,
13261: l_atp_rec.instance_id,
13262: l_ship_date,
13263: l_post_pro_lt, 1);
13279: --- atp lead time from this source and not just ship date
13280: /* s_cto_rearch: Do not honot ATP lead time
13281: IF NVL(p_atp_record.atp_lead_time, 0) > 0 THEN
13282: l_atp_lt_offset_ship_date :=
13283: MSC_CALENDAR.DATE_OFFSET(
13284: p_atp_record.organization_id,
13285: p_atp_record.instance_id,
13286: 1,
13287: l_ship_date,
13420: END IF; -- IF l_atp_pegging_tab.COUNT > 0 THEN
13421:
13422: --bug 2798667: we have already calculated the final date
13423: /*p_atp_record.ship_date :=
13424: MSC_CALENDAR.DATE_OFFSET(
13425: p_atp_record.organization_id,
13426: p_atp_record.instance_id,
13427: 1,
13428: l_ship_date,
13799: IF PG_DEBUG in ('Y', 'C') THEN
13800: msc_sch_wb.atp_debug('ATP_Check: ' || 'Calculate order date');
13801: END IF;
13802: /* ship_rec_cal
13803: l_order_date := MSC_CALENDAR.DATE_OFFSET
13804: (p_atp_record.organization_id,
13805: p_atp_record.instance_id,
13806: 1,
13807: l_requested_ship_date,
13806: 1,
13807: l_requested_ship_date,
13808: (-1 * l_net_processing_lt));*/
13809: -- since it is a make case only calendar being used is p_atp_record.manufacturing_cal_code
13810: l_order_date := MSC_CALENDAR.DATE_OFFSET(
13811: p_atp_record.manufacturing_cal_code,
13812: p_atp_record.instance_id,
13813: l_requested_ship_date,
13814: (-1 * l_net_processing_lt), -1);
13828: IF PG_DEBUG in ('Y', 'C') THEN
13829: msc_sch_wb.atp_debug('ATP_Check: ' || 'Calculate start date');
13830: END IF;
13831: /* ship_rec_cal
13832: l_start_date := MSC_CALENDAR.DATE_OFFSET
13833: (p_atp_record.organization_id,
13834: p_atp_record.instance_id,
13835: 1,
13836: l_requested_ship_date,
13834: p_atp_record.instance_id,
13835: 1,
13836: l_requested_ship_date,
13837: (-1 * l_process_lt));*/
13838: l_start_date := MSC_CALENDAR.DATE_OFFSET(
13839: p_atp_record.manufacturing_cal_code,
13840: p_atp_record.instance_id,
13841: l_requested_ship_date,
13842: (-1 * l_process_lt), -1);
13861: ---calculate earliest due date possible based on PTF date
13862: IF l_net_processing_lt > 0 THEN
13863: /* ship_rec_cal
13864: l_lt_due_date :=
13865: MSC_CALENDAR.date_offset(p_atp_record.organization_id,
13866: p_atp_record.instance_id,
13867: 1,
13868: l_sysdate,
13869: l_net_processing_lt);*/
13867: 1,
13868: l_sysdate,
13869: l_net_processing_lt);*/
13870: l_lt_due_date :=
13871: MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
13872: p_atp_record.instance_id,
13873: l_sysdate,
13874: l_net_processing_lt, 1);
13875: ELSE
13877: END IF;
13878: ---calculate earliest due date possible based on PTF date
13879: IF l_process_lt > 0 THEN
13880: /* ship_rec_cal
13881: l_ptf_due_date := MSC_CALENDAR.date_offset(p_atp_record.organization_id,
13882: p_atp_record.instance_id,
13883: 1,
13884: l_ptf_date,
13885: l_process_lt);*/
13882: p_atp_record.instance_id,
13883: 1,
13884: l_ptf_date,
13885: l_process_lt);*/
13886: l_ptf_due_date := MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
13887: p_atp_record.instance_id,
13888: l_ptf_date,
13889: l_process_lt, 1);
13890: ELSE
13923: -- Therefore we calcuate these dates
13924: --- bug 2178544
13925: IF l_net_processing_lt > 0 THEN
13926: /* ship_rec_cal
13927: MSC_ATP_PVT.G_FUTURE_ORDER_DATE := MSC_CALENDAR.date_offset(p_atp_record.organization_id,
13928: p_atp_record.instance_id,
13929: 1,
13930: l_sysdate,
13931: l_net_processing_lt); */
13928: p_atp_record.instance_id,
13929: 1,
13930: l_sysdate,
13931: l_net_processing_lt); */
13932: MSC_ATP_PVT.G_FUTURE_ORDER_DATE := MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
13933: p_atp_record.instance_id,
13934: l_sysdate,
13935: l_net_processing_lt, 1);
13936: ELSE
13938: END IF;
13939:
13940: IF l_process_lt > 0 THEN
13941: /* ship_rec_cal
13942: l_start_date := MSC_CALENDAR.date_offset(p_atp_record.organization_id,
13943: p_atp_record.instance_id,
13944: 1,
13945: l_ptf_date,
13946: l_process_lt); */
13943: p_atp_record.instance_id,
13944: 1,
13945: l_ptf_date,
13946: l_process_lt); */
13947: l_start_date := MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
13948: p_atp_record.instance_id,
13949: l_ptf_date,
13950: l_process_lt, 1);
13951: ELSE
13960: -- start date. This PTF is start date for the components for the current itme
13961: IF l_pre_pro_lt >0 THEN
13962: MSC_ATP_PVT.G_PTF_DATE := GREATEST(
13963: /* ship_rec_cal
13964: MSC_CALENDAR.date_offset(p_atp_record.organization_id,
13965: p_atp_record.instance_id,
13966: 1,
13967: MSC_ATP_PVT.G_PTF_DATE,
13968: -1 * l_process_lt),*/
13965: p_atp_record.instance_id,
13966: 1,
13967: MSC_ATP_PVT.G_PTF_DATE,
13968: -1 * l_process_lt),*/
13969: MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
13970: p_atp_record.instance_id,
13971: MSC_ATP_PVT.G_PTF_DATE,
13972: -1 * l_process_lt, -1),
13973: l_ptf_date,
13971: MSC_ATP_PVT.G_PTF_DATE,
13972: -1 * l_process_lt, -1),
13973: l_ptf_date,
13974: /* ship_rec_cal
13975: MSC_CALENDAR.date_offset(p_atp_record.organization_id,
13976: p_atp_record.instance_id,
13977: 1,
13978: l_sysdate,
13979: l_pre_pro_lt));*/
13976: p_atp_record.instance_id,
13977: 1,
13978: l_sysdate,
13979: l_pre_pro_lt));*/
13980: MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
13981: p_atp_record.instance_id,
13982: l_sysdate,
13983: l_pre_pro_lt, 1));
13984: ELSE
13983: l_pre_pro_lt, 1));
13984: ELSE
13985: MSC_ATP_PVT.G_PTF_DATE := GREATEST(
13986: /* ship_rec_cal
13987: MSC_CALENDAR.date_offset(p_atp_record.organization_id,
13988: p_atp_record.instance_id,
13989: 1,
13990: MSC_ATP_PVT.G_PTF_DATE,
13991: -1 * l_process_lt),*/
13988: p_atp_record.instance_id,
13989: 1,
13990: MSC_ATP_PVT.G_PTF_DATE,
13991: -1 * l_process_lt),*/
13992: MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
13993: p_atp_record.instance_id,
13994: MSC_ATP_PVT.G_PTF_DATE,
13995: -1 * l_process_lt, -1),
13996: l_ptf_date, l_sysdate);
14040: -- by procedure MSC_ATP_PROC.get_process_effectivity
14041: --Details. Derive Item's Start Date by Offsetting
14042: --Due date with LT. Check effectivity on Start Date.
14043: /* ship_rec_cal
14044: l_opm_start_date := MSC_CALENDAR.date_offset(p_atp_record.organization_id,
14045: p_atp_record.instance_id,
14046: 1,
14047: l_requested_ship_date,
14048: -1 * (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
14046: 1,
14047: l_requested_ship_date,
14048: -1 * (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
14049: nvl(PF_ITEM_INFO_REC.variable_lt,0) * l_PO_qty));*/
14050: l_opm_start_date := MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
14051: p_atp_record.instance_id,
14052: l_requested_ship_date,
14053: -1 * (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
14054: nvl(PF_ITEM_INFO_REC.variable_lt,0) * l_PO_qty), -1);
14406: l_opm_start_date := l_requested_ship_date -
14407: (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
14408: nvl(PF_ITEM_INFO_REC.variable_lt,0) *
14409: l_avail_assembly_qty);*/
14410: l_opm_start_date := MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
14411: p_atp_record.instance_id,
14412: l_requested_ship_date,
14413: -1 * (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
14414: nvl(PF_ITEM_INFO_REC.variable_lt,0) * l_avail_assembly_qty), -1);
14693: --(ssurendr) Bug 2865389. call get_process_effectivity
14694: -- again since quantity has changed. Routing
14695: -- and bill seq id could change in this case.
14696: /* ship_rec_cal
14697: l_opm_start_date := MSC_CALENDAR.date_offset(p_atp_record.organization_id,
14698: p_atp_record.instance_id,
14699: 1,
14700: l_requested_ship_date,
14701: -1 * (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
14699: 1,
14700: l_requested_ship_date,
14701: -1 * (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
14702: nvl(PF_ITEM_INFO_REC.variable_lt,0) * l_res_demand));*/
14703: l_opm_start_date := MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
14704: p_atp_record.instance_id,
14705: l_requested_ship_date,
14706: -1 * (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
14707: nvl(PF_ITEM_INFO_REC.variable_lt,0) * l_res_demand), -1);
15046: --(ssurendr) Bug 2865389 Call procedure get_process_effectivity
15047: --Details. Derive Item's Start Date by Offsetting
15048: --Due date with LT. Check effectivity on Start Date.
15049: /* ship_rec_cal
15050: l_opm_start_date := MSC_CALENDAR.date_offset(p_atp_record.organization_id,
15051: p_atp_record.instance_id,
15052: 1,
15053: l_requested_ship_date,
15054: -1 * (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
15052: 1,
15053: l_requested_ship_date,
15054: -1 * (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
15055: nvl(PF_ITEM_INFO_REC.variable_lt,0) * l_PO_qty));*/
15056: l_opm_start_date := MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
15057: p_atp_record.instance_id,
15058: l_requested_ship_date,
15059: -1 * (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
15060: nvl(PF_ITEM_INFO_REC.variable_lt,0) * l_PO_qty), -1);
15259: l_temp_date := p_atp_record.ship_date;
15260: END IF;
15261:
15262: -- 2859130 move to next work date for forward pass
15263: l_temp_date := MSC_CALENDAR.NEXT_WORK_DAY(
15264: p_atp_record.organization_id,
15265: p_atp_record.instance_id,
15266: 1,
15267: l_temp_date);
15271: --- atp lead time from this source and not just ship date
15272: /* s_cto_rearch: do not honor ATP lead time
15273: IF NVL(p_atp_record.atp_lead_time, 0) > 0 THEN
15274: l_atp_lt_offset_ship_date :=
15275: MSC_CALENDAR.DATE_OFFSET(
15276: p_atp_record.organization_id,
15277: p_atp_record.instance_id,
15278: 1,
15279: --GREATEST(l_comp_atp_date, l_res_atp_date),
15371: END IF; -- IF l_atp_pegging_tab.COUNT > 0 THEN
15372:
15373: --bug 2798667: This value is already in l_atp_lt_offset_ship_date
15374: /* p_atp_record.ship_date :=
15375: MSC_CALENDAR.DATE_OFFSET(
15376: p_atp_record.organization_id,
15377: p_atp_record.instance_id,
15378: 1,
15379: --GREATEST(l_comp_atp_date, l_res_atp_date),
15412: msc_sch_wb.atp_debug('ATP_Check: ' || 'Calculate order date');
15413: END IF;
15414: -- since it is a make case only calendar being used is
15415: --p_atp_record.manufacturing_cal_code
15416: l_order_date := MSC_CALENDAR.DATE_OFFSET(
15417: p_atp_record.manufacturing_cal_code,
15418: p_atp_record.instance_id,
15419: l_temp_date,
15420: (-1 * l_net_processing_lt), -1);
15433: IF (l_process_lt > 0) THEN
15434: IF PG_DEBUG in ('Y', 'C') THEN
15435: msc_sch_wb.atp_debug('ATP_Check: ' || 'Calculate start date');
15436: END IF;
15437: l_start_date := MSC_CALENDAR.DATE_OFFSET(
15438: p_atp_record.manufacturing_cal_code,
15439: p_atp_record.instance_id,
15440: l_temp_date,
15441: (-1 * l_process_lt), -1);
15852:
15853:
15854: IF (l_net_demand = 0) THEN
15855: /* s_cto_rearch: Do not honor atp lead time
15856: p_atp_record.ship_date := MSC_CALENDAR.DATE_OFFSET
15857: (p_atp_record.organization_id,
15858: p_atp_record.instance_id,
15859: 1,
15860: l_requested_ship_date,
16356: -- Supplier Capacity and Lead Time (SCLT) changes
16357: -- First do the Pre-Processing Lead Time Offset in Forward Case.
16358: /* IF l_pre_pro_lt > 0 THEN
16359: /* ship_rec_cal
16360: l_dock_date := MSC_CALENDAR.DATE_OFFSET(p_atp_record.organization_id,
16361: p_atp_record.instance_id, 1,
16362: l_sysdate,
16363: l_pre_pro_lt);*/
16364: /* l_dock_date := MSC_CALENDAR.DATE_OFFSET(
16360: l_dock_date := MSC_CALENDAR.DATE_OFFSET(p_atp_record.organization_id,
16361: p_atp_record.instance_id, 1,
16362: l_sysdate,
16363: l_pre_pro_lt);*/
16364: /* l_dock_date := MSC_CALENDAR.DATE_OFFSET(
16365: p_atp_record.manufacturing_cal_code,
16366: p_atp_record.instance_id,
16367: l_sysdate,
16368: l_pre_pro_lt, 1);
16377: END IF;
16378: -- Next do the Processing lead time offset in Forward Case using Plan Owning Org's calendar.
16379: IF p_atp_record.atp_lead_time > 0 THEN
16380: /* ship_rec_cal
16381: l_dock_date := MSC_CALENDAR.DATE_OFFSET(G_PLAN_INFO_REC.organization_id,
16382: G_PLAN_INFO_REC.sr_instance_id, 1,
16383: l_dock_date,
16384: p_atp_record.atp_lead_time);*/
16385: /* l_dock_date := MSC_CALENDAR.DATE_OFFSET(
16381: l_dock_date := MSC_CALENDAR.DATE_OFFSET(G_PLAN_INFO_REC.organization_id,
16382: G_PLAN_INFO_REC.sr_instance_id, 1,
16383: l_dock_date,
16384: p_atp_record.atp_lead_time);*/
16385: /* l_dock_date := MSC_CALENDAR.DATE_OFFSET(
16386: p_atp_record.manufacturing_cal_code,
16387: G_PLAN_INFO_REC.sr_instance_id,
16388: l_dock_date,
16389: p_atp_record.atp_lead_time, 1);
17882: -- Bug 3515520, don't use org in case customer/site is populated.
17883: -- IF NVL(l_atp_output_table.internal_org_id(m),l_atp_output_table.organization_id(m)) IS NOT NULL THEN
17884:
17885: -- Bug 3737759 - Moved from below
17886: l_manufacturing_cal_code := MSC_CALENDAR.Get_Calendar_Code(
17887: p_instance_id,
17888: null,
17889: null,
17890: null,
17891: null,
17892: null,
17893: l_atp_output_table.source_organization_id(m),
17894: null,
17895: MSC_CALENDAR.OMC);
17896:
17897: -- Bug 3593394
17898: IF MSC_ATP_PVT.G_USE_SHIP_REC_CAL='Y' THEN
17899:
17899:
17900: IF (l_atp_output_table.internal_org_id(m) IS NOT NULL) OR
17901: (l_atp_output_table.organization_id(m) IS NOT NULL AND
17902: l_atp_output_table.customer_id(m) IS NULL AND l_atp_output_table.customer_site_id(m) IS NULL) THEN
17903: l_receiving_cal_code := MSC_CALENDAR.Get_Calendar_Code(
17904: p_instance_id,
17905: null,
17906: null,
17907: null,
17909: null,
17910: NVL(l_atp_output_table.internal_org_id(m),l_atp_output_table.organization_id(m)),
17911: l_ship_method,
17912: -- Bug 3593394 - l_atp_output_table.ship_method(m),
17913: MSC_CALENDAR.ORC);
17914: ELSIF l_atp_output_table.customer_id(m) IS NOT NULL THEN
17915: -- receiving party is customer
17916: l_receiving_cal_code := MSC_CALENDAR.Get_Calendar_Code(
17917: p_instance_id,
17912: -- Bug 3593394 - l_atp_output_table.ship_method(m),
17913: MSC_CALENDAR.ORC);
17914: ELSIF l_atp_output_table.customer_id(m) IS NOT NULL THEN
17915: -- receiving party is customer
17916: l_receiving_cal_code := MSC_CALENDAR.Get_Calendar_Code(
17917: p_instance_id,
17918: null,
17919: null,
17920: MSC_ATP_PVT.G_PARTNER_ID,
17922: 2,
17923: null,
17924: l_ship_method,
17925: -- Bug 3593394 - l_atp_output_table.ship_method(m),
17926: MSC_CALENDAR.CRC);
17927: ELSE
17928: -- neither customer nor org is provided
17929: l_receiving_cal_code := MSC_CALENDAR.FOC;
17930: END IF;
17925: -- Bug 3593394 - l_atp_output_table.ship_method(m),
17926: MSC_CALENDAR.CRC);
17927: ELSE
17928: -- neither customer nor org is provided
17929: l_receiving_cal_code := MSC_CALENDAR.FOC;
17930: END IF;
17931:
17932: l_intransit_cal_code := MSC_CALENDAR.Get_Calendar_Code(
17933: p_instance_id,
17928: -- neither customer nor org is provided
17929: l_receiving_cal_code := MSC_CALENDAR.FOC;
17930: END IF;
17931:
17932: l_intransit_cal_code := MSC_CALENDAR.Get_Calendar_Code(
17933: p_instance_id,
17934: null,
17935: null,
17936: null,
17938: 4,
17939: null,
17940: l_ship_method,
17941: -- Bug 3593394 - l_atp_output_table.ship_method(m),
17942: MSC_CALENDAR.VIC);
17943:
17944: l_shipping_cal_code := MSC_CALENDAR.Get_Calendar_Code(
17945: p_instance_id,
17946: null,
17940: l_ship_method,
17941: -- Bug 3593394 - l_atp_output_table.ship_method(m),
17942: MSC_CALENDAR.VIC);
17943:
17944: l_shipping_cal_code := MSC_CALENDAR.Get_Calendar_Code(
17945: p_instance_id,
17946: null,
17947: null,
17948: null,
17950: null,
17951: l_atp_output_table.source_organization_id(m),
17952: l_ship_method,
17953: -- Bug 3593394 - l_atp_output_table.ship_method(m),
17954: MSC_CALENDAR.OSC);
17955:
17956: ELSE
17957:
17958: -- Bug 3593394
17962: -- Bug 3737759 - Use receiving org's OMC
17963: IF (l_atp_output_table.internal_org_id(m) IS NOT NULL) OR
17964: (l_atp_output_table.organization_id(m) IS NOT NULL AND
17965: l_atp_output_table.customer_id(m) IS NULL AND l_atp_output_table.customer_site_id(m) IS NULL) THEN
17966: l_receiving_cal_code := MSC_CALENDAR.Get_Calendar_Code(
17967: p_instance_id,
17968: null,
17969: null,
17970: null,
17971: null,
17972: null,
17973: NVL(l_atp_output_table.internal_org_id(m),l_atp_output_table.organization_id(m)),
17974: null,
17975: MSC_CALENDAR.OMC);
17976: ELSE
17977: l_receiving_cal_code := MSC_CALENDAR.FOC;
17978: END IF;
17979: l_intransit_cal_code := MSC_CALENDAR.FOC;
17973: NVL(l_atp_output_table.internal_org_id(m),l_atp_output_table.organization_id(m)),
17974: null,
17975: MSC_CALENDAR.OMC);
17976: ELSE
17977: l_receiving_cal_code := MSC_CALENDAR.FOC;
17978: END IF;
17979: l_intransit_cal_code := MSC_CALENDAR.FOC;
17980: -- Bug 3737759 - Use source org's OMC - l_shipping_cal_code := MSC_CALENDAR.FOC;
17981: l_shipping_cal_code := l_manufacturing_cal_code;
17975: MSC_CALENDAR.OMC);
17976: ELSE
17977: l_receiving_cal_code := MSC_CALENDAR.FOC;
17978: END IF;
17979: l_intransit_cal_code := MSC_CALENDAR.FOC;
17980: -- Bug 3737759 - Use source org's OMC - l_shipping_cal_code := MSC_CALENDAR.FOC;
17981: l_shipping_cal_code := l_manufacturing_cal_code;
17982:
17983: END IF;
17976: ELSE
17977: l_receiving_cal_code := MSC_CALENDAR.FOC;
17978: END IF;
17979: l_intransit_cal_code := MSC_CALENDAR.FOC;
17980: -- Bug 3737759 - Use source org's OMC - l_shipping_cal_code := MSC_CALENDAR.FOC;
17981: l_shipping_cal_code := l_manufacturing_cal_code;
17982:
17983: END IF;
17984:
17982:
17983: END IF;
17984:
17985: /* Bug 3737759 - Moved before IF
17986: l_manufacturing_cal_code := MSC_CALENDAR.Get_Calendar_Code(
17987: p_instance_id,
17988: null,
17989: null,
17990: null,
17991: null,
17992: null,
17993: l_atp_output_table.source_organization_id(m),
17994: null,
17995: MSC_CALENDAR.OMC);
17996: */
17997:
17998: -- Bug 3449812 - Corrected the logic of date calculation
17999: IF l_atp_output_table.requested_ship_date(m) IS NOT NULL THEN
17996: */
17997:
17998: -- Bug 3449812 - Corrected the logic of date calculation
17999: IF l_atp_output_table.requested_ship_date(m) IS NOT NULL THEN
18000: l_atp_output_table.ship_date(m) := MSC_CALENDAR.PREV_WORK_DAY(
18001: l_shipping_cal_code,
18002: p_instance_id,
18003: l_atp_output_table.requested_ship_date(m));
18004: ELSE
18001: l_shipping_cal_code,
18002: p_instance_id,
18003: l_atp_output_table.requested_ship_date(m));
18004: ELSE
18005: l_atp_output_table.ship_date(m) := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
18006: l_atp_output_table.requested_arrival_date(m), l_receiving_cal_code, -1,
18007: l_intransit_cal_code, -1 * nvl(l_atp_output_table.delivery_lead_time(m), 0), -1,
18008: l_shipping_cal_code, -1, p_instance_id); --4430710
18009: END IF;
18013: END IF;
18014:
18015: BEGIN -- Bug2031894. Handle Exception here.
18016:
18017: l_sysdate := MSC_CALENDAR.NEXT_WORK_DAY(
18018: l_shipping_cal_code, -- Bug 3449812
18019: p_instance_id,
18020: sysdate);
18021: EXCEPTION
18075: IF (l_atp_output_table.requested_ship_date(m) IS NOT NULL) THEN
18076: l_atp_output_table.ship_date(m) := l_atp_output_table.requested_ship_date(m);
18077:
18078: -- Bug 3520301 - dont consider first calendar in override cases
18079: l_atp_output_table.arrival_date(m) := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
18080: l_atp_output_table.ship_date(m), MSC_CALENDAR.FOC, 1,
18081: l_intransit_cal_code, nvl(l_atp_output_table.delivery_lead_time(m), 0), 1,
18082: l_receiving_cal_code, 1, p_instance_id);
18083:
18076: l_atp_output_table.ship_date(m) := l_atp_output_table.requested_ship_date(m);
18077:
18078: -- Bug 3520301 - dont consider first calendar in override cases
18079: l_atp_output_table.arrival_date(m) := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
18080: l_atp_output_table.ship_date(m), MSC_CALENDAR.FOC, 1,
18081: l_intransit_cal_code, nvl(l_atp_output_table.delivery_lead_time(m), 0), 1,
18082: l_receiving_cal_code, 1, p_instance_id);
18083:
18084: ELSE
18085: l_atp_output_table.arrival_date(m) := l_atp_output_table.requested_arrival_date(m);
18086:
18087: -- Bug 3520301 - ship date needs to be recalculated because first calendar
18088: -- is not to be considered in override cases
18089: l_atp_output_table.ship_date(m) := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
18090: l_atp_output_table.requested_arrival_date(m), MSC_CALENDAR.FOC, -1,
18091: l_intransit_cal_code, -1 * nvl(l_atp_output_table.delivery_lead_time(m), 0), -1,
18092: l_shipping_cal_code, -1, p_instance_id);
18093:
18086:
18087: -- Bug 3520301 - ship date needs to be recalculated because first calendar
18088: -- is not to be considered in override cases
18089: l_atp_output_table.ship_date(m) := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
18090: l_atp_output_table.requested_arrival_date(m), MSC_CALENDAR.FOC, -1,
18091: l_intransit_cal_code, -1 * nvl(l_atp_output_table.delivery_lead_time(m), 0), -1,
18092: l_shipping_cal_code, -1, p_instance_id);
18093:
18094: END IF;
18098: l_atp_output_table.ship_date(m) := GREATEST(l_sysdate, l_atp_output_table.ship_date(m));
18099:
18100: END IF;
18101: IF (l_atp_output_table.ship_date(m) IS NOT NULL) AND (l_atp_output_table.arrival_date(m) IS NULL) THEN
18102: l_atp_output_table.arrival_date(m) := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
18103: l_atp_output_table.ship_date(m), l_shipping_cal_code, 1,
18104: l_intransit_cal_code, nvl(l_atp_output_table.delivery_lead_time(m), 0), 1,
18105: l_receiving_cal_code, 1, p_instance_id);
18106:
19457: msc_sch_wb.atp_debug('Get_Seq_Num: p_instance_id: ' || p_instance_id);
19458: END IF;
19459: SELECT seq_num
19460: INTO l_seq_num
19461: FROM msc_calendar_dates
19462: WHERE calendar_code = p_calendar_code
19463: AND seq_num is not null --This date will always be there only case is if ITF is non working day.
19464: AND calendar_date = trunc(p_calendar_date)
19465: AND sr_instance_id = p_instance_id
19497: END IF;
19498:
19499: SELECT calendar_date
19500: INTO l_date
19501: FROM msc_calendar_dates
19502: WHERE calendar_code = p_calendar_code
19503: AND seq_num = p_seq_num --Seq should always be there if calendar is build till ITF.
19504: AND sr_instance_id = p_instance_id
19505: AND exception_set_id = -1;