[Home] [Help]
1224:
1225: /* ship_rec_cal
1226: -- ngoel 9/25/2001, wrapped since this function raises an exception which needs to be handled.
1227: BEGIN
1228: l_sys_next_date := MSC_CALENDAR.NEXT_WORK_DAY(l_sourcing_org_id,
1229: p_instance_id,
1230: 1,
1231: sysdate);
1232: EXCEPTION
1625: IF (i=1) OR (l_atp_table.internal_org_id(i)<>l_atp_table.internal_org_id(i-1))
1626: OR (l_atp_table.organization_id(i)<>l_atp_table.organization_id(i-1))
1627: OR (l_atp_table.ship_method(i)<>l_atp_table.ship_method(i-1)) THEN
1628:
1629: l_receiving_cal_code := MSC_CALENDAR.Get_Calendar_Code(
1630: p_instance_id,
1631: null,
1632: null,
1633: null,
1634: null,
1635: null,
1636: NVL(l_atp_table.internal_org_id(i), l_atp_table.organization_id(i)),
1637: l_atp_table.ship_method(i),
1638: MSC_CALENDAR.ORC);
1639: ELSE
1640: l_receiving_cal_code := l_atp_table.receiving_cal_code(i-1);
1641: IF PG_DEBUG in ('Y', 'C') THEN
1642: msc_sch_wb.atp_debug('Schedule: ' || 'Calendar parameters have not changed for ORC');
1649: IF (i=1) OR (NVL(l_atp_table.customer_id(i),-1)<>NVL(l_atp_table.customer_id(i-1),-1))
1650: OR (NVL(l_atp_table.customer_site_id(i),-1)<>NVL(l_atp_table.customer_site_id(i-1),-1))
1651: OR (l_atp_table.ship_method(i)<>l_atp_table.ship_method(i-1)) THEN
1652:
1653: l_receiving_cal_code := MSC_CALENDAR.Get_Calendar_Code(
1654: p_instance_id,
1655: null,
1656: null,
1657: MSC_ATP_PVT.G_PARTNER_ID,
1658: MSC_ATP_PVT.G_PARTNER_SITE_ID,
1659: 2,
1660: null,
1661: l_atp_table.ship_method(i),
1662: MSC_CALENDAR.CRC);
1663: ELSE
1664: l_receiving_cal_code := l_atp_table.receiving_cal_code(i-1);
1665: IF PG_DEBUG in ('Y', 'C') THEN
1666: msc_sch_wb.atp_debug('Schedule: ' || 'Calendar parameters have not changed for CRC');
1667: END IF;
1668: END IF;
1669: ELSE
1670: -- Neither org nor customer provided
1671: l_receiving_cal_code := MSC_CALENDAR.FOC;
1672: END IF;
1673:
1674: IF MSC_ATP_PVT.G_USE_SHIP_REC_CAL='Y' THEN
1675: -- Bug 3647208 -- Move the check to individual "IF"s
1674: IF MSC_ATP_PVT.G_USE_SHIP_REC_CAL='Y' THEN
1675: -- Bug 3647208 -- Move the check to individual "IF"s
1676: IF (i=1) OR (l_atp_table.ship_method(i)<>l_atp_table.ship_method(i-1)) THEN
1677: -- Bug3593394 - Call this proc only if parameters have changed
1678: l_intransit_cal_code := MSC_CALENDAR.Get_Calendar_Code(
1679: p_instance_id,
1680: null,
1681: null,
1682: null,
1683: null,
1684: 4,
1685: null,
1686: l_atp_table.ship_method(i),
1687: MSC_CALENDAR.VIC);
1688: ELSE
1689: l_intransit_cal_code := l_atp_table.intransit_cal_code(i-1);
1690: IF PG_DEBUG in ('Y', 'C') THEN
1691: msc_sch_wb.atp_debug('Schedule: ' || 'Calendar parameters have not changed for VIC');
1691: msc_sch_wb.atp_debug('Schedule: ' || 'Calendar parameters have not changed for VIC');
1692: END IF;
1693: END IF;
1694: ELSE
1695: l_intransit_cal_code := MSC_CALENDAR.FOC;
1696: END IF;
1697:
1698:
1699: -- Bug 3647208 -- Moved OSC and VIC to different IF blocks
1699: -- Bug 3647208 -- Moved OSC and VIC to different IF blocks
1700: IF (i=1) OR (l_atp_table.ship_method(i)<>l_atp_table.ship_method(i-1)) THEN
1701: -- Bug3593394 - Call this proc only for the first line in the ship set unless ship method has changed
1702: -- No check on source org as "i" will be greater than one only for ship set.
1703: l_shipping_cal_code := MSC_CALENDAR.Get_Calendar_Code(
1704: p_instance_id,
1705: null,
1706: null,
1707: null,
1708: null,
1709: null,
1710: l_sourcing_org_id,
1711: l_atp_table.ship_method(i),
1712: MSC_CALENDAR.OSC);
1713: ELSE
1714: l_shipping_cal_code := l_atp_table.shipping_cal_code(i-1);
1715: IF PG_DEBUG in ('Y', 'C') THEN
1716: msc_sch_wb.atp_debug('Schedule: ' || 'Calendar parameters have not changed for OSC');
1722: -- Bug3593394 - Call this proc only for the first line in the ship set.
1723: -- "i" will be greater than one only for ship set.
1724: -- ATP4drp Call to obtain get_org_defaults.
1725: /*
1726: l_manufacturing_cal_code := MSC_CALENDAR.Get_Calendar_Code(
1727: p_instance_id,
1728: null,
1729: null,
1730: null,
1731: null,
1732: null,
1733: l_sourcing_org_id,
1734: null,
1735: MSC_CALENDAR.OMC);
1736: */
1737: -- Bug 2783787 fix involving removing the call to obtain org defaults
1738: -- restored here
1739: MSC_ATP_PROC.get_global_org_info(p_instance_id,
1769: -- Bug 3371817 - sys_next_date should be as per OSC
1770: -- maintaining l_sys_next_omc_date for PTF assignment.
1771: -- Bug3593394 - Call this proc only if calendar has changed
1772: IF (i=1) OR (l_shipping_cal_code<>l_atp_table.shipping_cal_code(i-1)) THEN
1773: l_sys_next_date := MSC_CALENDAR.NEXT_WORK_DAY(
1774: l_shipping_cal_code,
1775: p_instance_id,
1776: l_trunc_sysdate);
1777: END IF;
1779: IF l_manufacturing_cal_code=l_shipping_cal_code THEN
1780: l_sys_next_omc_date := l_sys_next_date;
1781: ELSIF (i=1) OR (l_manufacturing_cal_code<>l_atp_table.manufacturing_cal_code(i-1)) THEN
1782: -- Bug3593394 - Call this proc only if calendar has changed
1783: l_sys_next_omc_date := MSC_CALENDAR.NEXT_WORK_DAY(
1784: l_manufacturing_cal_code,
1785: p_instance_id,
1786: l_trunc_sysdate);
1787: END IF;
1792: l_sysdate_orc := l_sys_next_date;
1793: ELSIF l_receiving_cal_code=l_manufacturing_cal_code THEN
1794: l_sysdate_orc := l_sys_next_omc_date;
1795: ELSIF (i=1) OR (l_receiving_cal_code<>l_atp_table.receiving_cal_code(i-1)) THEN
1796: l_sysdate_orc := MSC_CALENDAR.NEXT_WORK_DAY(
1797: l_receiving_cal_code,
1798: p_instance_id,
1799: l_trunc_sysdate);
1800: END IF;
2291: )
2292: ) THEN
2293:
2294: IF (l_atp_rec.requested_arrival_date IS NOT NULL) THEN
2295: l_requested_ship_date := MSC_CALENDAR.PREV_WORK_DAY(
2296: l_atp_rec.receiving_cal_code,
2297: l_atp_rec.instance_id,
2298: l_atp_rec.requested_arrival_date);
2299:
2305: G_CALENDAR_CONSTRAINT := 'Y';
2306: ELSE
2307: G_CALENDAR_CONSTRAINT := 'N'; -- bug3593394 - reset the global variable
2308: END IF;
2309: l_requested_ship_date := MSC_CALENDAR.DATE_OFFSET(
2310: l_atp_rec.intransit_cal_code,
2311: l_atp_rec.instance_id,
2312: l_requested_ship_date,
2313: -1 * nvl(l_atp_rec.delivery_lead_time, 0),
2316: IF PG_DEBUG in ('Y', 'C') THEN
2317: msc_sch_wb.atp_debug('Schedule: ' || 'Date after subtracting intransit LT using VIC: ' || l_requested_ship_date);
2318: END IF;
2319:
2320: l_requested_ship_date := MSC_CALENDAR.PREV_WORK_DAY(
2321: l_atp_rec.shipping_cal_code,
2322: l_atp_rec.instance_id,
2323: l_requested_ship_date);
2324:
2322: l_atp_rec.instance_id,
2323: l_requested_ship_date);
2324:
2325: ELSE
2326: l_requested_ship_date := MSC_CALENDAR.PREV_WORK_DAY(
2327: l_atp_rec.shipping_cal_code,
2328: l_atp_rec.instance_id,
2329: l_atp_rec.requested_ship_date);
2330: IF trunc(l_requested_ship_date) <> trunc(l_atp_rec.requested_ship_date) THEN
2357:
2358: IF PG_DEBUG in ('Y', 'C') THEN
2359: msc_sch_wb.atp_debug('Schedule: ' || 'Request date is less than sysdate');
2360: END IF;
2361: l_requested_ship_date := MSC_CALENDAR.NEXT_WORK_DAY(
2362: l_atp_rec.shipping_cal_code,
2363: l_atp_rec.instance_id,
2364: l_sys_next_date);
2365:
3120: -- bug 2795053-reopen (ssurendr)
3121: --s_cto_rearch: do not honor atp lead time
3122: l_dmd_satisfied_date := l_atp_rec.ship_date;
3123: /*
3124: l_dmd_satisfied_date := MSC_CALENDAR.DATE_OFFSET(
3125: l_atp_rec.organization_id,
3126: p_instance_id,
3127: 1,
3128: l_atp_rec.ship_date,
3145: IF (l_atp_table.requested_ship_date(i) IS NOT NULL) THEN
3146: l_atp_rec.ship_date := l_atp_table.requested_ship_date(i);
3147:
3148: -- Bug 3520301 - dont consider first calendar in override cases
3149: l_atp_rec.arrival_date := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
3150: l_atp_rec.ship_date, MSC_CALENDAR.FOC, 1,
3151: l_atp_rec.intransit_cal_code, nvl(l_atp_rec.delivery_lead_time, 0), 1,
3152: l_atp_rec.receiving_cal_code, 1, p_instance_id);
3153: ELSE
3146: l_atp_rec.ship_date := l_atp_table.requested_ship_date(i);
3147:
3148: -- Bug 3520301 - dont consider first calendar in override cases
3149: l_atp_rec.arrival_date := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
3150: l_atp_rec.ship_date, MSC_CALENDAR.FOC, 1,
3151: l_atp_rec.intransit_cal_code, nvl(l_atp_rec.delivery_lead_time, 0), 1,
3152: l_atp_rec.receiving_cal_code, 1, p_instance_id);
3153: ELSE
3154: l_atp_rec.arrival_date := l_atp_table.requested_arrival_date(i);
3152: l_atp_rec.receiving_cal_code, 1, p_instance_id);
3153: ELSE
3154: l_atp_rec.arrival_date := l_atp_table.requested_arrival_date(i);
3155:
3156: l_atp_rec.ship_date := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
3157: -- Bug 3520301 - dont consider first calendar in override cases
3158: -- l_atp_table.requested_arrival_date(i), l_atp_rec.receiving_cal_code, -1,
3159: l_atp_table.requested_arrival_date(i), MSC_CALENDAR.FOC, -1,
3160: l_atp_rec.intransit_cal_code, -1 * nvl(l_atp_rec.delivery_lead_time, 0), -1,
3155:
3156: l_atp_rec.ship_date := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
3157: -- Bug 3520301 - dont consider first calendar in override cases
3158: -- l_atp_table.requested_arrival_date(i), l_atp_rec.receiving_cal_code, -1,
3159: l_atp_table.requested_arrival_date(i), MSC_CALENDAR.FOC, -1,
3160: l_atp_rec.intransit_cal_code, -1 * nvl(l_atp_rec.delivery_lead_time, 0), -1,
3161: l_atp_rec.shipping_cal_code, -1, p_instance_id);
3162: END IF;
3163: IF PG_DEBUG in ('Y', 'C') THEN
3166: END IF;
3167:
3168: /* If ship date returned is greater than requested ship date move it to OSC */
3169: ELSIF trunc(l_atp_rec.ship_date) > trunc(l_atp_rec.requested_ship_date) THEN
3170: l_atp_rec.ship_date := MSC_CALENDAR.NEXT_WORK_DAY(
3171: l_atp_rec.shipping_cal_code,
3172: p_instance_id,
3173: l_atp_rec.ship_date);
3174: IF PG_DEBUG in ('Y', 'C') THEN
3183: --- Bug 1621816 Calculate arrival date and take date offset into account
3184: IF (l_atp_rec.ship_date IS NOT NULL) AND (l_atp_rec.arrival_date IS NULL) THEN
3185:
3186: /* ship_rec_cal changes begin */
3187: l_atp_rec.arrival_date := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
3188: l_atp_rec.ship_date, l_atp_rec.shipping_cal_code, 1,
3189: l_atp_rec.intransit_cal_code, nvl(l_atp_rec.delivery_lead_time, 0), 1,
3190: l_atp_rec.receiving_cal_code, 1, p_instance_id) ;
3191: --4460369+ MSC_ATP_PVT.G_END_OF_DAY;
3204: END IF;
3205: /*plan by request date changes begin */
3206: IF l_atp_rec.requested_arrival_date IS NULL THEN
3207: -- date type is ship
3208: l_original_req_arrival_date := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
3209: NVL(l_atp_rec.original_request_date,l_atp_rec.requested_ship_date),
3210: l_atp_rec.shipping_cal_code, 1,
3211: l_atp_rec.intransit_cal_code, nvl(l_atp_rec.delivery_lead_time, 0), 1,
3212: l_atp_rec.receiving_cal_code, 1, p_instance_id) ;
3473: /* ship_rec_cal do we need this???
3474: l_atp_table.ship_date(i) := TRUNC(l_atp_table.requested_ship_date(i)) + MSC_ATP_PVT.G_END_OF_DAY;
3475:
3476: IF l_atp_table.ship_date(i) IS NULL THEN
3477: l_atp_table.ship_date(i) := TRUNC(MSC_CALENDAR.prev_work_day(
3478: l_atp_table.source_organization_id(i),
3479: p_instance_id,
3480: MSC_CALENDAR.TYPE_DAILY_BUCKET,
3481: l_atp_table.requested_arrival_date(i)
3476: IF l_atp_table.ship_date(i) IS NULL THEN
3477: l_atp_table.ship_date(i) := TRUNC(MSC_CALENDAR.prev_work_day(
3478: l_atp_table.source_organization_id(i),
3479: p_instance_id,
3480: MSC_CALENDAR.TYPE_DAILY_BUCKET,
3481: l_atp_table.requested_arrival_date(i)
3482: - nvl(l_atp_table.delivery_lead_time(i), 0)
3483: )) + MSC_ATP_PVT.G_END_OF_DAY;
3484: END IF;
3487: + MSC_ATP_PVT.G_END_OF_DAY;
3488: IF l_atp_table.arrival_date(i) IS NULL THEN
3489: -- dsting 2815549
3490: IF l_atp_table.customer_id(i) is null and l_atp_table.organization_id(i) is not null THEN
3491: l_atp_table.arrival_date(i) := TRUNC(MSC_CALENDAR.next_work_day(
3492: l_atp_table.organization_id(i),
3493: p_instance_id,
3494: MSC_CALENDAR.TYPE_DAILY_BUCKET,
3495: l_atp_table.requested_ship_date(i)
3490: IF l_atp_table.customer_id(i) is null and l_atp_table.organization_id(i) is not null THEN
3491: l_atp_table.arrival_date(i) := TRUNC(MSC_CALENDAR.next_work_day(
3492: l_atp_table.organization_id(i),
3493: p_instance_id,
3494: MSC_CALENDAR.TYPE_DAILY_BUCKET,
3495: l_atp_table.requested_ship_date(i)
3496: + nvl(l_atp_table.delivery_lead_time(i), 0)
3497: )) + MSC_ATP_PVT.G_END_OF_DAY;
3498: ELSE
3509: -- xxx dsting hack to make sure things don't ship before sysdate
3510: -- for an overridden ship set with req_arrival_date
3511: /* ship_rec_cal
3512: l_atp_table.earliest_acceptable_date(i) := l_sys_next_date;*/
3513: l_atp_table.earliest_acceptable_date(i) := MSC_CALENDAR.NEXT_WORK_DAY(
3514: l_shipping_cal_code,
3515: p_instance_id,
3516: sysdate);
3517: END IF; -- override
3537: l_atp_table.requested_arrival_date(i)),l_atp_table.requested_arrival_date(i),
3538: l_sysdate_orc);
3539: ELSE --bug4291375 If requested ship date is past due date then LAD needs to be offseted by the lead time.
3540: -- Calculate date after offset lead time
3541: l_sysdate_orc_new := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
3542: l_trunc_sysdate, l_atp_rec.shipping_cal_code, 1,
3543: l_atp_rec.intransit_cal_code, nvl(l_atp_rec.delivery_lead_time, 0), 1,
3544: l_atp_rec.receiving_cal_code, 1, p_instance_id);
3545: -- Calculate LAD after lead time taken in consideration
3651: -- l_sd_date := l_atp_rec.ship_date;
3652: -- ELSE
3653: l_sd_date := l_atp_rec.ship_date;
3654: /* s_cto_rearch: do not honor atp lead time
3655: l_sd_date := MSC_CALENDAR.DATE_OFFSET(
3656: l_atp_rec.organization_id,
3657: p_instance_id,
3658: 1,
3659: l_atp_rec.ship_date,
3924: p_instance_id,
3925: l_atp_rec.ship_date,
3926: --s_cto_rearch do not honor atp_lead time
3927: /*
3928: MSC_CALENDAR.DATE_OFFSET(
3929: l_atp_rec.organization_id,
3930: p_instance_id,
3931: 1,
3932: l_atp_rec.ship_date,
6374: p_atp_record.error_code := ATP_MULTI_REQ_DATES;
6375: RAISE FND_API.G_EXC_ERROR;
6376: END IF;
6377: --bug3821358
6378: l_sys_next_date := MSC_CALENDAR.NEXT_WORK_DAY(p_atp_record.manufacturing_cal_code, -- use OMC
6379: p_atp_record.instance_id,
6380: l_trunc_sysdate);
6381: IF PG_DEBUG in ('Y', 'C') THEN
6382: msc_sch_wb.atp_debug('ATP_Check: Sys Next Date is: ' || l_sys_next_date);
6642: -- we need to calculate the requested_ship_date
6643: -- requested_ship_date = requested_arrival_date - delivery_lead_time
6644:
6645: -- ship_rec_cal do we come here??
6646: l_requested_ship_date := MSC_CALENDAR.prev_work_day(
6647: p_atp_record.organization_id,
6648: p_atp_record.instance_id,
6649: MSC_CALENDAR.TYPE_DAILY_BUCKET,
6650: p_atp_record.requested_arrival_date
6645: -- ship_rec_cal do we come here??
6646: l_requested_ship_date := MSC_CALENDAR.prev_work_day(
6647: p_atp_record.organization_id,
6648: p_atp_record.instance_id,
6649: MSC_CALENDAR.TYPE_DAILY_BUCKET,
6650: p_atp_record.requested_arrival_date
6651: - l_delivery_lead_time);
6652:
6653: /* dlt
6656: l_requested_ship_date := p_atp_record.requested_arrival_date -
6657: l_delivery_lead_time ;
6658: ELSE
6659: --- Org
6660: l_requested_ship_date := MSC_CALENDAR.DATE_OFFSET
6661: (p_atp_record.to_organization_id,
6662: p_atp_record.to_instance_id,
6663: 1,
6664: p_atp_record.requested_arrival_date,
6755: -- we need to offset x working days from the the ship date.
6756:
6757: /* S_CTO_REACH : do not honor atp lead time
6758:
6759: l_requested_ship_date := MSC_CALENDAR.DATE_OFFSET
6760: (p_atp_record.organization_id,
6761: p_atp_record.instance_id,
6762: 1,
6763: l_requested_ship_date,
6768: -- Find the next working date for sysdate
6769: -- and comment out the call related to bug 1124538.
6770:
6771: BEGIN -- Bug2031894. Handle Exception here.
6772: l_sysdate := NVL(MSC_CALENDAR.next_work_day(
6773: p_atp_record.shipping_cal_code,
6774: p_atp_record.instance_id,
6775: sysdate), sysdate);
6776: EXCEPTION
6863: -- in ODS ATP we want to honor lead times for ATO models
6864: l_mso_lead_time_factor := MSC_ATP_PVT.G_MSO_LEAD_TIME_FACTOR;
6865: l_net_processing_lt := (l_fixed_lt + l_variable_lt * p_atp_record.quantity_ordered)*
6866: (1 + l_mso_lead_time_factor);
6867: l_ato_date := MSC_CALENDAR.DATE_OFFSET
6868: (p_atp_record.organization_id,
6869: p_atp_record.instance_id,
6870: 1,
6871: l_sysdate,
6907: --p_atp_record.ship_date := l_requested_ship_date;
6908: p_atp_record.ship_date := GREATEST(l_requested_ship_date, MSC_ATP_PVT.G_PTF_DATE); --5160663
6909: /* s_cto_arch: do not honor atp lead time
6910: IF NVL(p_atp_record.atp_lead_time, 0) > 0 THEN
6911: p_atp_record.ship_date := MSC_CALENDAR.DATE_OFFSET
6912: (p_atp_record.organization_id,
6913: p_atp_record.instance_id,
6914: 1,
6915: l_requested_ship_date,
6981:
6982: -- cchen 1276131 make sure we offset if atp_lead time exists
6983: /* s_cto_rearch: do not honor atp lead time
6984: IF NVL(p_atp_record.atp_lead_time, 0) > 0 THEN
6985: p_atp_record.ship_date := MSC_CALENDAR.DATE_OFFSET
6986: (p_atp_record.organization_id,
6987: p_atp_record.instance_id,
6988: 1,
6989: -- Bug 2625791, 2623816
8933: GREATEST(p_atp_record.requested_date_quantity, 0) +
8934: l_sub_requested_date_quantity + l_stealing_requested_date_qty;
8935:
8936: /* s_cto_rearch: do not honor atp lead time
8937: p_atp_record.ship_date := MSC_CALENDAR.DATE_OFFSET
8938: (p_atp_record.organization_id,
8939: p_atp_record.instance_id,
8940: 1,
8941: l_requested_ship_date, -- bug 1338599
9142: l_stealing_qty)); --bug3409973
9143: -- 2859130 move to next work day for forward pass
9144: /* Do not honor atp lead time
9145: IF NVL(p_atp_record.atp_lead_time, 0) > 0 THEN
9146: p_atp_record.ship_date := MSC_CALENDAR.DATE_OFFSET
9147: (p_atp_record.organization_id,
9148: p_atp_record.instance_id,
9149: 1,
9150: l_atp_date_this_level,
9149: 1,
9150: l_atp_date_this_level,
9151: NVL(p_atp_record.atp_lead_time, 0));
9152: ELSE
9153: p_atp_record.ship_date := MSC_CALENDAR.NEXT_WORK_DAY
9154: (p_atp_record.organization_id,
9155: p_atp_record.instance_id,
9156: 1,
9157: l_atp_date_this_level);
9162:
9163: IF (l_atp_date_this_level is NULL ) THEN
9164: p_atp_record.ship_date := NULL;
9165: ELSE
9166: p_atp_record.ship_date := MSC_CALENDAR.next_work_day(
9167: p_atp_record.shipping_cal_code,
9168: p_atp_record.instance_id,
9169: l_atp_date_this_level);
9170: END IF;
9606: -- ptf only if plan option is checked.
9607:
9608: -- Bug 3535999 - l_ptf_date should be validated on mgf cal
9609: -- l_ptf_date := l_sysdate;
9610: l_ptf_date := NVL(MSC_CALENDAR.next_work_day(
9611: p_atp_record.manufacturing_cal_code,
9612: p_atp_record.instance_id,
9613: l_trunc_sysdate), l_trunc_sysdate);
9614:
9756:
9757: -- 2859130 move to next work day for forward pass
9758: /* do not honor atp lead time
9759: IF NVL(p_atp_record.atp_lead_time, 0) > 0 THEN
9760: p_atp_record.ship_date := MSC_CALENDAR.DATE_OFFSET
9761: (p_atp_record.organization_id,
9762: p_atp_record.instance_id,
9763: 1,
9764: l_atp_date_this_level,
9763: 1,
9764: l_atp_date_this_level,
9765: NVL(p_atp_record.atp_lead_time, 0));
9766: ELSE
9767: p_atp_record.ship_date := MSC_CALENDAR.NEXT_WORK_DAY
9768: (p_atp_record.organization_id,
9769: p_atp_record.instance_id,
9770: 1,
9771: l_atp_date_this_level);
9770: 1,
9771: l_atp_date_this_level);
9772: END IF;
9773: */
9774: p_atp_record.ship_date := MSC_CALENDAR.next_work_day(
9775: p_atp_record.shipping_cal_code,
9776: p_atp_record.instance_id,
9777: l_atp_date_this_level);
9778:
10271: END IF;
10272: END IF;
10273:
10274: -- Bug 3737759 - Moved from below
10275: l_atp_rec.manufacturing_cal_code := MSC_CALENDAR.Get_Calendar_Code(
10276: l_sources.instance_id(j),
10277: null,
10278: null,
10279: null,
10280: null,
10281: null,
10282: l_sources.organization_id(j),
10283: null,
10284: MSC_CALENDAR.OMC);
10285:
10286: -- Bug 3593394
10287: IF MSC_ATP_PVT.G_USE_SHIP_REC_CAL='Y' THEN
10288: -- receiving party is org
10285:
10286: -- Bug 3593394
10287: IF MSC_ATP_PVT.G_USE_SHIP_REC_CAL='Y' THEN
10288: -- receiving party is org
10289: l_atp_rec.receiving_cal_code := MSC_CALENDAR.Get_Calendar_Code(
10290: p_atp_record.instance_id,
10291: null,
10292: null,
10293: null,
10294: null,
10295: null,
10296: p_atp_record.organization_id,
10297: l_sources.Ship_Method(j),
10298: MSC_CALENDAR.ORC);
10299:
10300: l_atp_rec.intransit_cal_code := MSC_CALENDAR.Get_Calendar_Code(
10301: l_sources.instance_id(j),
10302: null,
10296: p_atp_record.organization_id,
10297: l_sources.Ship_Method(j),
10298: MSC_CALENDAR.ORC);
10299:
10300: l_atp_rec.intransit_cal_code := MSC_CALENDAR.Get_Calendar_Code(
10301: l_sources.instance_id(j),
10302: null,
10303: null,
10304: null,
10305: null,
10306: 4,
10307: null,
10308: l_sources.Ship_Method(j),
10309: MSC_CALENDAR.VIC);
10310:
10311: l_atp_rec.shipping_cal_code := MSC_CALENDAR.Get_Calendar_Code(
10312: l_sources.instance_id(j),
10313: null,
10307: null,
10308: l_sources.Ship_Method(j),
10309: MSC_CALENDAR.VIC);
10310:
10311: l_atp_rec.shipping_cal_code := MSC_CALENDAR.Get_Calendar_Code(
10312: l_sources.instance_id(j),
10313: null,
10314: null,
10315: null,
10316: null,
10317: null,
10318: l_sources.organization_id(j),
10319: l_sources.Ship_Method(j),
10320: MSC_CALENDAR.OSC);
10321: ELSE
10322: -- Bug 3593394
10323: IF PG_DEBUG in ('Y', 'C') THEN
10324: msc_sch_wb.atp_debug('ATP_Check: ' || 'G_USE_SHIP_REC_CAL is N');
10322: -- Bug 3593394
10323: IF PG_DEBUG in ('Y', 'C') THEN
10324: msc_sch_wb.atp_debug('ATP_Check: ' || 'G_USE_SHIP_REC_CAL is N');
10325: END IF;
10326: -- Bug 3737759 - Use receiving org's OMC - l_atp_rec.receiving_cal_code := MSC_CALENDAR.FOC;
10327: l_atp_rec.receiving_cal_code := p_atp_record.manufacturing_cal_code;
10328: l_atp_rec.intransit_cal_code := MSC_CALENDAR.FOC;
10329: -- Bug 3737759 - Use shipping org's OMC - l_atp_rec.shipping_cal_code := MSC_CALENDAR.FOC;
10330: l_atp_rec.shipping_cal_code := l_atp_rec.manufacturing_cal_code;
10324: msc_sch_wb.atp_debug('ATP_Check: ' || 'G_USE_SHIP_REC_CAL is N');
10325: END IF;
10326: -- Bug 3737759 - Use receiving org's OMC - l_atp_rec.receiving_cal_code := MSC_CALENDAR.FOC;
10327: l_atp_rec.receiving_cal_code := p_atp_record.manufacturing_cal_code;
10328: l_atp_rec.intransit_cal_code := MSC_CALENDAR.FOC;
10329: -- Bug 3737759 - Use shipping org's OMC - l_atp_rec.shipping_cal_code := MSC_CALENDAR.FOC;
10330: l_atp_rec.shipping_cal_code := l_atp_rec.manufacturing_cal_code;
10331: END IF;
10332:
10325: END IF;
10326: -- Bug 3737759 - Use receiving org's OMC - l_atp_rec.receiving_cal_code := MSC_CALENDAR.FOC;
10327: l_atp_rec.receiving_cal_code := p_atp_record.manufacturing_cal_code;
10328: l_atp_rec.intransit_cal_code := MSC_CALENDAR.FOC;
10329: -- Bug 3737759 - Use shipping org's OMC - l_atp_rec.shipping_cal_code := MSC_CALENDAR.FOC;
10330: l_atp_rec.shipping_cal_code := l_atp_rec.manufacturing_cal_code;
10331: END IF;
10332:
10333: /* Bug 3737759 - Moved to beginning of IF
10330: l_atp_rec.shipping_cal_code := l_atp_rec.manufacturing_cal_code;
10331: END IF;
10332:
10333: /* Bug 3737759 - Moved to beginning of IF
10334: l_atp_rec.manufacturing_cal_code := MSC_CALENDAR.Get_Calendar_Code(
10335: l_sources.instance_id(j),
10336: null,
10337: null,
10338: null,
10339: null,
10340: null,
10341: l_sources.organization_id(j),
10342: null,
10343: MSC_CALENDAR.OMC);
10344: */
10345: ELSE
10346: -- receiving party is org
10347: /* Bug 3593394 - Moved after get_delivery_lead_time
10344: */
10345: ELSE
10346: -- receiving party is org
10347: /* Bug 3593394 - Moved after get_delivery_lead_time
10348: l_atp_rec.receiving_cal_code := MSC_CALENDAR.Get_Calendar_Code(
10349: p_atp_record.instance_id,
10350: null,
10351: null,
10352: null,
10353: null,
10354: null,
10355: p_atp_record.organization_id,
10356: l_sources.Ship_Method(j),
10357: MSC_CALENDAR.ORC);
10358: */
10359:
10360: -- supplier intransit LT
10361: MSC_ATP_PROC.Get_Supplier_Regions(l_sources.Supplier_Site_Id(j),
10391: END IF;
10392: --l_atp_rec.manufacturing_cal_code := p_atp_record.manufacturing_cal_code;
10393: --Bug 3687353: Use SMC irrespective of profile MSC_ATP_PVT.G_USE_SHIP_REC_CAL
10394:
10395: l_atp_rec.manufacturing_cal_code := MSC_CALENDAR.Get_Calendar_Code(
10396: l_sources.instance_id(j),
10397: p_plan_id,
10398: --s_cto_rearch
10399: --In case of ATP item pass model's id
10404: l_sources.supplier_site_id(j),
10405: null,
10406: null,
10407: null,
10408: MSC_CALENDAR.SMC);
10409:
10410: -- Bug 3593394
10411: IF MSC_ATP_PVT.G_USE_SHIP_REC_CAL='Y' THEN
10412:
10409:
10410: -- Bug 3593394
10411: IF MSC_ATP_PVT.G_USE_SHIP_REC_CAL='Y' THEN
10412:
10413: l_atp_rec.receiving_cal_code := MSC_CALENDAR.Get_Calendar_Code(
10414: p_atp_record.instance_id,
10415: null,
10416: null,
10417: null,
10419: null,
10420: p_atp_record.organization_id,
10421: l_atp_rec.ship_method,
10422: -- Bug 3593394 - l_sources.Ship_Method(j),
10423: MSC_CALENDAR.ORC);
10424:
10425: l_atp_rec.intransit_cal_code := MSC_CALENDAR.Get_Calendar_Code(
10426: p_atp_record.instance_id,
10427: null,
10421: l_atp_rec.ship_method,
10422: -- Bug 3593394 - l_sources.Ship_Method(j),
10423: MSC_CALENDAR.ORC);
10424:
10425: l_atp_rec.intransit_cal_code := MSC_CALENDAR.Get_Calendar_Code(
10426: p_atp_record.instance_id,
10427: null,
10428: null,
10429: null,
10430: null,
10431: 4,
10432: null,
10433: l_atp_rec.ship_method,
10434: MSC_CALENDAR.VIC);
10435:
10436: l_atp_rec.shipping_cal_code := MSC_CALENDAR.Get_Calendar_Code(
10437: l_sources.instance_id(j),
10438: null,
10432: null,
10433: l_atp_rec.ship_method,
10434: MSC_CALENDAR.VIC);
10435:
10436: l_atp_rec.shipping_cal_code := MSC_CALENDAR.Get_Calendar_Code(
10437: l_sources.instance_id(j),
10438: null,
10439: null,
10440: l_sources.supplier_id(j),
10441: l_sources.supplier_site_id(j),
10442: 1,
10443: null,
10444: l_atp_rec.ship_method,
10445: MSC_CALENDAR.SSC);
10446:
10447: /* Bug 3687353: Use SMC irrespective of profile MSC_ATP_PVT.G_USE_SHIP_REC_CAL
10448: l_atp_rec.manufacturing_cal_code := MSC_CALENDAR.Get_Calendar_Code(
10449: l_sources.instance_id(j),
10444: l_atp_rec.ship_method,
10445: MSC_CALENDAR.SSC);
10446:
10447: /* Bug 3687353: Use SMC irrespective of profile MSC_ATP_PVT.G_USE_SHIP_REC_CAL
10448: l_atp_rec.manufacturing_cal_code := MSC_CALENDAR.Get_Calendar_Code(
10449: l_sources.instance_id(j),
10450: p_plan_id,
10451: --s_cto_rearch
10452: --In case of ATP item pass model's id
10457: l_sources.supplier_site_id(j),
10458: null,
10459: null,
10460: null,
10461: MSC_CALENDAR.SMC);
10462: */
10463:
10464: ELSE
10465:
10466: -- Bug 3593394
10467: IF PG_DEBUG in ('Y', 'C') THEN
10468: msc_sch_wb.atp_debug('ATP_Check: ' || 'G_USE_SHIP_REC_CAL is N');
10469: END IF;
10470: -- Bug 3737759 - Use receiving org's OMC - l_atp_rec.receiving_cal_code := MSC_CALENDAR.FOC;
10471: l_atp_rec.receiving_cal_code := p_atp_record.manufacturing_cal_code;
10472: l_atp_rec.intransit_cal_code := MSC_CALENDAR.FOC;
10473: l_atp_rec.shipping_cal_code := MSC_CALENDAR.FOC;
10474:
10468: msc_sch_wb.atp_debug('ATP_Check: ' || 'G_USE_SHIP_REC_CAL is N');
10469: END IF;
10470: -- Bug 3737759 - Use receiving org's OMC - l_atp_rec.receiving_cal_code := MSC_CALENDAR.FOC;
10471: l_atp_rec.receiving_cal_code := p_atp_record.manufacturing_cal_code;
10472: l_atp_rec.intransit_cal_code := MSC_CALENDAR.FOC;
10473: l_atp_rec.shipping_cal_code := MSC_CALENDAR.FOC;
10474:
10475: /*Bug 3687353: Use SMC irrespective of profile MSC_ATP_PVT.G_USE_SHIP_REC_CAL
10476: l_atp_rec.manufacturing_cal_code := p_atp_record.manufacturing_cal_code;*/
10469: END IF;
10470: -- Bug 3737759 - Use receiving org's OMC - l_atp_rec.receiving_cal_code := MSC_CALENDAR.FOC;
10471: l_atp_rec.receiving_cal_code := p_atp_record.manufacturing_cal_code;
10472: l_atp_rec.intransit_cal_code := MSC_CALENDAR.FOC;
10473: l_atp_rec.shipping_cal_code := MSC_CALENDAR.FOC;
10474:
10475: /*Bug 3687353: Use SMC irrespective of profile MSC_ATP_PVT.G_USE_SHIP_REC_CAL
10476: l_atp_rec.manufacturing_cal_code := p_atp_record.manufacturing_cal_code;*/
10477:
10488: msc_sch_wb.atp_debug('**************************************************************');
10489: END IF;
10490:
10491: /* planned order due date as per OMC-D */
10492: l_planned_order_date := MSC_CALENDAR.PREV_WORK_DAY(
10493: p_atp_record.manufacturing_cal_code,
10494: p_atp_record.instance_id,
10495: l_requested_ship_date);
10496: IF PG_DEBUG in ('Y', 'C') THEN
10846: msc_sch_wb.atp_debug('ATP_Check: ' || 'l_ptf_date := ' ||l_ptf_date);
10847: END IF;
10848:
10849: -- Bug 3782472 - calculate ptf date for lower level
10850: l_ptf_date_for_child := MSC_CALENDAR.DATE_OFFSET (
10851: p_atp_record.manufacturing_cal_code,
10852: p_atp_record.instance_id,
10853: l_parent_ptf_date,
10854: -1 * l_post_pro_lt, -1);
10855: IF PG_DEBUG in ('Y', 'C') THEN
10856: msc_sch_wb.atp_debug('ATP_Check: ' ||
10857: 'After Man. Cal Offset l_ptf_date_for_child := ' ||l_ptf_date_for_child );
10858: END IF;
10859: l_ptf_date_for_child := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
10860: l_ptf_date_for_child, l_atp_rec.receiving_cal_code, -1,
10861: l_atp_rec.intransit_cal_code, -1 * l_atp_rec.delivery_lead_time, -1,
10862: l_atp_rec.shipping_cal_code, -1, p_atp_record.instance_id);
10863: IF PG_DEBUG in ('Y', 'C') THEN
10874: ||MSC_ATP_PVT.G_PTF_DATE );
10875: END IF;
10876:
10877: /* ship_rec_cal changes begin */
10878: l_dock_date := MSC_CALENDAR.DATE_OFFSET (
10879: p_atp_record.manufacturing_cal_code,
10880: p_atp_record.instance_id,
10881: l_requested_ship_date,
10882: -1 * l_post_pro_lt, -1);
10887: msc_sch_wb.atp_debug('ATP_Check: ' || '___________________Start Offset___________________');
10888: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after subtracting PPLT using OMC: '||l_dock_date);
10889: END IF;
10890:
10891: l_dock_date := MSC_CALENDAR.PREV_WORK_DAY(
10892: l_atp_rec.receiving_cal_code,
10893: p_atp_record.instance_id,
10894: l_dock_date);
10895: /* populating new_dock_date for transfer orders also, this is to support requirement of supporting
10899: IF PG_DEBUG in ('Y', 'C') THEN
10900: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after validating on ORC : '||l_dock_date);
10901: END IF;
10902:
10903: l_start_date := MSC_CALENDAR.DATE_OFFSET (
10904: l_atp_rec.intransit_cal_code,
10905: p_atp_record.instance_id,
10906: l_dock_date,
10907: -1 * l_atp_rec.delivery_lead_time, -1);
10914: msc_sch_wb.atp_debug('ATP_Check: ' || 'To Org : '|| p_atp_record.organization_id);
10915: msc_sch_wb.atp_debug('ATP_Check: ' || 'Lead Time : '|| l_atp_rec.delivery_lead_time);
10916: END IF;
10917: IF l_PTF_DATE < MSC_ATP_PVT.G_PTF_DATE THEN
10918: MSC_ATP_PVT.G_PTF_DATE := MSC_CALENDAR.DATE_OFFSET (l_atp_rec.intransit_cal_code,
10919: p_atp_record.instance_id,
10920: MSC_ATP_PVT.G_PTF_DATE ,
10921: -1 * l_atp_rec.delivery_lead_time, -1); -- Bug No: 4592289/4667756
10922: IF PG_DEBUG in ('Y', 'C') THEN
10925: else
10926: G_PTF_DATE := l_PTF_DATE;
10927: msc_sch_wb.atp_debug('ATP_Check: ' || 'G_PTF_DATE after assign : '||MSC_ATP_PVT.G_PTF_DATE );
10928: END IF;
10929: MSC_ATP_PVT.G_PTF_DATE := MSC_CALENDAR.NEXT_WORK_DAY(
10930: l_atp_rec.shipping_cal_code,
10931: p_atp_record.instance_id,
10932: MSC_ATP_PVT.G_PTF_DATE );
10933: IF PG_DEBUG in ('Y', 'C') THEN
10939: IF PG_DEBUG in ('Y', 'C') THEN
10940: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after subtracting DLT using VIC : '||l_start_date);
10941: END IF;
10942:
10943: l_atp_rec.requested_ship_date := MSC_CALENDAR.PREV_WORK_DAY(
10944: l_atp_rec.shipping_cal_code,
10945: l_atp_rec.instance_id,
10946: l_start_date);
10947: /* populating new_ship_date for transfer orders also, this is to support requirement of supporting
10954: IF PG_DEBUG in ('Y', 'C') THEN
10955: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after validating on OSC : '||l_atp_rec.requested_ship_date);
10956: END IF;
10957:
10958: l_order_date := MSC_CALENDAR.DATE_OFFSET (
10959: p_atp_record.manufacturing_cal_code,
10960: p_atp_record.instance_id,
10961: l_atp_rec.requested_ship_date,
10962: -1 * MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt, -1);
10987: /* Bug 3412143 - Earlier ptf_due_date was calculated as
10988: ptf_due_date := ptf_date + pre-processing lead time + delivery lead time + post-processing lead time
10989: it should actually be
10990: ptf_due_date := ptf_date + delivery lead time + post-processing lead time
10991: l_ptf_due_date := MSC_CALENDAR.DATE_OFFSET (
10992: p_atp_record.manufacturing_cal_code,
10993: p_atp_record.instance_id,
10994: l_ptf_date,
10995: MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt, 1);
10998: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after adding pre PLT using OMC: '||l_ptf_due_date);
10999: END IF;
11000: */
11001:
11002: l_ptf_due_date := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
11003: l_ptf_date, l_atp_rec.shipping_cal_code, +1,
11004: l_atp_rec.intransit_cal_code, nvl(l_atp_rec.delivery_lead_time, 0), +1,
11005: l_atp_rec.receiving_cal_code, +1, p_atp_record.instance_id);
11006:
11008: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after validating on OSC, adding intransit LT using VIC and ');
11009: msc_sch_wb.atp_debug('ATP_Check: ' || ' validating on ORC: '||l_ptf_due_date);
11010: END IF;
11011:
11012: l_ptf_due_date := MSC_CALENDAR.DATE_OFFSET (
11013: p_atp_record.manufacturing_cal_code, -- using OMC destination
11014: p_atp_record.instance_id,
11015: l_ptf_due_date,
11016: l_post_pro_lt, 1);
11022: msc_sch_wb.atp_debug('ATP_Check: ' || '___________________Start Calc LT Due Date___________________');
11023: msc_sch_wb.atp_debug('ATP_Check: ' || 'Sysdate: '||sysdate);
11024: END IF;
11025:
11026: l_lt_due_date := MSC_CALENDAR.DATE_OFFSET (
11027: p_atp_record.manufacturing_cal_code,
11028: p_atp_record.instance_id,
11029: -- sysdate, - Bug 3512996 - Removed unnecessary reference to sysdate
11030: l_trunc_sysdate,
11040: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after adding pre PLT using OMC: '||l_lt_due_date);
11041: msc_sch_wb.atp_debug('ATP_Check: ' || 'Setting PTF for lower level: '||MSC_ATP_PVT.G_PTF_DATE);
11042: END IF;
11043:
11044: l_lt_due_date := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
11045: l_lt_due_date, l_atp_rec.shipping_cal_code, +1,
11046: l_atp_rec.intransit_cal_code, nvl(l_atp_rec.delivery_lead_time, 0), +1,
11047: l_atp_rec.receiving_cal_code, +1, p_atp_record.instance_id);
11048:
11050: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after validating on OSC, adding intransit LT using VIC and ');
11051: msc_sch_wb.atp_debug('ATP_Check: ' || ' validating on ORC: '||l_lt_due_date);
11052: END IF;
11053:
11054: l_lt_due_date := MSC_CALENDAR.DATE_OFFSET (
11055: p_atp_record.manufacturing_cal_code, -- using OMC destination
11056: p_atp_record.instance_id,
11057: l_lt_due_date,
11058: l_post_pro_lt, 1);
11118: /* Enforce Pur LT - changes end */
11119:
11120:
11121: /* ship_rec_cal changes begin */
11122: l_start_date := MSC_CALENDAR.DATE_OFFSET(
11123: p_atp_record.manufacturing_cal_code,
11124: p_atp_record.instance_id,
11125: l_requested_ship_date,
11126: -1 * l_post_pro_lt, -1);
11143:
11144: /* Enforce Pur LT - No need to calculate dates if trunc has started */
11145: IF l_trunc_started = 2 THEN
11146: -- Actually dock date
11147: l_start_date := MSC_CALENDAR.PREV_WORK_DAY(
11148: l_atp_rec.receiving_cal_code,
11149: p_atp_record.instance_id,
11150: l_start_date);
11151: IF PG_DEBUG in ('Y', 'C') THEN
11225: IF (g_sup_cap_cum_date IS NOT NULL) THEN
11226: -- Get the next_working day based on plan owning org's calendar.
11227: -- to account for MBP's -ve 1 day offset.
11228: /* ship_rec_cal
11229: g_sup_cap_cum_date := MSC_CALENDAR.next_work_day
11230: (G_PLAN_INFO_REC.organization_id,
11231: G_PLAN_INFO_REC.sr_instance_id,
11232: 1,
11233: g_sup_cap_cum_date + 1);*/
11230: (G_PLAN_INFO_REC.organization_id,
11231: G_PLAN_INFO_REC.sr_instance_id,
11232: 1,
11233: g_sup_cap_cum_date + 1);*/
11234: g_sup_cap_cum_date := MSC_CALENDAR.next_work_day(
11235: l_atp_rec.manufacturing_cal_code,
11236: G_PLAN_INFO_REC.sr_instance_id,
11237: g_sup_cap_cum_date + 1);
11238: IF PG_DEBUG in ('Y', 'C') THEN
11254: msc_sch_wb.atp_debug('ATP_Check: ' || 'l_net_processing_lt := ' || l_net_processing_lt);
11255: END IF;
11256:
11257: -- Bug 3782472 - calculate ptf date for lower level
11258: l_ptf_date_for_child := MSC_CALENDAR.DATE_OFFSET (
11259: p_atp_record.manufacturing_cal_code,
11260: p_atp_record.instance_id,
11261: l_parent_ptf_date,
11262: -1 * l_post_pro_lt, -1);
11270: msc_sch_wb.atp_debug('ATP_Check: ' || '--- Capacity to Ship ---');
11271: END IF;
11272:
11273: -- Bug 3782472 - calculate ptf date for lower level
11274: l_ptf_date_for_child := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
11275: l_ptf_date_for_child, l_atp_rec.receiving_cal_code, -1,
11276: l_atp_rec.intransit_cal_code, -1 * l_atp_rec.delivery_lead_time, -1,
11277: l_atp_rec.shipping_cal_code, -1, p_atp_record.instance_id);
11278:
11279: /* Enforce Pur LT - Check if date needs to be calculated */
11280: IF l_trunc_started = 1 THEN
11281: l_supplier_start_date := l_trunc_sysdate;
11282: ELSE
11283: l_supplier_start_date := MSC_CALENDAR.DATE_OFFSET(
11284: l_atp_rec.intransit_cal_code,
11285: l_atp_rec.instance_id,
11286: l_new_dock_date,
11287: (-1 * l_atp_rec.delivery_lead_time), -1);
11302:
11303:
11304: /* Enforce Pur LT - Check if date needs to be calculated */
11305: IF l_trunc_started = 2 THEN
11306: l_supplier_start_date := MSC_CALENDAR.PREV_WORK_DAY(
11307: l_atp_rec.shipping_cal_code,
11308: l_atp_rec.instance_id,
11309: l_supplier_start_date);
11310: IF PG_DEBUG in ('Y', 'C') THEN
11337:
11338: l_atp_rec.requested_ship_date := l_new_dock_date;
11339:
11340: -- Bug 3782472 - calculate ptf date for lower level
11341: l_ptf_date_for_child := MSC_CALENDAR.PREV_WORK_DAY(
11342: l_atp_rec.receiving_cal_code,
11343: p_atp_record.instance_id,
11344: l_ptf_date_for_child);
11345:
11352: /* Enforce Pur LT - Check if date needs to be calculated */
11353: IF l_trunc_started = 1 THEN
11354: l_new_ship_date := l_trunc_sysdate;
11355: ELSE
11356: l_new_ship_date := MSC_CALENDAR.DATE_OFFSET(
11357: l_atp_rec.intransit_cal_code,
11358: l_atp_rec.instance_id,
11359: l_start_date,
11360: (-1 * l_atp_rec.delivery_lead_time), -1);
11373: IF PG_DEBUG in ('Y', 'C') THEN
11374: msc_sch_wb.atp_debug('ATP_Check: ' || 'Past due date truncated to: '||l_trunc_sysdate);
11375: END IF;
11376: ELSE
11377: l_new_ship_date := MSC_CALENDAR.PREV_WORK_DAY(
11378: l_atp_rec.shipping_cal_code,
11379: l_atp_rec.instance_id,
11380: l_new_ship_date);
11381:
11404: /* Enforce Pur LT - Check if date needs to be calculated */
11405: IF l_trunc_started = 1 THEN
11406: l_supplier_start_date := l_trunc_sysdate;
11407: ELSIF l_process_lt > 0 THEN
11408: l_supplier_start_date := MSC_CALENDAR.DATE_OFFSET(
11409: l_atp_rec.manufacturing_cal_code,
11410: G_PLAN_INFO_REC.sr_instance_id,
11411: l_supplier_start_date,
11412: (-1 * l_process_lt), -1);
11426: l_sugg_start_date := l_supplier_start_date; -- Bug 3241766
11427:
11428: /* Enforce Pur LT - Check if date needs to be calculated */
11429: IF l_trunc_started = 2 THEN
11430: l_supplier_start_date := MSC_CALENDAR.DATE_OFFSET(
11431: p_atp_record.manufacturing_cal_code, -- use OMC
11432: l_atp_rec.instance_id,
11433: l_supplier_start_date,
11434: (-1 * l_pre_pro_lt), -1);
11470: msc_sch_wb.atp_debug('ATP_Check: ' || 'PTF Date: '||l_ptf_date);
11471: END IF;
11472:
11473: IF l_start_date < l_ptf_date and l_post_pro_lt > 0 THEN
11474: l_ptf_due_date := MSC_CALENDAR.DATE_OFFSET(
11475: p_atp_record.manufacturing_cal_code,
11476: p_atp_record.instance_id,
11477: l_ptf_date,
11478: l_post_pro_lt, 1);
11495: This constraint will get enforced via the G_PTF_DATE which has already been set to a date
11496: greater than or equal to l_ptf_date
11497: IF p_search = FORWARD_SCHEDULING THEN
11498: l_supplier_request_date := GREATEST(l_start_date, l_ptf_date);
11499: l_supplier_request_date := MSC_CALENDAR.PREV_WORK_DAY(
11500: l_atp_rec.receiving_cal_code,
11501: l_atp_rec.instance_id,
11502: l_supplier_request_date);
11503:
11506: END IF;
11507:
11508: IF l_sources.sup_cap_type(j) = 1 THEN
11509: -- capacity to be checked on ship date
11510: l_supplier_request_date := MSC_CALENDAR.DATE_OFFSET(
11511: l_atp_rec.intransit_cal_code,
11512: l_atp_rec.instance_id,
11513: l_supplier_request_date,
11514: (-1 * l_atp_rec.delivery_lead_time), -1);
11514: (-1 * l_atp_rec.delivery_lead_time), -1);
11515: IF PG_DEBUG in ('Y', 'C') THEN
11516: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after subtracting intransit LT using VIC : '||l_supplier_request_date);
11517: END IF;
11518: l_supplier_request_date := MSC_CALENDAR.PREV_WORK_DAY(
11519: l_atp_rec.shipping_cal_code,
11520: l_atp_rec.instance_id,
11521: l_supplier_request_date);
11522: END IF;
11544: ELSE
11545: l_store_order_date := l_trunc_sysdate;
11546: END IF;
11547:
11548: l_lt_due_date := MSC_CALENDAR.DATE_OFFSET(
11549: p_atp_record.manufacturing_cal_code,
11550: l_atp_rec.instance_id,
11551: l_trunc_sysdate,
11552: l_pre_pro_lt, 1);
11557: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after adding Pre PLT using OMC: '||l_lt_due_date);
11558: END IF;
11559:
11560: IF l_process_lt > 0 THEN
11561: l_lt_due_date := MSC_CALENDAR.DATE_OFFSET(
11562: l_atp_rec.manufacturing_cal_code,
11563: G_PLAN_INFO_REC.sr_instance_id,
11564: l_lt_due_date,
11565: l_process_lt, 1);
11569: END IF;
11570:
11571: -- intransit lead time offset in case of capacity to ship
11572: IF l_sources.sup_cap_type(j) = 1 THEN
11573: l_lt_due_date:= MSC_CALENDAR.NEXT_WORK_DAY(
11574: l_atp_rec.shipping_cal_code,
11575: p_atp_record.instance_id,
11576: l_lt_due_date);
11577: --Bug 3821358
11588: msc_sch_wb.atp_debug('ATP_Check: ' || '--- Capacity to Ship ---');
11589: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after validating on SSC: '||l_lt_due_date);
11590: END IF;
11591:
11592: l_lt_due_date := MSC_CALENDAR.DATE_OFFSET(
11593: l_atp_rec.intransit_cal_code,
11594: G_PLAN_INFO_REC.sr_instance_id,
11595: l_lt_due_date,
11596: l_atp_rec.delivery_lead_time, 1);
11594: G_PLAN_INFO_REC.sr_instance_id,
11595: l_lt_due_date,
11596: l_atp_rec.delivery_lead_time, 1);
11597:
11598: l_lt_due_date := MSC_CALENDAR.NEXT_WORK_DAY(
11599: l_atp_rec.receiving_cal_code,
11600: p_atp_record.instance_id,
11601: l_lt_due_date);
11602:
11612: msc_sch_wb.atp_debug('ATP_Check: ' || '--- Capacity to Dock ---');
11613: END IF;
11614:
11615: --Bug 3821358
11616: l_lt_due_date := MSC_CALENDAR.NEXT_WORK_DAY(
11617: l_atp_rec.receiving_cal_code,
11618: p_atp_record.instance_id,
11619: l_lt_due_date);
11620:
11619: l_lt_due_date);
11620:
11621: l_store_dock_date := l_lt_due_date;
11622:
11623: l_store_ship_date := MSC_CALENDAR.DATE_OFFSET(
11624: l_atp_rec.intransit_cal_code,
11625: G_PLAN_INFO_REC.sr_instance_id,
11626: l_lt_due_date,
11627: (-1 * l_atp_rec.delivery_lead_time), -1);
11625: G_PLAN_INFO_REC.sr_instance_id,
11626: l_lt_due_date,
11627: (-1 * l_atp_rec.delivery_lead_time), -1);
11628:
11629: l_store_ship_date := MSC_CALENDAR.PREV_WORK_DAY(
11630: l_atp_rec.shipping_cal_code,
11631: p_atp_record.instance_id,
11632: l_store_ship_date);
11633: END IF;
11631: p_atp_record.instance_id,
11632: l_store_ship_date);
11633: END IF;
11634:
11635: /*l_lt_due_date := MSC_CALENDAR.NEXT_WORK_DAY(
11636: l_atp_rec.receiving_cal_code,
11637: p_atp_record.instance_id,
11638: l_lt_due_date);*/
11639:
11649: IF PG_DEBUG in ('Y', 'C') THEN
11650: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after validating on ORC: '||l_lt_due_date);
11651: END IF;
11652:
11653: l_lt_due_date := MSC_CALENDAR.DATE_OFFSET(
11654: p_atp_record.manufacturing_cal_code,
11655: p_atp_record.instance_id,
11656: l_lt_due_date,
11657: l_post_pro_lt, 1);
12243:
12244: /* ship_rec_cal changes begin */
12245: -- BEGIN -- removed exception handling from here so that it can be handled in the end
12246: /* Bug 3241766 : Broke the single call to get intermediate dates
12247: l_ship_date := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
12248: l_atp_rec.ship_date, l_atp_rec.shipping_cal_code, +1,
12249: l_atp_rec.intransit_cal_code, nvl(l_atp_rec.delivery_lead_time, 0), +1,
12250: l_atp_rec.receiving_cal_code, +1, p_atp_record.instance_id);
12251: */
12248: l_atp_rec.ship_date, l_atp_rec.shipping_cal_code, +1,
12249: l_atp_rec.intransit_cal_code, nvl(l_atp_rec.delivery_lead_time, 0), +1,
12250: l_atp_rec.receiving_cal_code, +1, p_atp_record.instance_id);
12251: */
12252: l_ship_date := MSC_CALENDAR.NEXT_WORK_DAY(
12253: l_atp_rec.shipping_cal_code,
12254: p_atp_record.instance_id,
12255: l_atp_rec.ship_date);
12256: l_new_ship_date := l_ship_date;
12260: msc_sch_wb.atp_debug('ATP_Check: ' || '___________________Start Offset___________________');
12261: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after validating on OSC: '||l_ship_date);
12262: END IF;
12263:
12264: l_ship_date := MSC_CALENDAR.DATE_OFFSET(
12265: l_atp_rec.intransit_cal_code,
12266: p_atp_record.instance_id,
12267: l_ship_date,
12268: nvl(l_atp_rec.delivery_lead_time, 0),
12271: IF PG_DEBUG in ('Y', 'C') THEN
12272: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after adding intransit LT using VIC: '||l_ship_date);
12273: END IF;
12274:
12275: l_ship_date := MSC_CALENDAR.NEXT_WORK_DAY(
12276: l_atp_rec.receiving_cal_code,
12277: p_atp_record.instance_id,
12278: l_ship_date);
12279: l_new_dock_date := l_ship_date;
12284:
12285: -- Bug 3241766 : Back calculate start date and order date
12286: l_sugg_start_date := l_new_ship_date;
12287:
12288: l_order_date := MSC_CALENDAR.DATE_OFFSET (
12289: p_atp_record.manufacturing_cal_code,
12290: p_atp_record.instance_id,
12291: l_sugg_start_date,
12292: -- Bug 3633591 - Dont use global variable here : -1 * MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt, -1);
12308: IF PG_DEBUG in ('Y', 'C') THEN
12309: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after subtracting pre PLT using OMC : '||l_order_date);
12310: END IF;
12311:
12312: l_ship_date := MSC_CALENDAR.DATE_OFFSET (
12313: p_atp_record.manufacturing_cal_code,
12314: p_atp_record.instance_id,
12315: l_ship_date,
12316: l_post_pro_lt, 1);
12359: ELSE
12360:
12361: IF l_sources.sup_cap_type(j) = 1 THEN
12362:
12363: l_ship_date:= MSC_CALENDAR.NEXT_WORK_DAY(
12364: l_atp_rec.shipping_cal_code,
12365: l_atp_rec.instance_id,
12366: l_atp_rec.ship_date);
12367:
12371: END IF;
12372:
12373: l_new_ship_date := l_ship_date; -- Bug 3241766
12374:
12375: l_ship_date := MSC_CALENDAR.DATE_OFFSET(
12376: l_atp_rec.intransit_cal_code,
12377: l_atp_rec.instance_id,
12378: l_ship_date,
12379: l_atp_rec.delivery_lead_time, 1);
12389: msc_sch_wb.atp_debug('ATP_Check: ' || '--- Capacity to Dock ---');
12390: END IF;
12391:
12392: -- Bug 3241766 : back calculate the ship date
12393: l_new_ship_date := MSC_CALENDAR.DATE_OFFSET(
12394: l_atp_rec.intransit_cal_code,
12395: l_atp_rec.instance_id,
12396: l_ship_date,
12397: -1 * l_atp_rec.delivery_lead_time, -1);
12399: IF PG_DEBUG in ('Y', 'C') THEN
12400: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after adding intransit LT using VIC: '||l_new_ship_date);
12401: END IF;
12402:
12403: l_new_ship_date := MSC_CALENDAR.PREV_WORK_DAY(
12404: l_atp_rec.shipping_cal_code,
12405: l_atp_rec.instance_id,
12406: l_new_ship_date);
12407: --Bug 3821358
12411: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after validating on SSC: '||l_new_ship_date);
12412: END IF;
12413: END IF;
12414:
12415: l_ship_date := MSC_CALENDAR.NEXT_WORK_DAY(
12416: l_atp_rec.receiving_cal_code,
12417: l_atp_rec.instance_id,
12418: l_ship_date );
12419:
12428: IF G_PLAN_INFO_REC.enforce_pur_lead_time = 2 AND l_new_ship_date <= l_trunc_sysdate THEN
12429: l_sugg_start_date := l_trunc_sysdate;
12430: ELSE
12431: IF (l_sources.sup_cap_type(j) = 1) THEN --Bug 3821358
12432: l_sugg_start_date := MSC_CALENDAR.DATE_OFFSET(
12433: l_atp_rec.manufacturing_cal_code,
12434: l_atp_rec.instance_id,
12435: l_new_ship_date,
12436: (-1 * l_process_lt), -1);
12434: l_atp_rec.instance_id,
12435: l_new_ship_date,
12436: (-1 * l_process_lt), -1);
12437: ELSE
12438: l_sugg_start_date := MSC_CALENDAR.DATE_OFFSET(
12439: l_atp_rec.manufacturing_cal_code,
12440: l_atp_rec.instance_id,
12441: l_new_dock_date,
12442: (-1 * l_process_lt), -1);
12452:
12453: IF G_PLAN_INFO_REC.enforce_pur_lead_time = 2 AND l_sugg_start_date <= l_trunc_sysdate THEN
12454: l_order_date := l_trunc_sysdate;
12455: ELSE
12456: l_order_date := MSC_CALENDAR.DATE_OFFSET(
12457: p_atp_record.manufacturing_cal_code, -- use OMC
12458: l_atp_rec.instance_id,
12459: l_sugg_start_date ,
12460: (-1 * l_pre_pro_lt), -1);
12467: IF PG_DEBUG in ('Y', 'C') THEN
12468: msc_sch_wb.atp_debug('ATP_Check: ' || 'Date after subtracting pre PLT using OMC : '||l_order_date);
12469: END IF;
12470:
12471: l_ship_date := MSC_CALENDAR.DATE_OFFSET(
12472: p_atp_record.manufacturing_cal_code,
12473: l_atp_rec.instance_id,
12474: l_ship_date,
12475: l_post_pro_lt, 1);
12491: --- atp lead time from this source and not just ship date
12492: /* s_cto_rearch: Do not honot ATP lead time
12493: IF NVL(p_atp_record.atp_lead_time, 0) > 0 THEN
12494: l_atp_lt_offset_ship_date :=
12495: MSC_CALENDAR.DATE_OFFSET(
12496: p_atp_record.organization_id,
12497: p_atp_record.instance_id,
12498: 1,
12499: l_ship_date,
12632: END IF; -- IF l_atp_pegging_tab.COUNT > 0 THEN
12633:
12634: --bug 2798667: we have already calculated the final date
12635: /*p_atp_record.ship_date :=
12636: MSC_CALENDAR.DATE_OFFSET(
12637: p_atp_record.organization_id,
12638: p_atp_record.instance_id,
12639: 1,
12640: l_ship_date,
13002: IF PG_DEBUG in ('Y', 'C') THEN
13003: msc_sch_wb.atp_debug('ATP_Check: ' || 'Calculate order date');
13004: END IF;
13005: /* ship_rec_cal
13006: l_order_date := MSC_CALENDAR.DATE_OFFSET
13007: (p_atp_record.organization_id,
13008: p_atp_record.instance_id,
13009: 1,
13010: l_requested_ship_date,
13009: 1,
13010: l_requested_ship_date,
13011: (-1 * l_net_processing_lt));*/
13012: -- since it is a make case only calendar being used is p_atp_record.manufacturing_cal_code
13013: l_order_date := MSC_CALENDAR.DATE_OFFSET(
13014: p_atp_record.manufacturing_cal_code,
13015: p_atp_record.instance_id,
13016: l_requested_ship_date,
13017: (-1 * l_net_processing_lt), -1);
13031: IF PG_DEBUG in ('Y', 'C') THEN
13032: msc_sch_wb.atp_debug('ATP_Check: ' || 'Calculate start date');
13033: END IF;
13034: /* ship_rec_cal
13035: l_start_date := MSC_CALENDAR.DATE_OFFSET
13036: (p_atp_record.organization_id,
13037: p_atp_record.instance_id,
13038: 1,
13039: l_requested_ship_date,
13037: p_atp_record.instance_id,
13038: 1,
13039: l_requested_ship_date,
13040: (-1 * l_process_lt));*/
13041: l_start_date := MSC_CALENDAR.DATE_OFFSET(
13042: p_atp_record.manufacturing_cal_code,
13043: p_atp_record.instance_id,
13044: l_requested_ship_date,
13045: (-1 * l_process_lt), -1);
13064: ---calculate earliest due date possible based on PTF date
13065: IF l_net_processing_lt > 0 THEN
13066: /* ship_rec_cal
13067: l_lt_due_date :=
13068: MSC_CALENDAR.date_offset(p_atp_record.organization_id,
13069: p_atp_record.instance_id,
13070: 1,
13071: l_sysdate,
13072: l_net_processing_lt);*/
13070: 1,
13071: l_sysdate,
13072: l_net_processing_lt);*/
13073: l_lt_due_date :=
13074: MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
13075: p_atp_record.instance_id,
13076: l_sysdate,
13077: l_net_processing_lt, 1);
13078: ELSE
13080: END IF;
13081: ---calculate earliest due date possible based on PTF date
13082: IF l_process_lt > 0 THEN
13083: /* ship_rec_cal
13084: l_ptf_due_date := MSC_CALENDAR.date_offset(p_atp_record.organization_id,
13085: p_atp_record.instance_id,
13086: 1,
13087: l_ptf_date,
13088: l_process_lt);*/
13085: p_atp_record.instance_id,
13086: 1,
13087: l_ptf_date,
13088: l_process_lt);*/
13089: l_ptf_due_date := MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
13090: p_atp_record.instance_id,
13091: l_ptf_date,
13092: l_process_lt, 1);
13093: ELSE
13126: -- Therefore we calcuate these dates
13127: --- bug 2178544
13128: IF l_net_processing_lt > 0 THEN
13129: /* ship_rec_cal
13130: MSC_ATP_PVT.G_FUTURE_ORDER_DATE := MSC_CALENDAR.date_offset(p_atp_record.organization_id,
13131: p_atp_record.instance_id,
13132: 1,
13133: l_sysdate,
13134: l_net_processing_lt); */
13131: p_atp_record.instance_id,
13132: 1,
13133: l_sysdate,
13134: l_net_processing_lt); */
13135: MSC_ATP_PVT.G_FUTURE_ORDER_DATE := MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
13136: p_atp_record.instance_id,
13137: l_sysdate,
13138: l_net_processing_lt, 1);
13139: ELSE
13141: END IF;
13142:
13143: IF l_process_lt > 0 THEN
13144: /* ship_rec_cal
13145: l_start_date := MSC_CALENDAR.date_offset(p_atp_record.organization_id,
13146: p_atp_record.instance_id,
13147: 1,
13148: l_ptf_date,
13149: l_process_lt); */
13146: p_atp_record.instance_id,
13147: 1,
13148: l_ptf_date,
13149: l_process_lt); */
13150: l_start_date := MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
13151: p_atp_record.instance_id,
13152: l_ptf_date,
13153: l_process_lt, 1);
13154: ELSE
13163: -- start date. This PTF is start date for the components for the current itme
13164: IF l_pre_pro_lt >0 THEN
13165: MSC_ATP_PVT.G_PTF_DATE := GREATEST(
13166: /* ship_rec_cal
13167: MSC_CALENDAR.date_offset(p_atp_record.organization_id,
13168: p_atp_record.instance_id,
13169: 1,
13170: MSC_ATP_PVT.G_PTF_DATE,
13171: -1 * l_process_lt),*/
13168: p_atp_record.instance_id,
13169: 1,
13170: MSC_ATP_PVT.G_PTF_DATE,
13171: -1 * l_process_lt),*/
13172: MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
13173: p_atp_record.instance_id,
13174: MSC_ATP_PVT.G_PTF_DATE,
13175: -1 * l_process_lt, -1),
13176: l_ptf_date,
13174: MSC_ATP_PVT.G_PTF_DATE,
13175: -1 * l_process_lt, -1),
13176: l_ptf_date,
13177: /* ship_rec_cal
13178: MSC_CALENDAR.date_offset(p_atp_record.organization_id,
13179: p_atp_record.instance_id,
13180: 1,
13181: l_sysdate,
13182: l_pre_pro_lt));*/
13179: p_atp_record.instance_id,
13180: 1,
13181: l_sysdate,
13182: l_pre_pro_lt));*/
13183: MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
13184: p_atp_record.instance_id,
13185: l_sysdate,
13186: l_pre_pro_lt, 1));
13187: ELSE
13186: l_pre_pro_lt, 1));
13187: ELSE
13188: MSC_ATP_PVT.G_PTF_DATE := GREATEST(
13189: /* ship_rec_cal
13190: MSC_CALENDAR.date_offset(p_atp_record.organization_id,
13191: p_atp_record.instance_id,
13192: 1,
13193: MSC_ATP_PVT.G_PTF_DATE,
13194: -1 * l_process_lt),*/
13191: p_atp_record.instance_id,
13192: 1,
13193: MSC_ATP_PVT.G_PTF_DATE,
13194: -1 * l_process_lt),*/
13195: MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
13196: p_atp_record.instance_id,
13197: MSC_ATP_PVT.G_PTF_DATE,
13198: -1 * l_process_lt, -1),
13199: l_ptf_date, l_sysdate);
13243: -- by procedure MSC_ATP_PROC.get_process_effectivity
13244: --Details. Derive Item's Start Date by Offsetting
13245: --Due date with LT. Check effectivity on Start Date.
13246: /* ship_rec_cal
13247: l_opm_start_date := MSC_CALENDAR.date_offset(p_atp_record.organization_id,
13248: p_atp_record.instance_id,
13249: 1,
13250: l_requested_ship_date,
13251: -1 * (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
13249: 1,
13250: l_requested_ship_date,
13251: -1 * (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
13252: nvl(PF_ITEM_INFO_REC.variable_lt,0) * l_PO_qty));*/
13253: l_opm_start_date := MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
13254: p_atp_record.instance_id,
13255: l_requested_ship_date,
13256: -1 * (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
13257: nvl(PF_ITEM_INFO_REC.variable_lt,0) * l_PO_qty), -1);
13570: l_opm_start_date := l_requested_ship_date -
13571: (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
13572: nvl(PF_ITEM_INFO_REC.variable_lt,0) *
13573: l_avail_assembly_qty);*/
13574: l_opm_start_date := MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
13575: p_atp_record.instance_id,
13576: l_requested_ship_date,
13577: -1 * (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
13578: nvl(PF_ITEM_INFO_REC.variable_lt,0) * l_avail_assembly_qty), -1);
13853: --(ssurendr) Bug 2865389. call get_process_effectivity
13854: -- again since quantity has changed. Routing
13855: -- and bill seq id could change in this case.
13856: /* ship_rec_cal
13857: l_opm_start_date := MSC_CALENDAR.date_offset(p_atp_record.organization_id,
13858: p_atp_record.instance_id,
13859: 1,
13860: l_requested_ship_date,
13861: -1 * (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
13859: 1,
13860: l_requested_ship_date,
13861: -1 * (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
13862: nvl(PF_ITEM_INFO_REC.variable_lt,0) * l_res_demand));*/
13863: l_opm_start_date := MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
13864: p_atp_record.instance_id,
13865: l_requested_ship_date,
13866: -1 * (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
13867: nvl(PF_ITEM_INFO_REC.variable_lt,0) * l_res_demand), -1);
14206: --(ssurendr) Bug 2865389 Call procedure get_process_effectivity
14207: --Details. Derive Item's Start Date by Offsetting
14208: --Due date with LT. Check effectivity on Start Date.
14209: /* ship_rec_cal
14210: l_opm_start_date := MSC_CALENDAR.date_offset(p_atp_record.organization_id,
14211: p_atp_record.instance_id,
14212: 1,
14213: l_requested_ship_date,
14214: -1 * (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
14212: 1,
14213: l_requested_ship_date,
14214: -1 * (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
14215: nvl(PF_ITEM_INFO_REC.variable_lt,0) * l_PO_qty));*/
14216: l_opm_start_date := MSC_CALENDAR.date_offset(p_atp_record.manufacturing_cal_code,
14217: p_atp_record.instance_id,
14218: l_requested_ship_date,
14219: -1 * (nvl(PF_ITEM_INFO_REC.fixed_lt,0) +
14220: nvl(PF_ITEM_INFO_REC.variable_lt,0) * l_PO_qty), -1);
14419: l_temp_date := p_atp_record.ship_date;
14420: END IF;
14421:
14422: -- 2859130 move to next work date for forward pass
14423: l_temp_date := MSC_CALENDAR.NEXT_WORK_DAY(
14424: p_atp_record.organization_id,
14425: p_atp_record.instance_id,
14426: 1,
14427: l_temp_date);
14431: --- atp lead time from this source and not just ship date
14432: /* s_cto_rearch: do not honor ATP lead time
14433: IF NVL(p_atp_record.atp_lead_time, 0) > 0 THEN
14434: l_atp_lt_offset_ship_date :=
14435: MSC_CALENDAR.DATE_OFFSET(
14436: p_atp_record.organization_id,
14437: p_atp_record.instance_id,
14438: 1,
14439: --GREATEST(l_comp_atp_date, l_res_atp_date),
14531: END IF; -- IF l_atp_pegging_tab.COUNT > 0 THEN
14532:
14533: --bug 2798667: This value is already in l_atp_lt_offset_ship_date
14534: /* p_atp_record.ship_date :=
14535: MSC_CALENDAR.DATE_OFFSET(
14536: p_atp_record.organization_id,
14537: p_atp_record.instance_id,
14538: 1,
14539: --GREATEST(l_comp_atp_date, l_res_atp_date),
14572: msc_sch_wb.atp_debug('ATP_Check: ' || 'Calculate order date');
14573: END IF;
14574: -- since it is a make case only calendar being used is
14575: --p_atp_record.manufacturing_cal_code
14576: l_order_date := MSC_CALENDAR.DATE_OFFSET(
14577: p_atp_record.manufacturing_cal_code,
14578: p_atp_record.instance_id,
14579: l_temp_date,
14580: (-1 * l_net_processing_lt), -1);
14593: IF (l_process_lt > 0) THEN
14594: IF PG_DEBUG in ('Y', 'C') THEN
14595: msc_sch_wb.atp_debug('ATP_Check: ' || 'Calculate start date');
14596: END IF;
14597: l_start_date := MSC_CALENDAR.DATE_OFFSET(
14598: p_atp_record.manufacturing_cal_code,
14599: p_atp_record.instance_id,
14600: l_temp_date,
14601: (-1 * l_process_lt), -1);
15008:
15009:
15010: IF (l_net_demand = 0) THEN
15011: /* s_cto_rearch: Do not honor atp lead time
15012: p_atp_record.ship_date := MSC_CALENDAR.DATE_OFFSET
15013: (p_atp_record.organization_id,
15014: p_atp_record.instance_id,
15015: 1,
15016: l_requested_ship_date,
15505: -- Supplier Capacity and Lead Time (SCLT) changes
15506: -- First do the Pre-Processing Lead Time Offset in Forward Case.
15507: /* IF l_pre_pro_lt > 0 THEN
15508: /* ship_rec_cal
15509: l_dock_date := MSC_CALENDAR.DATE_OFFSET(p_atp_record.organization_id,
15510: p_atp_record.instance_id, 1,
15511: l_sysdate,
15512: l_pre_pro_lt);*/
15513: /* l_dock_date := MSC_CALENDAR.DATE_OFFSET(
15509: l_dock_date := MSC_CALENDAR.DATE_OFFSET(p_atp_record.organization_id,
15510: p_atp_record.instance_id, 1,
15511: l_sysdate,
15512: l_pre_pro_lt);*/
15513: /* l_dock_date := MSC_CALENDAR.DATE_OFFSET(
15514: p_atp_record.manufacturing_cal_code,
15515: p_atp_record.instance_id,
15516: l_sysdate,
15517: l_pre_pro_lt, 1);
15526: END IF;
15527: -- Next do the Processing lead time offset in Forward Case using Plan Owning Org's calendar.
15528: IF p_atp_record.atp_lead_time > 0 THEN
15529: /* ship_rec_cal
15530: l_dock_date := MSC_CALENDAR.DATE_OFFSET(G_PLAN_INFO_REC.organization_id,
15531: G_PLAN_INFO_REC.sr_instance_id, 1,
15532: l_dock_date,
15533: p_atp_record.atp_lead_time);*/
15534: /* l_dock_date := MSC_CALENDAR.DATE_OFFSET(
15530: l_dock_date := MSC_CALENDAR.DATE_OFFSET(G_PLAN_INFO_REC.organization_id,
15531: G_PLAN_INFO_REC.sr_instance_id, 1,
15532: l_dock_date,
15533: p_atp_record.atp_lead_time);*/
15534: /* l_dock_date := MSC_CALENDAR.DATE_OFFSET(
15535: p_atp_record.manufacturing_cal_code,
15536: G_PLAN_INFO_REC.sr_instance_id,
15537: l_dock_date,
15538: p_atp_record.atp_lead_time, 1);
17016: -- Bug 3515520, don't use org in case customer/site is populated.
17017: -- IF NVL(x_atp_table.internal_org_id(m),x_atp_table.organization_id(m)) IS NOT NULL THEN
17018:
17019: -- Bug 3737759 - Moved from below
17020: l_manufacturing_cal_code := MSC_CALENDAR.Get_Calendar_Code(
17021: p_instance_id,
17022: null,
17023: null,
17024: null,
17025: null,
17026: null,
17027: x_atp_table.source_organization_id(m),
17028: null,
17029: MSC_CALENDAR.OMC);
17030:
17031: -- Bug 3593394
17032: IF MSC_ATP_PVT.G_USE_SHIP_REC_CAL='Y' THEN
17033:
17033:
17034: IF (x_atp_table.internal_org_id(m) IS NOT NULL) OR
17035: (x_atp_table.organization_id(m) IS NOT NULL AND
17036: x_atp_table.customer_id(m) IS NULL AND x_atp_table.customer_site_id(m) IS NULL) THEN
17037: l_receiving_cal_code := MSC_CALENDAR.Get_Calendar_Code(
17038: p_instance_id,
17039: null,
17040: null,
17041: null,
17043: null,
17044: NVL(x_atp_table.internal_org_id(m),x_atp_table.organization_id(m)),
17045: l_ship_method,
17046: -- Bug 3593394 - x_atp_table.ship_method(m),
17047: MSC_CALENDAR.ORC);
17048: ELSIF x_atp_table.customer_id(m) IS NOT NULL THEN
17049: -- receiving party is customer
17050: l_receiving_cal_code := MSC_CALENDAR.Get_Calendar_Code(
17051: p_instance_id,
17046: -- Bug 3593394 - x_atp_table.ship_method(m),
17047: MSC_CALENDAR.ORC);
17048: ELSIF x_atp_table.customer_id(m) IS NOT NULL THEN
17049: -- receiving party is customer
17050: l_receiving_cal_code := MSC_CALENDAR.Get_Calendar_Code(
17051: p_instance_id,
17052: null,
17053: null,
17054: MSC_ATP_PVT.G_PARTNER_ID,
17056: 2,
17057: null,
17058: l_ship_method,
17059: -- Bug 3593394 - x_atp_table.ship_method(m),
17060: MSC_CALENDAR.CRC);
17061: ELSE
17062: -- neither customer nor org is provided
17063: l_receiving_cal_code := MSC_CALENDAR.FOC;
17064: END IF;
17059: -- Bug 3593394 - x_atp_table.ship_method(m),
17060: MSC_CALENDAR.CRC);
17061: ELSE
17062: -- neither customer nor org is provided
17063: l_receiving_cal_code := MSC_CALENDAR.FOC;
17064: END IF;
17065:
17066: l_intransit_cal_code := MSC_CALENDAR.Get_Calendar_Code(
17067: p_instance_id,
17062: -- neither customer nor org is provided
17063: l_receiving_cal_code := MSC_CALENDAR.FOC;
17064: END IF;
17065:
17066: l_intransit_cal_code := MSC_CALENDAR.Get_Calendar_Code(
17067: p_instance_id,
17068: null,
17069: null,
17070: null,
17072: 4,
17073: null,
17074: l_ship_method,
17075: -- Bug 3593394 - x_atp_table.ship_method(m),
17076: MSC_CALENDAR.VIC);
17077:
17078: l_shipping_cal_code := MSC_CALENDAR.Get_Calendar_Code(
17079: p_instance_id,
17080: null,
17074: l_ship_method,
17075: -- Bug 3593394 - x_atp_table.ship_method(m),
17076: MSC_CALENDAR.VIC);
17077:
17078: l_shipping_cal_code := MSC_CALENDAR.Get_Calendar_Code(
17079: p_instance_id,
17080: null,
17081: null,
17082: null,
17084: null,
17085: x_atp_table.source_organization_id(m),
17086: l_ship_method,
17087: -- Bug 3593394 - x_atp_table.ship_method(m),
17088: MSC_CALENDAR.OSC);
17089:
17090: ELSE
17091:
17092: -- Bug 3593394
17096: -- Bug 3737759 - Use receiving org's OMC
17097: IF (x_atp_table.internal_org_id(m) IS NOT NULL) OR
17098: (x_atp_table.organization_id(m) IS NOT NULL AND
17099: x_atp_table.customer_id(m) IS NULL AND x_atp_table.customer_site_id(m) IS NULL) THEN
17100: l_receiving_cal_code := MSC_CALENDAR.Get_Calendar_Code(
17101: p_instance_id,
17102: null,
17103: null,
17104: null,
17105: null,
17106: null,
17107: NVL(x_atp_table.internal_org_id(m),x_atp_table.organization_id(m)),
17108: null,
17109: MSC_CALENDAR.OMC);
17110: ELSE
17111: l_receiving_cal_code := MSC_CALENDAR.FOC;
17112: END IF;
17113: l_intransit_cal_code := MSC_CALENDAR.FOC;
17107: NVL(x_atp_table.internal_org_id(m),x_atp_table.organization_id(m)),
17108: null,
17109: MSC_CALENDAR.OMC);
17110: ELSE
17111: l_receiving_cal_code := MSC_CALENDAR.FOC;
17112: END IF;
17113: l_intransit_cal_code := MSC_CALENDAR.FOC;
17114: -- Bug 3737759 - Use source org's OMC - l_shipping_cal_code := MSC_CALENDAR.FOC;
17115: l_shipping_cal_code := l_manufacturing_cal_code;
17109: MSC_CALENDAR.OMC);
17110: ELSE
17111: l_receiving_cal_code := MSC_CALENDAR.FOC;
17112: END IF;
17113: l_intransit_cal_code := MSC_CALENDAR.FOC;
17114: -- Bug 3737759 - Use source org's OMC - l_shipping_cal_code := MSC_CALENDAR.FOC;
17115: l_shipping_cal_code := l_manufacturing_cal_code;
17116:
17117: END IF;
17110: ELSE
17111: l_receiving_cal_code := MSC_CALENDAR.FOC;
17112: END IF;
17113: l_intransit_cal_code := MSC_CALENDAR.FOC;
17114: -- Bug 3737759 - Use source org's OMC - l_shipping_cal_code := MSC_CALENDAR.FOC;
17115: l_shipping_cal_code := l_manufacturing_cal_code;
17116:
17117: END IF;
17118:
17116:
17117: END IF;
17118:
17119: /* Bug 3737759 - Moved before IF
17120: l_manufacturing_cal_code := MSC_CALENDAR.Get_Calendar_Code(
17121: p_instance_id,
17122: null,
17123: null,
17124: null,
17125: null,
17126: null,
17127: x_atp_table.source_organization_id(m),
17128: null,
17129: MSC_CALENDAR.OMC);
17130: */
17131:
17132: -- Bug 3449812 - Corrected the logic of date calculation
17133: IF x_atp_table.requested_ship_date(m) IS NOT NULL THEN
17130: */
17131:
17132: -- Bug 3449812 - Corrected the logic of date calculation
17133: IF x_atp_table.requested_ship_date(m) IS NOT NULL THEN
17134: x_atp_table.ship_date(m) := MSC_CALENDAR.PREV_WORK_DAY(
17135: l_shipping_cal_code,
17136: p_instance_id,
17137: x_atp_table.requested_ship_date(m));
17138: ELSE
17135: l_shipping_cal_code,
17136: p_instance_id,
17137: x_atp_table.requested_ship_date(m));
17138: ELSE
17139: x_atp_table.ship_date(m) := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
17140: x_atp_table.requested_arrival_date(m), l_receiving_cal_code, -1,
17141: l_intransit_cal_code, -1 * nvl( --l_delivery_lead_time 4430710
17142: x_atp_table.delivery_lead_time(m), 0), -1,
17143: l_shipping_cal_code, -1, p_instance_id);
17148: END IF;
17149:
17150: BEGIN -- Bug2031894. Handle Exception here.
17151:
17152: l_sysdate := MSC_CALENDAR.NEXT_WORK_DAY(
17153: l_shipping_cal_code, -- Bug 3449812
17154: p_instance_id,
17155: sysdate);
17156: EXCEPTION
17210: IF (x_atp_table.requested_ship_date(m) IS NOT NULL) THEN
17211: x_atp_table.ship_date(m) := x_atp_table.requested_ship_date(m);
17212:
17213: -- Bug 3520301 - dont consider first calendar in override cases
17214: x_atp_table.arrival_date(m) := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
17215: x_atp_table.ship_date(m), MSC_CALENDAR.FOC, 1,
17216: l_intransit_cal_code, nvl(x_atp_table.delivery_lead_time(m), 0), 1,
17217: l_receiving_cal_code, 1, p_instance_id);
17218:
17211: x_atp_table.ship_date(m) := x_atp_table.requested_ship_date(m);
17212:
17213: -- Bug 3520301 - dont consider first calendar in override cases
17214: x_atp_table.arrival_date(m) := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
17215: x_atp_table.ship_date(m), MSC_CALENDAR.FOC, 1,
17216: l_intransit_cal_code, nvl(x_atp_table.delivery_lead_time(m), 0), 1,
17217: l_receiving_cal_code, 1, p_instance_id);
17218:
17219: ELSE
17220: x_atp_table.arrival_date(m) := x_atp_table.requested_arrival_date(m);
17221:
17222: -- Bug 3520301 - ship date needs to be recalculated because first calendar
17223: -- is not to be considered in override cases
17224: x_atp_table.ship_date(m) := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
17225: x_atp_table.requested_arrival_date(m), MSC_CALENDAR.FOC, -1,
17226: l_intransit_cal_code, -1 * nvl(x_atp_table.delivery_lead_time(m), 0), -1,
17227: l_shipping_cal_code, -1, p_instance_id);
17228:
17221:
17222: -- Bug 3520301 - ship date needs to be recalculated because first calendar
17223: -- is not to be considered in override cases
17224: x_atp_table.ship_date(m) := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
17225: x_atp_table.requested_arrival_date(m), MSC_CALENDAR.FOC, -1,
17226: l_intransit_cal_code, -1 * nvl(x_atp_table.delivery_lead_time(m), 0), -1,
17227: l_shipping_cal_code, -1, p_instance_id);
17228:
17229: END IF;
17233: x_atp_table.ship_date(m) := GREATEST(l_sysdate, x_atp_table.ship_date(m));
17234:
17235: END IF;
17236: IF (x_atp_table.ship_date(m) IS NOT NULL) AND (x_atp_table.arrival_date(m) IS NULL) THEN
17237: x_atp_table.arrival_date(m) := MSC_CALENDAR.THREE_STEP_CAL_OFFSET_DATE(
17238: x_atp_table.ship_date(m), l_shipping_cal_code, 1,
17239: l_intransit_cal_code, nvl(x_atp_table.delivery_lead_time(m), 0), 1,
17240: l_receiving_cal_code, 1, p_instance_id);
17241: