[Home] [Help]
993: msc_sch_wb.atp_debug (' Partner Type : ' || p_partner_type);
994: msc_sch_wb.atp_debug (' Organization ID : ' || p_organization_id);
995: msc_sch_wb.atp_debug (' Ship Method Code : ' || p_ship_method_code);
996: msc_sch_wb.atp_debug (' Calendar Type : ' || p_calendar_type);
997: msc_sch_wb.atp_debug ('G_USE_SHIP_REC_CAL: ' || MSC_ATP_PVT.G_USE_SHIP_REC_CAL);
998: msc_sch_wb.atp_debug (' ');
999: END IF;
1000:
1001: -- case 1. Searching for a valid suplier's shipping calendar (SSC) or valid customer receiving calendar (CRC)
1001: -- case 1. Searching for a valid suplier's shipping calendar (SSC) or valid customer receiving calendar (CRC)
1002: IF (p_calendar_type = MSC_CALENDAR.SSC OR p_calendar_type = MSC_CALENDAR.CRC) THEN
1003:
1004: -- Bug 3593394
1005: IF MSC_ATP_PVT.G_USE_SHIP_REC_CAL='Y' THEN
1006: -- l_calendar_code is already initialized to FOC
1007:
1008: -- For SSC p_partner_type = 1, for CRC p_partner_type = 2
1009: IF p_calendar_type = MSC_CALENDAR.CRC THEN
1032: AND p_organization_id IS NOT NULL THEN -- Condition added to handle scheduling cases where both
1033: -- org and customer are NULL. Done with Enforce Pur LT changes.
1034:
1035: -- Bug 3593394
1036: IF MSC_ATP_PVT.G_USE_SHIP_REC_CAL='Y' THEN
1037:
1038: IF p_calendar_type = MSC_CALENDAR.ORC THEN
1039: l_calendar_type := 'RECEIVING';
1040: ELSE
1066: -- case 3. Searching for valid Intransit Calendar (VIC)
1067: ELSIF (p_calendar_type = MSC_CALENDAR.VIC) THEN
1068:
1069: -- Bug 3593394
1070: IF MSC_ATP_PVT.G_USE_SHIP_REC_CAL='Y' THEN
1071: -- l_calendar_code is already initialized to FOC
1072:
1073: -- p_partner_type = 4
1074: SELECT calendar_code, association_type
1183: msc_sch_wb.atp_debug (' Partner Type : ' || p_partner_type);
1184: msc_sch_wb.atp_debug (' Organization ID : ' || p_organization_id);
1185: msc_sch_wb.atp_debug (' Ship Method Code : ' || p_ship_method_code);
1186: msc_sch_wb.atp_debug (' Calendar Type : ' || p_calendar_type);
1187: msc_sch_wb.atp_debug ('G_USE_SHIP_REC_CAL: ' || MSC_ATP_PVT.G_USE_SHIP_REC_CAL);
1188: msc_sch_wb.atp_debug (' ');
1189: END IF;
1190:
1191: -- case 1. Searching for a valid suplier's shipping calendar (SSC) or valid customer receiving calendar (CRC)
1191: -- case 1. Searching for a valid suplier's shipping calendar (SSC) or valid customer receiving calendar (CRC)
1192: IF (p_calendar_type = MSC_CALENDAR.SSC OR p_calendar_type = MSC_CALENDAR.CRC) THEN
1193:
1194: -- Bug 3593394
1195: --IF MSC_ATP_PVT.G_USE_SHIP_REC_CAL='Y' THEN
1196: -- l_calendar_code is already initialized to FOC
1197:
1198: -- For SSC p_partner_type = 1, for CRC p_partner_type = 2
1199: IF p_calendar_type = MSC_CALENDAR.CRC THEN
1220: AND p_organization_id IS NOT NULL THEN -- Condition added to handle scheduling cases where both
1221: -- org and customer are NULL. Done with Enforce Pur LT changes.
1222:
1223: -- Bug 3593394
1224: --IF MSC_ATP_PVT.G_USE_SHIP_REC_CAL='Y' THEN
1225: IF p_calendar_type = MSC_CALENDAR.ORC THEN
1226: l_calendar_type := 'RECEIVING';
1227: ELSE
1228: l_calendar_type := 'SHIPPING';
1247: END IF;*/
1248: -- case 3. Searching for valid Intransit Calendar (VIC)
1249: ELSIF (p_calendar_type = MSC_CALENDAR.VIC) THEN
1250: -- Bug 3593394
1251: --IF MSC_ATP_PVT.G_USE_SHIP_REC_CAL='Y' THEN
1252: -- l_calendar_code is already initialized to FOC
1253: -- p_partner_type = 4
1254: SELECT calendar_code, association_type
1255: INTO l_calendar_code, p_association_type
1333: IF (p_calendar_code IS NULL) OR
1334: (p_instance_id IS NULL) OR
1335: (p_calendar_date IS NULL) THEN
1336: --RETURN NULL; bug3583705
1337: RAISE MSC_ATP_PVT.NO_MATCHING_DATE_IN_CAL;
1338: END IF;
1339:
1340: IF (p_calendar_code = MSC_CALENDAR.FOC) THEN
1341: RETURN p_calendar_date;
1360: WHERE SR_INSTANCE_ID = p_instance_id
1361: AND CALENDAR_CODE = p_calendar_code;
1362: EXCEPTION
1363: WHEN NO_DATA_FOUND THEN
1364: RAISE MSC_ATP_PVT.NO_MATCHING_DATE_IN_CAL;
1365: END;
1366:
1367: IF p_calendar_date >= l_last_work_day THEN
1368: l_next_work_day := l_last_work_day;
1391: IF (p_calendar_code IS NULL) OR
1392: (p_instance_id IS NULL) OR
1393: (p_calendar_date IS NULL) THEN
1394: --RETURN NULL; bug3583705
1395: RAISE MSC_ATP_PVT.NO_MATCHING_DATE_IN_CAL;
1396: END IF;
1397:
1398: IF p_calendar_code = MSC_CALENDAR.FOC THEN
1399: RETURN p_calendar_date;
1418: WHERE SR_INSTANCE_ID = p_instance_id
1419: AND CALENDAR_CODE = p_calendar_code;
1420: EXCEPTION
1421: WHEN NO_DATA_FOUND THEN
1422: RAISE MSC_ATP_PVT.NO_MATCHING_DATE_IN_CAL;
1423: END;
1424:
1425: IF p_calendar_date >= l_last_work_day THEN
1426: l_prev_work_day := l_last_work_day;
1453: (p_instance_id IS NULL) OR
1454: (p_calendar_date IS NULL) OR
1455: (p_days_offset IS NULL) THEN
1456: --RETURN NULL; bug3583705
1457: RAISE MSC_ATP_PVT.NO_MATCHING_DATE_IN_CAL;
1458: END IF;
1459:
1460: IF (p_days_offset = 0) and (p_calendar_code = MSC_CALENDAR.FOC) THEN
1461: RETURN p_calendar_date;
1514: WHERE SR_INSTANCE_ID = p_instance_id
1515: AND CALENDAR_CODE = p_calendar_code;
1516: EXCEPTION
1517: WHEN NO_DATA_FOUND THEN
1518: RAISE MSC_ATP_PVT.NO_MATCHING_DATE_IN_CAL;
1519: END;
1520:
1521: /* Logic to retain dates was wrong. Fixed along with Enforce Pur LT changes
1522: IF p_calendar_date + l_days_offset >= l_last_work_day THEN
1566: WHERE SR_INSTANCE_ID = p_instance_id
1567: AND CALENDAR_CODE = p_calendar_code;
1568: EXCEPTION
1569: WHEN NO_DATA_FOUND THEN
1570: RAISE MSC_ATP_PVT.NO_MATCHING_DATE_IN_CAL;
1571: END;
1572:
1573: /* Logic to retain dates was wrong. Fixed along with Enforce Pur LT changes
1574: IF p_calendar_date + l_days_offset >= l_last_work_day THEN