[Home] [Help]
2: /* $Header: MSCEATPB.pls 120.15 2007/12/12 10:25:46 sbnaik ship $ */
3: G_PKG_NAME CONSTANT VARCHAR2(30) := 'MSC_ATP_PUB';
4: NO_APS_INSTANCE CONSTANT INTEGER := 140;
5: PROF_TBL_NOT_IN_SYNC CONSTANT INTEGER := 170;
6: G_INV_CTP NUMBER := FND_PROFILE.value('INV_CTP');
7: G_CTO_FLAG NUMBER := 0;
8: G_CALL_ATP number :=2; --4421391, the flag will track whether debug/session is set or not.
9: --G_ATP_CHECK VARCHAR2(1) := 'N'; /* Bug 2249504 */
10: G_ATP_BOM_REC MRP_ATP_PUB.ATP_BOM_Rec_Typ;
18: -- easier, Call_ATP actually calls the Call_ATP_No_Commit and then do a commit
19:
20:
21:
22: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('MSC_ATP_DEBUG'), 'N');
23:
24: PROCEDURE Check_CTO(
25: p_atp_rec IN OUT NOCOPY MRP_ATP_PUB.ATP_Rec_Typ,
26: p_session_id IN NUMBER,
372: i := -1;
373:
374: -- Bug 1822005, modified Call_ATP to close DB Link after ATP Transaction is
375: -- finished by commit or rollback.
376: --l_db_profile := FND_PROFILE.value('MRP_ATP_DATABASE_LINK');
377: IF l_a2m_dblink IS NOT NULL THEN --bug3049003 changed from G_DB_PROFILE to l_a2m_dblink
378: IF PG_DEBUG in ('Y', 'C') THEN
379: msc_sch_wb.atp_debug('Call_ATP_Commit: ' || 'after commit, before closing DB Link');
380: END IF;
431: END IF;
432: -- Close the DB Link in case it is open
433: -- Bug 1822005, modified Call_ATP to close DB Link after ATP Transaction is
434: -- finished by commit or rollback.
435: --l_db_profile := FND_PROFILE.value('MRP_ATP_DATABASE_LINK');
436: IF l_a2m_dblink IS NOT NULL THEN --bug3049003 changed from G_DB_PROFILE to l_a2m_dblink
437:
438: cursor_name := dbms_sql.open_cursor;
439: DBMS_SQL.PARSE(cursor_name, 'alter session close database link ' ||l_a2m_dblink, --bug3049003 changed from G_DB_PROFILE to l_a2m_dblink
526:
527: -- Check if this is a demand modify from OM and profile option
528: -- is set to allow prescheduled order import without ATP, return ATP success.
529: IF NVL(p_atp_rec.Calling_Module(i), -99) = 660 AND
530: NVL(FND_PROFILE.value('MSC_OM_IMPORT_PRESCHEDULED'), 'N') = 'Y' THEN
531:
532: IF PG_DEBUG in ('Y', 'C') THEN
533: msc_sch_wb.atp_debug('Call_ATP: ' || 'Inside Prescheduled order import support for OM');
534: END IF;
1044: NVL(p_atp_rec.attribute_03(i), -1) <> -1
1045: THEN
1046: l_assign_set_id := p_atp_rec.attribute_03(i);
1047: ELSE
1048: l_assign_set_id := FND_PROFILE.value('MSC_ATP_ASSIGN_SET');
1049: END IF;
1050:
1051: IF PG_DEBUG in ('Y', 'C') THEN
1052: msc_sch_wb.atp_debug('Call_ATP_No_Commit: ' || 'l_assign_set_id = '||l_assign_set_id);
1059: WHERE instance_id = l_instance_id;
1060: END IF;
1061:
1062: ELSE
1063: -- G_DB_PROFILE := FND_PROFILE.value('MRP_ATP_DATABASE_LINK'); bug3049003 changed from G_DB_PROFILE to l_a2m_dblink
1064: --l_db_profile := FND_PROFILE.value('MRP_ATP_DATABASE_LINK');
1065: -- this request is from the sourcce instance
1066: -- get the assignment set from profile in mrp
1067:
1060: END IF;
1061:
1062: ELSE
1063: -- G_DB_PROFILE := FND_PROFILE.value('MRP_ATP_DATABASE_LINK'); bug3049003 changed from G_DB_PROFILE to l_a2m_dblink
1064: --l_db_profile := FND_PROFILE.value('MRP_ATP_DATABASE_LINK');
1065: -- this request is from the sourcce instance
1066: -- get the assignment set from profile in mrp
1067:
1068: --diag_atp
1072: NVL(p_atp_rec.attribute_03(i), -1) <> -1
1073: THEN
1074: l_assign_set_id := p_atp_rec.attribute_03(i);
1075: ELSE
1076: l_assign_set_id := FND_PROFILE.value('MRP_ATP_ASSIGN_SET');
1077: END IF;
1078:
1079: IF PG_DEBUG in ('Y', 'C') THEN
1080: msc_sch_wb.atp_debug('Call_ATP_No_Commit: ' || 'l_assign_set_id = '||l_assign_set_id);
1086: ELSE
1087: -- this request is from the sourcce instance
1088: -- get the assignment set from profile in mrp
1089:
1090: l_assign_set_id := FND_PROFILE.value('MRP_ATP_ASSIGN_SET');
1091:
1092: -- get instance id from mrp_ap_apps_instances.
1093: BEGIN
1094: SELECT instance_id
1875: ELSE
1876: x_atp_rec.requested_date_quantity(j) := x_atp_rec.quantity_ordered(j);
1877: END IF;
1878: */
1879: L_MOVE_PAST_DUE_TO_SYSDATE := NVL(FND_PROFILE.value('MSC_MOVE_PAST_DUE_TO_SYSDATE'), 'Y'); -- Bug 5584634/5618929
1880: IF PG_DEBUG in ('Y', 'C') THEN
1881: msc_sch_wb.atp_debug('Schedule: ' || 'MOVE_PAST_DUE_TO_SYS_DATE :'|| L_MOVE_PAST_DUE_TO_SYSDATE);
1882: END IF;
1883: if L_MOVE_PAST_DUE_TO_SYSDATE = 'Y' THEN -- Bug 5584634/5618929
1931: msc_sch_wb.atp_debug('l_past_due_ship_date := ' || l_past_due_ship_date); --bug4291375
1932: END IF;
1933: -- ship_rec_cal project changes end
1934: --s_cto_rearch: bug 3169831 : Honor lead time only when profile option is turned on
1935: l_enforce_model_lt := NVL(FND_PROFILE.VALUE('MSC_ENFORCE_MODEL_LT'), 'Y');
1936:
1937: IF PG_DEBUG in ('Y', 'C') THEN
1938: msc_sch_wb.atp_debug('l_enforce_model_lt := ' || l_enforce_model_lt);
1939: msc_sch_wb.atp_debug('atp lead time := ' || x_atp_rec.atp_lead_time(j));
2430: msc_sch_wb.atp_debug('Call_ATP_No_Commit: ' || 'l_instance_id ' || l_instance_id);
2431: msc_sch_wb.atp_debug('Call_ATP_No_Commit: ' || 'l_assign_set_id ' || l_assign_set_id);
2432: msc_sch_wb.atp_debug('Call_ATP_No_Commit: ' || 'l_refresh_number ' || l_refresh_number);
2433: msc_sch_wb.atp_debug('Call_ATP_No_Commit: ' || 'l_def_assign_set_id ' || l_def_assign_set_id);
2434: msc_sch_wb.atp_debug('Call_ATP_No_Commit: ' || 'MSC_ATP_DEBUG ' || FND_PROFILE.value('MSC_ATP_DEBUG'));
2435: msc_sch_wb.atp_debug('Call_ATP_No_Commit: ' || 'l_node_id ' || l_node_id);
2436: END IF;
2437:
2438: EXECUTE IMMEDIATE plsql_block USING
2440: l_instance_id,
2441: l_assign_set_id,
2442: l_refresh_number,
2443: l_def_assign_set_id,
2444: FND_PROFILE.value('MSC_ATP_DEBUG'),
2445: OUT l_session_loc_des, --ATP Debug Workflow --added OUT, 4727103
2446: OUT l_spid_des, --ATP Debug Workflow
2447: OUT l_trace_loc_des, --ATP Debug Workflow
2448: l_node_id; --Bug3593394
2516:
2517: IF G_INV_CTP = 4 THEN
2518: --call substitution workflow
2519: IF x_atp_rec.action(1) <> 100 and x_atp_rec.calling_module(i) = 660 THEN
2520: l_wf_profile := NVL(fnd_profile.value('MSC_ALLOCATED_ATP_WORKFLOW'), 'N');
2521: IF PG_DEBUG in ('Y', 'C') THEN
2522: msc_sch_wb.atp_debug('Call_ATP_No_Commit: ' || 'WF Profile:' || l_wf_profile);
2523: END IF;
2524: IF l_wf_profile = 'Y' THEN
2558: END IF;
2559: -- check if summary is enabled
2560: -- Bug 3762695: Use source side profile value for 'MSC: Enable ATP Summary mode'
2561: l_summary_flag := 'N';
2562: IF NVL( FND_PROFILE.VALUE('MSC_ENABLE_ATP_SUMMARY'), 'N') = 'Y' THEN
2563: BEGIN
2564: select summary_flag
2565: into l_summary_flag
2566: from mrp_atp_details_temp