1475: msc_sch_wb.atp_debug('PROCEDURE Put_Period_Data');
1476: msc_sch_wb.atp_debug('Put_Period_Data: ' || ' period records '||p_atp_period.level.COUNT);
1477: END IF;
1478:
1479: l_user_id := FND_GLOBAL.user_id;
1480: l_sysdate := sysdate;
1481:
1482: IF p_dblink IS NULL THEN
1483: FORALL j IN 1..p_atp_period.level.COUNT
1723: -- tables. The pegging records will always be there in the server,
1724: -- if the source instance is different than the server, we need to
1725: -- put it back into source.
1726:
1727: l_user_id := FND_GLOBAL.USER_ID;
1728: IF PG_DEBUG in ('Y', 'C') THEN
1729: msc_sch_wb.atp_debug('Put_Pegging_data: ' || 'p_dblink = ' ||p_dblink);
1730: END IF;
1731:
1884: l_count number; -- for bug 2974324
1885:
1886: BEGIN
1887:
1888: l_user_id := FND_GLOBAL.USER_ID;
1889: IF p_dblink IS NOT NULL THEN
1890: l_dynstring := '@' || p_dblink;
1891: END IF;
1892:
2488: cur_handler NUMBER;
2489: l_user_id number;
2490: BEGIN
2491:
2492: l_user_id := FND_GLOBAL.USER_ID;
2493:
2494: IF p_atp_supply_demand.level.COUNT > 0 THEN
2495: IF PG_DEBUG in ('Y', 'C') THEN
2496: msc_sch_wb.atp_debug('Put_SD_Data: ' || ' SD records '||p_atp_supply_demand.level.COUNT);
2858: IF PG_DEBUG in ('Y', 'C') THEN
2859: msc_sch_wb.atp_debug('enter Put_Sch_data_Request_Mode');
2860: END IF;
2861:
2862: l_user_id := FND_GLOBAL.USER_ID;
2863: l_count := p_atp_rec.inventory_item_id.count;
2864: --- Delete Old Data
2865: Delete from mrp_atp_schedule_temp where session_id = p_session_id
2866: --bug 3378648: delete only ATP relevent data