74: L_API_NAME CONSTANT VARCHAR2(30) := 'CHECK_AVAILABILITY';
75: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
76: L_API_VERSION CONSTANT NUMBER := 1.0;
77:
78: l_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
79: l_instance_id INTEGER;
80: l_session_id NUMBER;
81: x_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
82: x_atp_supply_demand Mrp_Atp_Pub.ATP_Supply_Demand_Typ;
77:
78: l_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
79: l_instance_id INTEGER;
80: l_session_id NUMBER;
81: x_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
82: x_atp_supply_demand Mrp_Atp_Pub.ATP_Supply_Demand_Typ;
83: x_atp_period Mrp_Atp_Pub.ATP_Period_Typ;
84: x_atp_details Mrp_Atp_Pub.ATP_Details_Typ;
85: l_uom_code VARCHAR2(10);
78: l_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
79: l_instance_id INTEGER;
80: l_session_id NUMBER;
81: x_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
82: x_atp_supply_demand Mrp_Atp_Pub.ATP_Supply_Demand_Typ;
83: x_atp_period Mrp_Atp_Pub.ATP_Period_Typ;
84: x_atp_details Mrp_Atp_Pub.ATP_Details_Typ;
85: l_uom_code VARCHAR2(10);
86: l_calling_module NUMBER;
79: l_instance_id INTEGER;
80: l_session_id NUMBER;
81: x_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
82: x_atp_supply_demand Mrp_Atp_Pub.ATP_Supply_Demand_Typ;
83: x_atp_period Mrp_Atp_Pub.ATP_Period_Typ;
84: x_atp_details Mrp_Atp_Pub.ATP_Details_Typ;
85: l_uom_code VARCHAR2(10);
86: l_calling_module NUMBER;
87: l_need_by_date DATE;
80: l_session_id NUMBER;
81: x_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
82: x_atp_supply_demand Mrp_Atp_Pub.ATP_Supply_Demand_Typ;
83: x_atp_period Mrp_Atp_Pub.ATP_Period_Typ;
84: x_atp_details Mrp_Atp_Pub.ATP_Details_Typ;
85: l_uom_code VARCHAR2(10);
86: l_calling_module NUMBER;
87: l_need_by_date DATE;
88: l_return_status VARCHAR2(1);
148:
149: MSC_ATP_GLOBAL.Extend_ATP(l_atp_table, x_return_status);
150:
151: --Assign values to input record
152: l_atp_table.Inventory_Item_Id := Mrp_Atp_Pub.number_arr(p_inventory_item_id);
153: l_atp_table.Source_Organization_Id := Mrp_Atp_Pub.number_arr(p_organization_id);
154: -- SKPATHAK :: Bug 12957299 :: 09-SEP-2011
155: -- As per input from GOP team, passed the org id in Old_Source_Organization_Id also as we pass in schedule materials flow
156: l_atp_table.Old_Source_Organization_Id := Mrp_Atp_Pub.number_arr(p_organization_id);
149: MSC_ATP_GLOBAL.Extend_ATP(l_atp_table, x_return_status);
150:
151: --Assign values to input record
152: l_atp_table.Inventory_Item_Id := Mrp_Atp_Pub.number_arr(p_inventory_item_id);
153: l_atp_table.Source_Organization_Id := Mrp_Atp_Pub.number_arr(p_organization_id);
154: -- SKPATHAK :: Bug 12957299 :: 09-SEP-2011
155: -- As per input from GOP team, passed the org id in Old_Source_Organization_Id also as we pass in schedule materials flow
156: l_atp_table.Old_Source_Organization_Id := Mrp_Atp_Pub.number_arr(p_organization_id);
157: -- TCHIMIRA :: Bug 12957299 :: 03-NOV-2011
152: l_atp_table.Inventory_Item_Id := Mrp_Atp_Pub.number_arr(p_inventory_item_id);
153: l_atp_table.Source_Organization_Id := Mrp_Atp_Pub.number_arr(p_organization_id);
154: -- SKPATHAK :: Bug 12957299 :: 09-SEP-2011
155: -- As per input from GOP team, passed the org id in Old_Source_Organization_Id also as we pass in schedule materials flow
156: l_atp_table.Old_Source_Organization_Id := Mrp_Atp_Pub.number_arr(p_organization_id);
157: -- TCHIMIRA :: Bug 12957299 :: 03-NOV-2011
158: l_atp_table.demand_source_type := Mrp_Atp_Pub.number_arr(100);
159: l_atp_table.Identifier := Mrp_Atp_Pub.number_arr(l_identifier);
160: l_atp_table.Instance_Id := MRP_ATP_PUB.number_arr(l_instance_id) ; --223);
154: -- SKPATHAK :: Bug 12957299 :: 09-SEP-2011
155: -- As per input from GOP team, passed the org id in Old_Source_Organization_Id also as we pass in schedule materials flow
156: l_atp_table.Old_Source_Organization_Id := Mrp_Atp_Pub.number_arr(p_organization_id);
157: -- TCHIMIRA :: Bug 12957299 :: 03-NOV-2011
158: l_atp_table.demand_source_type := Mrp_Atp_Pub.number_arr(100);
159: l_atp_table.Identifier := Mrp_Atp_Pub.number_arr(l_identifier);
160: l_atp_table.Instance_Id := MRP_ATP_PUB.number_arr(l_instance_id) ; --223);
161: l_atp_table.Calling_Module := Mrp_Atp_Pub.number_arr(p_calling_module);
162: l_atp_table.Customer_Id := Mrp_Atp_Pub.number_arr(NULL);
155: -- As per input from GOP team, passed the org id in Old_Source_Organization_Id also as we pass in schedule materials flow
156: l_atp_table.Old_Source_Organization_Id := Mrp_Atp_Pub.number_arr(p_organization_id);
157: -- TCHIMIRA :: Bug 12957299 :: 03-NOV-2011
158: l_atp_table.demand_source_type := Mrp_Atp_Pub.number_arr(100);
159: l_atp_table.Identifier := Mrp_Atp_Pub.number_arr(l_identifier);
160: l_atp_table.Instance_Id := MRP_ATP_PUB.number_arr(l_instance_id) ; --223);
161: l_atp_table.Calling_Module := Mrp_Atp_Pub.number_arr(p_calling_module);
162: l_atp_table.Customer_Id := Mrp_Atp_Pub.number_arr(NULL);
163: l_atp_table.Customer_Site_Id := Mrp_Atp_Pub.number_arr(NULL);
156: l_atp_table.Old_Source_Organization_Id := Mrp_Atp_Pub.number_arr(p_organization_id);
157: -- TCHIMIRA :: Bug 12957299 :: 03-NOV-2011
158: l_atp_table.demand_source_type := Mrp_Atp_Pub.number_arr(100);
159: l_atp_table.Identifier := Mrp_Atp_Pub.number_arr(l_identifier);
160: l_atp_table.Instance_Id := MRP_ATP_PUB.number_arr(l_instance_id) ; --223);
161: l_atp_table.Calling_Module := Mrp_Atp_Pub.number_arr(p_calling_module);
162: l_atp_table.Customer_Id := Mrp_Atp_Pub.number_arr(NULL);
163: l_atp_table.Customer_Site_Id := Mrp_Atp_Pub.number_arr(NULL);
164: l_atp_table.Destination_Time_Zone := Mrp_Atp_Pub.char30_arr(NULL);
157: -- TCHIMIRA :: Bug 12957299 :: 03-NOV-2011
158: l_atp_table.demand_source_type := Mrp_Atp_Pub.number_arr(100);
159: l_atp_table.Identifier := Mrp_Atp_Pub.number_arr(l_identifier);
160: l_atp_table.Instance_Id := MRP_ATP_PUB.number_arr(l_instance_id) ; --223);
161: l_atp_table.Calling_Module := Mrp_Atp_Pub.number_arr(p_calling_module);
162: l_atp_table.Customer_Id := Mrp_Atp_Pub.number_arr(NULL);
163: l_atp_table.Customer_Site_Id := Mrp_Atp_Pub.number_arr(NULL);
164: l_atp_table.Destination_Time_Zone := Mrp_Atp_Pub.char30_arr(NULL);
165: l_atp_table.Quantity_Ordered := Mrp_Atp_Pub.number_arr(p_quantity_required);
158: l_atp_table.demand_source_type := Mrp_Atp_Pub.number_arr(100);
159: l_atp_table.Identifier := Mrp_Atp_Pub.number_arr(l_identifier);
160: l_atp_table.Instance_Id := MRP_ATP_PUB.number_arr(l_instance_id) ; --223);
161: l_atp_table.Calling_Module := Mrp_Atp_Pub.number_arr(p_calling_module);
162: l_atp_table.Customer_Id := Mrp_Atp_Pub.number_arr(NULL);
163: l_atp_table.Customer_Site_Id := Mrp_Atp_Pub.number_arr(NULL);
164: l_atp_table.Destination_Time_Zone := Mrp_Atp_Pub.char30_arr(NULL);
165: l_atp_table.Quantity_Ordered := Mrp_Atp_Pub.number_arr(p_quantity_required);
166: l_atp_table.Quantity_UOM := Mrp_Atp_Pub.char3_arr(p_uom);
159: l_atp_table.Identifier := Mrp_Atp_Pub.number_arr(l_identifier);
160: l_atp_table.Instance_Id := MRP_ATP_PUB.number_arr(l_instance_id) ; --223);
161: l_atp_table.Calling_Module := Mrp_Atp_Pub.number_arr(p_calling_module);
162: l_atp_table.Customer_Id := Mrp_Atp_Pub.number_arr(NULL);
163: l_atp_table.Customer_Site_Id := Mrp_Atp_Pub.number_arr(NULL);
164: l_atp_table.Destination_Time_Zone := Mrp_Atp_Pub.char30_arr(NULL);
165: l_atp_table.Quantity_Ordered := Mrp_Atp_Pub.number_arr(p_quantity_required);
166: l_atp_table.Quantity_UOM := Mrp_Atp_Pub.char3_arr(p_uom);
167: -- Changed by jaramana on 12-OCT-2009 for bug 8910249
160: l_atp_table.Instance_Id := MRP_ATP_PUB.number_arr(l_instance_id) ; --223);
161: l_atp_table.Calling_Module := Mrp_Atp_Pub.number_arr(p_calling_module);
162: l_atp_table.Customer_Id := Mrp_Atp_Pub.number_arr(NULL);
163: l_atp_table.Customer_Site_Id := Mrp_Atp_Pub.number_arr(NULL);
164: l_atp_table.Destination_Time_Zone := Mrp_Atp_Pub.char30_arr(NULL);
165: l_atp_table.Quantity_Ordered := Mrp_Atp_Pub.number_arr(p_quantity_required);
166: l_atp_table.Quantity_UOM := Mrp_Atp_Pub.char3_arr(p_uom);
167: -- Changed by jaramana on 12-OCT-2009 for bug 8910249
168: l_atp_table.Requested_Ship_Date := Mrp_Atp_Pub.date_arr(p_requested_date);
161: l_atp_table.Calling_Module := Mrp_Atp_Pub.number_arr(p_calling_module);
162: l_atp_table.Customer_Id := Mrp_Atp_Pub.number_arr(NULL);
163: l_atp_table.Customer_Site_Id := Mrp_Atp_Pub.number_arr(NULL);
164: l_atp_table.Destination_Time_Zone := Mrp_Atp_Pub.char30_arr(NULL);
165: l_atp_table.Quantity_Ordered := Mrp_Atp_Pub.number_arr(p_quantity_required);
166: l_atp_table.Quantity_UOM := Mrp_Atp_Pub.char3_arr(p_uom);
167: -- Changed by jaramana on 12-OCT-2009 for bug 8910249
168: l_atp_table.Requested_Ship_Date := Mrp_Atp_Pub.date_arr(p_requested_date);
169: l_atp_table.Requested_Arrival_Date := Mrp_Atp_Pub.date_arr(null);
162: l_atp_table.Customer_Id := Mrp_Atp_Pub.number_arr(NULL);
163: l_atp_table.Customer_Site_Id := Mrp_Atp_Pub.number_arr(NULL);
164: l_atp_table.Destination_Time_Zone := Mrp_Atp_Pub.char30_arr(NULL);
165: l_atp_table.Quantity_Ordered := Mrp_Atp_Pub.number_arr(p_quantity_required);
166: l_atp_table.Quantity_UOM := Mrp_Atp_Pub.char3_arr(p_uom);
167: -- Changed by jaramana on 12-OCT-2009 for bug 8910249
168: l_atp_table.Requested_Ship_Date := Mrp_Atp_Pub.date_arr(p_requested_date);
169: l_atp_table.Requested_Arrival_Date := Mrp_Atp_Pub.date_arr(null);
170: l_atp_table.Latest_Acceptable_Date := MRP_ATP_PUB.date_arr(null);
164: l_atp_table.Destination_Time_Zone := Mrp_Atp_Pub.char30_arr(NULL);
165: l_atp_table.Quantity_Ordered := Mrp_Atp_Pub.number_arr(p_quantity_required);
166: l_atp_table.Quantity_UOM := Mrp_Atp_Pub.char3_arr(p_uom);
167: -- Changed by jaramana on 12-OCT-2009 for bug 8910249
168: l_atp_table.Requested_Ship_Date := Mrp_Atp_Pub.date_arr(p_requested_date);
169: l_atp_table.Requested_Arrival_Date := Mrp_Atp_Pub.date_arr(null);
170: l_atp_table.Latest_Acceptable_Date := MRP_ATP_PUB.date_arr(null);
171: l_atp_table.Delivery_Lead_Time := Mrp_Atp_Pub.number_arr(NULL);
172: l_atp_table.Freight_Carrier := Mrp_Atp_Pub.char30_arr(NULL);
165: l_atp_table.Quantity_Ordered := Mrp_Atp_Pub.number_arr(p_quantity_required);
166: l_atp_table.Quantity_UOM := Mrp_Atp_Pub.char3_arr(p_uom);
167: -- Changed by jaramana on 12-OCT-2009 for bug 8910249
168: l_atp_table.Requested_Ship_Date := Mrp_Atp_Pub.date_arr(p_requested_date);
169: l_atp_table.Requested_Arrival_Date := Mrp_Atp_Pub.date_arr(null);
170: l_atp_table.Latest_Acceptable_Date := MRP_ATP_PUB.date_arr(null);
171: l_atp_table.Delivery_Lead_Time := Mrp_Atp_Pub.number_arr(NULL);
172: l_atp_table.Freight_Carrier := Mrp_Atp_Pub.char30_arr(NULL);
173: l_atp_table.Ship_Method := Mrp_Atp_Pub.char30_arr(NULL);
166: l_atp_table.Quantity_UOM := Mrp_Atp_Pub.char3_arr(p_uom);
167: -- Changed by jaramana on 12-OCT-2009 for bug 8910249
168: l_atp_table.Requested_Ship_Date := Mrp_Atp_Pub.date_arr(p_requested_date);
169: l_atp_table.Requested_Arrival_Date := Mrp_Atp_Pub.date_arr(null);
170: l_atp_table.Latest_Acceptable_Date := MRP_ATP_PUB.date_arr(null);
171: l_atp_table.Delivery_Lead_Time := Mrp_Atp_Pub.number_arr(NULL);
172: l_atp_table.Freight_Carrier := Mrp_Atp_Pub.char30_arr(NULL);
173: l_atp_table.Ship_Method := Mrp_Atp_Pub.char30_arr(NULL);
174: l_atp_table.Demand_Class := Mrp_Atp_Pub.char30_arr(NULL);
167: -- Changed by jaramana on 12-OCT-2009 for bug 8910249
168: l_atp_table.Requested_Ship_Date := Mrp_Atp_Pub.date_arr(p_requested_date);
169: l_atp_table.Requested_Arrival_Date := Mrp_Atp_Pub.date_arr(null);
170: l_atp_table.Latest_Acceptable_Date := MRP_ATP_PUB.date_arr(null);
171: l_atp_table.Delivery_Lead_Time := Mrp_Atp_Pub.number_arr(NULL);
172: l_atp_table.Freight_Carrier := Mrp_Atp_Pub.char30_arr(NULL);
173: l_atp_table.Ship_Method := Mrp_Atp_Pub.char30_arr(NULL);
174: l_atp_table.Demand_Class := Mrp_Atp_Pub.char30_arr(NULL);
175: l_atp_table.Ship_Set_Name := Mrp_Atp_Pub.char30_arr(NULL);
168: l_atp_table.Requested_Ship_Date := Mrp_Atp_Pub.date_arr(p_requested_date);
169: l_atp_table.Requested_Arrival_Date := Mrp_Atp_Pub.date_arr(null);
170: l_atp_table.Latest_Acceptable_Date := MRP_ATP_PUB.date_arr(null);
171: l_atp_table.Delivery_Lead_Time := Mrp_Atp_Pub.number_arr(NULL);
172: l_atp_table.Freight_Carrier := Mrp_Atp_Pub.char30_arr(NULL);
173: l_atp_table.Ship_Method := Mrp_Atp_Pub.char30_arr(NULL);
174: l_atp_table.Demand_Class := Mrp_Atp_Pub.char30_arr(NULL);
175: l_atp_table.Ship_Set_Name := Mrp_Atp_Pub.char30_arr(NULL);
176: l_atp_table.Arrival_Set_Name := Mrp_Atp_Pub.char30_arr(NULL);
169: l_atp_table.Requested_Arrival_Date := Mrp_Atp_Pub.date_arr(null);
170: l_atp_table.Latest_Acceptable_Date := MRP_ATP_PUB.date_arr(null);
171: l_atp_table.Delivery_Lead_Time := Mrp_Atp_Pub.number_arr(NULL);
172: l_atp_table.Freight_Carrier := Mrp_Atp_Pub.char30_arr(NULL);
173: l_atp_table.Ship_Method := Mrp_Atp_Pub.char30_arr(NULL);
174: l_atp_table.Demand_Class := Mrp_Atp_Pub.char30_arr(NULL);
175: l_atp_table.Ship_Set_Name := Mrp_Atp_Pub.char30_arr(NULL);
176: l_atp_table.Arrival_Set_Name := Mrp_Atp_Pub.char30_arr(NULL);
177: l_atp_table.Override_Flag := Mrp_Atp_Pub.char1_arr(NULL);
170: l_atp_table.Latest_Acceptable_Date := MRP_ATP_PUB.date_arr(null);
171: l_atp_table.Delivery_Lead_Time := Mrp_Atp_Pub.number_arr(NULL);
172: l_atp_table.Freight_Carrier := Mrp_Atp_Pub.char30_arr(NULL);
173: l_atp_table.Ship_Method := Mrp_Atp_Pub.char30_arr(NULL);
174: l_atp_table.Demand_Class := Mrp_Atp_Pub.char30_arr(NULL);
175: l_atp_table.Ship_Set_Name := Mrp_Atp_Pub.char30_arr(NULL);
176: l_atp_table.Arrival_Set_Name := Mrp_Atp_Pub.char30_arr(NULL);
177: l_atp_table.Override_Flag := Mrp_Atp_Pub.char1_arr(NULL);
178: l_atp_table.Action := Mrp_Atp_Pub.number_arr(100);
171: l_atp_table.Delivery_Lead_Time := Mrp_Atp_Pub.number_arr(NULL);
172: l_atp_table.Freight_Carrier := Mrp_Atp_Pub.char30_arr(NULL);
173: l_atp_table.Ship_Method := Mrp_Atp_Pub.char30_arr(NULL);
174: l_atp_table.Demand_Class := Mrp_Atp_Pub.char30_arr(NULL);
175: l_atp_table.Ship_Set_Name := Mrp_Atp_Pub.char30_arr(NULL);
176: l_atp_table.Arrival_Set_Name := Mrp_Atp_Pub.char30_arr(NULL);
177: l_atp_table.Override_Flag := Mrp_Atp_Pub.char1_arr(NULL);
178: l_atp_table.Action := Mrp_Atp_Pub.number_arr(100);
179: --SKPATHAK :: Bug 8392521 :: 02-APR-2009 :: Changed date_arr(sysdate) to date_arr(NULL)
172: l_atp_table.Freight_Carrier := Mrp_Atp_Pub.char30_arr(NULL);
173: l_atp_table.Ship_Method := Mrp_Atp_Pub.char30_arr(NULL);
174: l_atp_table.Demand_Class := Mrp_Atp_Pub.char30_arr(NULL);
175: l_atp_table.Ship_Set_Name := Mrp_Atp_Pub.char30_arr(NULL);
176: l_atp_table.Arrival_Set_Name := Mrp_Atp_Pub.char30_arr(NULL);
177: l_atp_table.Override_Flag := Mrp_Atp_Pub.char1_arr(NULL);
178: l_atp_table.Action := Mrp_Atp_Pub.number_arr(100);
179: --SKPATHAK :: Bug 8392521 :: 02-APR-2009 :: Changed date_arr(sysdate) to date_arr(NULL)
180: l_atp_table.Ship_Date := Mrp_Atp_Pub.date_arr(NULL);
173: l_atp_table.Ship_Method := Mrp_Atp_Pub.char30_arr(NULL);
174: l_atp_table.Demand_Class := Mrp_Atp_Pub.char30_arr(NULL);
175: l_atp_table.Ship_Set_Name := Mrp_Atp_Pub.char30_arr(NULL);
176: l_atp_table.Arrival_Set_Name := Mrp_Atp_Pub.char30_arr(NULL);
177: l_atp_table.Override_Flag := Mrp_Atp_Pub.char1_arr(NULL);
178: l_atp_table.Action := Mrp_Atp_Pub.number_arr(100);
179: --SKPATHAK :: Bug 8392521 :: 02-APR-2009 :: Changed date_arr(sysdate) to date_arr(NULL)
180: l_atp_table.Ship_Date := Mrp_Atp_Pub.date_arr(NULL);
181: l_atp_table.Available_Quantity := Mrp_Atp_Pub.number_arr(NULL);
174: l_atp_table.Demand_Class := Mrp_Atp_Pub.char30_arr(NULL);
175: l_atp_table.Ship_Set_Name := Mrp_Atp_Pub.char30_arr(NULL);
176: l_atp_table.Arrival_Set_Name := Mrp_Atp_Pub.char30_arr(NULL);
177: l_atp_table.Override_Flag := Mrp_Atp_Pub.char1_arr(NULL);
178: l_atp_table.Action := Mrp_Atp_Pub.number_arr(100);
179: --SKPATHAK :: Bug 8392521 :: 02-APR-2009 :: Changed date_arr(sysdate) to date_arr(NULL)
180: l_atp_table.Ship_Date := Mrp_Atp_Pub.date_arr(NULL);
181: l_atp_table.Available_Quantity := Mrp_Atp_Pub.number_arr(NULL);
182: l_atp_table.Requested_Date_Quantity := Mrp_Atp_Pub.number_arr(NULL);
176: l_atp_table.Arrival_Set_Name := Mrp_Atp_Pub.char30_arr(NULL);
177: l_atp_table.Override_Flag := Mrp_Atp_Pub.char1_arr(NULL);
178: l_atp_table.Action := Mrp_Atp_Pub.number_arr(100);
179: --SKPATHAK :: Bug 8392521 :: 02-APR-2009 :: Changed date_arr(sysdate) to date_arr(NULL)
180: l_atp_table.Ship_Date := Mrp_Atp_Pub.date_arr(NULL);
181: l_atp_table.Available_Quantity := Mrp_Atp_Pub.number_arr(NULL);
182: l_atp_table.Requested_Date_Quantity := Mrp_Atp_Pub.number_arr(NULL);
183: l_atp_table.Group_Ship_Date := Mrp_Atp_Pub.date_arr(NULL);
184: l_atp_table.Vendor_Id := Mrp_Atp_Pub.number_arr(NULL);
177: l_atp_table.Override_Flag := Mrp_Atp_Pub.char1_arr(NULL);
178: l_atp_table.Action := Mrp_Atp_Pub.number_arr(100);
179: --SKPATHAK :: Bug 8392521 :: 02-APR-2009 :: Changed date_arr(sysdate) to date_arr(NULL)
180: l_atp_table.Ship_Date := Mrp_Atp_Pub.date_arr(NULL);
181: l_atp_table.Available_Quantity := Mrp_Atp_Pub.number_arr(NULL);
182: l_atp_table.Requested_Date_Quantity := Mrp_Atp_Pub.number_arr(NULL);
183: l_atp_table.Group_Ship_Date := Mrp_Atp_Pub.date_arr(NULL);
184: l_atp_table.Vendor_Id := Mrp_Atp_Pub.number_arr(NULL);
185: l_atp_table.Vendor_Site_Id := Mrp_Atp_Pub.number_arr(NULL);
178: l_atp_table.Action := Mrp_Atp_Pub.number_arr(100);
179: --SKPATHAK :: Bug 8392521 :: 02-APR-2009 :: Changed date_arr(sysdate) to date_arr(NULL)
180: l_atp_table.Ship_Date := Mrp_Atp_Pub.date_arr(NULL);
181: l_atp_table.Available_Quantity := Mrp_Atp_Pub.number_arr(NULL);
182: l_atp_table.Requested_Date_Quantity := Mrp_Atp_Pub.number_arr(NULL);
183: l_atp_table.Group_Ship_Date := Mrp_Atp_Pub.date_arr(NULL);
184: l_atp_table.Vendor_Id := Mrp_Atp_Pub.number_arr(NULL);
185: l_atp_table.Vendor_Site_Id := Mrp_Atp_Pub.number_arr(NULL);
186: l_atp_table.Insert_Flag := Mrp_Atp_Pub.number_arr(NULL);
179: --SKPATHAK :: Bug 8392521 :: 02-APR-2009 :: Changed date_arr(sysdate) to date_arr(NULL)
180: l_atp_table.Ship_Date := Mrp_Atp_Pub.date_arr(NULL);
181: l_atp_table.Available_Quantity := Mrp_Atp_Pub.number_arr(NULL);
182: l_atp_table.Requested_Date_Quantity := Mrp_Atp_Pub.number_arr(NULL);
183: l_atp_table.Group_Ship_Date := Mrp_Atp_Pub.date_arr(NULL);
184: l_atp_table.Vendor_Id := Mrp_Atp_Pub.number_arr(NULL);
185: l_atp_table.Vendor_Site_Id := Mrp_Atp_Pub.number_arr(NULL);
186: l_atp_table.Insert_Flag := Mrp_Atp_Pub.number_arr(NULL);
187: l_atp_table.Error_Code := Mrp_Atp_Pub.number_arr(NULL);
180: l_atp_table.Ship_Date := Mrp_Atp_Pub.date_arr(NULL);
181: l_atp_table.Available_Quantity := Mrp_Atp_Pub.number_arr(NULL);
182: l_atp_table.Requested_Date_Quantity := Mrp_Atp_Pub.number_arr(NULL);
183: l_atp_table.Group_Ship_Date := Mrp_Atp_Pub.date_arr(NULL);
184: l_atp_table.Vendor_Id := Mrp_Atp_Pub.number_arr(NULL);
185: l_atp_table.Vendor_Site_Id := Mrp_Atp_Pub.number_arr(NULL);
186: l_atp_table.Insert_Flag := Mrp_Atp_Pub.number_arr(NULL);
187: l_atp_table.Error_Code := Mrp_Atp_Pub.number_arr(NULL);
188: l_atp_table.Message := Mrp_Atp_Pub.char2000_arr(NULL);
181: l_atp_table.Available_Quantity := Mrp_Atp_Pub.number_arr(NULL);
182: l_atp_table.Requested_Date_Quantity := Mrp_Atp_Pub.number_arr(NULL);
183: l_atp_table.Group_Ship_Date := Mrp_Atp_Pub.date_arr(NULL);
184: l_atp_table.Vendor_Id := Mrp_Atp_Pub.number_arr(NULL);
185: l_atp_table.Vendor_Site_Id := Mrp_Atp_Pub.number_arr(NULL);
186: l_atp_table.Insert_Flag := Mrp_Atp_Pub.number_arr(NULL);
187: l_atp_table.Error_Code := Mrp_Atp_Pub.number_arr(NULL);
188: l_atp_table.Message := Mrp_Atp_Pub.char2000_arr(NULL);
189:
182: l_atp_table.Requested_Date_Quantity := Mrp_Atp_Pub.number_arr(NULL);
183: l_atp_table.Group_Ship_Date := Mrp_Atp_Pub.date_arr(NULL);
184: l_atp_table.Vendor_Id := Mrp_Atp_Pub.number_arr(NULL);
185: l_atp_table.Vendor_Site_Id := Mrp_Atp_Pub.number_arr(NULL);
186: l_atp_table.Insert_Flag := Mrp_Atp_Pub.number_arr(NULL);
187: l_atp_table.Error_Code := Mrp_Atp_Pub.number_arr(NULL);
188: l_atp_table.Message := Mrp_Atp_Pub.char2000_arr(NULL);
189:
190: IF (l_log_statement >= l_log_current_level) THEN
183: l_atp_table.Group_Ship_Date := Mrp_Atp_Pub.date_arr(NULL);
184: l_atp_table.Vendor_Id := Mrp_Atp_Pub.number_arr(NULL);
185: l_atp_table.Vendor_Site_Id := Mrp_Atp_Pub.number_arr(NULL);
186: l_atp_table.Insert_Flag := Mrp_Atp_Pub.number_arr(NULL);
187: l_atp_table.Error_Code := Mrp_Atp_Pub.number_arr(NULL);
188: l_atp_table.Message := Mrp_Atp_Pub.char2000_arr(NULL);
189:
190: IF (l_log_statement >= l_log_current_level) THEN
191: fnd_log.string(l_log_statement,
184: l_atp_table.Vendor_Id := Mrp_Atp_Pub.number_arr(NULL);
185: l_atp_table.Vendor_Site_Id := Mrp_Atp_Pub.number_arr(NULL);
186: l_atp_table.Insert_Flag := Mrp_Atp_Pub.number_arr(NULL);
187: l_atp_table.Error_Code := Mrp_Atp_Pub.number_arr(NULL);
188: l_atp_table.Message := Mrp_Atp_Pub.char2000_arr(NULL);
189:
190: IF (l_log_statement >= l_log_current_level) THEN
191: fnd_log.string(l_log_statement,
192: L_DEBUG_KEY,
216:
217: IF (l_log_statement >= l_log_current_level) THEN
218: fnd_log.string(l_log_statement,
219: L_DEBUG_KEY,
220: 'Before calling Mrp Atp Pub.Call_ATP');
221: END IF;
222:
223: -- call atp module
224: Mrp_Atp_Pub.Call_ATP
220: 'Before calling Mrp Atp Pub.Call_ATP');
221: END IF;
222:
223: -- call atp module
224: Mrp_Atp_Pub.Call_ATP
225: (l_session_id,
226: l_atp_table,
227: x_atp_table,
228: x_atp_supply_demand,
234:
235: IF (l_log_statement >= l_log_current_level) THEN
236: fnd_log.string(l_log_statement,
237: L_DEBUG_KEY,
238: 'After calling Mrp Atp Pub.Call_ATP. Return Status : '|| l_return_status);
239: END IF;
240:
241: -- Check Error Message stack.
242: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
305:
306: IF (l_log_statement >= l_log_current_level) THEN
307: fnd_log.string(l_log_statement,
308: L_DEBUG_KEY,
309: 'After Calling Mrp Atp Pub. Error Code = ' || x_error_code ||
310: ', Available Quantity : '||x_available_qty);
311: END IF;
312:
313: --Get from mfg lookups
317:
318: IF (l_log_statement >= l_log_current_level) THEN
319: fnd_log.string(l_log_statement,
320: L_DEBUG_KEY,
321: 'After Calling Mrp Atp Pub Error Message : '||x_error_message);
322: END IF;
323: ELSE
324: MSC_ATP_GLOBAL.Extend_ATP(x_atp_table, l_return_status);
325:
356:
357: IF (l_log_statement >= l_log_current_level) THEN
358: fnd_log.string(l_log_statement,
359: L_DEBUG_KEY,
360: 'Derived from Mrp Atp Pub Available Quantity : '||x_available_qty);
361: END IF;
362:
363: -- Check Error Message stack.
364: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
846: p_data => l_msg_data);
847: END Get_Visit_Task_Materials;
848: --
849: PROCEDURE Extend_ATP
850: (p_atp_table IN OUT NOCOPY MRP_ATP_PUB.ATP_Rec_Typ,
851: x_return_status OUT NOCOPY VARCHAR2)
852: IS
853:
854: L_API_NAME CONSTANT VARCHAR2(30) := 'Extend_ATP';
1005: l_api_version CONSTANT NUMBER := 1.0;
1006: l_return_status VARCHAR2(1);
1007: l_msg_data VARCHAR2(2000);
1008: l_msg_count NUMBER;
1009: --Varibales to call mrp atp pub
1010: l_session_id NUMBER;
1011: l_instance_id NUMBER;
1012: l_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1013: x_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1008: l_msg_count NUMBER;
1009: --Varibales to call mrp atp pub
1010: l_session_id NUMBER;
1011: l_instance_id NUMBER;
1012: l_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1013: x_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1014: x_atp_supply_demand Mrp_Atp_Pub.ATP_Supply_Demand_Typ;
1015: x_atp_period Mrp_Atp_Pub.ATP_Period_Typ;
1016: x_atp_details Mrp_Atp_Pub.ATP_Details_Typ;
1009: --Varibales to call mrp atp pub
1010: l_session_id NUMBER;
1011: l_instance_id NUMBER;
1012: l_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1013: x_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1014: x_atp_supply_demand Mrp_Atp_Pub.ATP_Supply_Demand_Typ;
1015: x_atp_period Mrp_Atp_Pub.ATP_Period_Typ;
1016: x_atp_details Mrp_Atp_Pub.ATP_Details_Typ;
1017: l_temp_atp_table AHL_LTP_MATRL_AVAL_PUB.Planned_Matrl_Tbl;
1010: l_session_id NUMBER;
1011: l_instance_id NUMBER;
1012: l_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1013: x_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1014: x_atp_supply_demand Mrp_Atp_Pub.ATP_Supply_Demand_Typ;
1015: x_atp_period Mrp_Atp_Pub.ATP_Period_Typ;
1016: x_atp_details Mrp_Atp_Pub.ATP_Details_Typ;
1017: l_temp_atp_table AHL_LTP_MATRL_AVAL_PUB.Planned_Matrl_Tbl;
1018: l_error_msg VARCHAR2(2000);
1011: l_instance_id NUMBER;
1012: l_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1013: x_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1014: x_atp_supply_demand Mrp_Atp_Pub.ATP_Supply_Demand_Typ;
1015: x_atp_period Mrp_Atp_Pub.ATP_Period_Typ;
1016: x_atp_details Mrp_Atp_Pub.ATP_Details_Typ;
1017: l_temp_atp_table AHL_LTP_MATRL_AVAL_PUB.Planned_Matrl_Tbl;
1018: l_error_msg VARCHAR2(2000);
1019: l_error_message VARCHAR2(80);
1012: l_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1013: x_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1014: x_atp_supply_demand Mrp_Atp_Pub.ATP_Supply_Demand_Typ;
1015: x_atp_period Mrp_Atp_Pub.ATP_Period_Typ;
1016: x_atp_details Mrp_Atp_Pub.ATP_Details_Typ;
1017: l_temp_atp_table AHL_LTP_MATRL_AVAL_PUB.Planned_Matrl_Tbl;
1018: l_error_msg VARCHAR2(2000);
1019: l_error_message VARCHAR2(80);
1020: l_planned_matrl_tbl AHL_LTP_MATRL_AVAL_PUB.Planned_Matrl_Tbl := p_x_planned_matrl_tbl;
1178:
1179: IF (l_log_statement >= l_log_current_level) THEN
1180: fnd_log.string(l_log_statement,
1181: L_DEBUG_KEY,
1182: 'Before calling Mrp Atp Pub.Call_ATP. Calling Module count: '||
1183: l_atp_table.Calling_module.count);
1184: END IF;
1185:
1186: -- Call ATP to Schedule
1183: l_atp_table.Calling_module.count);
1184: END IF;
1185:
1186: -- Call ATP to Schedule
1187: MRP_ATP_PUB.CALL_ATP(l_session_id,
1188: l_atp_table,
1189: x_atp_table,
1190: x_atp_supply_demand,
1191: x_atp_period,
1196:
1197: IF (l_log_statement >= l_log_current_level) THEN
1198: fnd_log.string(l_log_statement,
1199: L_DEBUG_KEY,
1200: 'After calling Mrp Atp Pub.Call_ATP. Return Status : '|| x_return_status);
1201: END IF;
1202:
1203: -- Check Error Message stack.
1204: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1952: l_return_status VARCHAR2(1);
1953: l_msg_data VARCHAR2(2000);
1954: l_msg_count NUMBER;
1955:
1956: --Varibales to call mrp atp pub
1957: l_session_id NUMBER;
1958: l_instance_id NUMBER;
1959: l_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1960: x_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1955:
1956: --Varibales to call mrp atp pub
1957: l_session_id NUMBER;
1958: l_instance_id NUMBER;
1959: l_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1960: x_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1961: x_atp_supply_demand Mrp_Atp_Pub.ATP_Supply_Demand_Typ;
1962: x_atp_period Mrp_Atp_Pub.ATP_Period_Typ;
1963: x_atp_details Mrp_Atp_Pub.ATP_Details_Typ;
1956: --Varibales to call mrp atp pub
1957: l_session_id NUMBER;
1958: l_instance_id NUMBER;
1959: l_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1960: x_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1961: x_atp_supply_demand Mrp_Atp_Pub.ATP_Supply_Demand_Typ;
1962: x_atp_period Mrp_Atp_Pub.ATP_Period_Typ;
1963: x_atp_details Mrp_Atp_Pub.ATP_Details_Typ;
1964: l_error_msg VARCHAR2(2000);
1957: l_session_id NUMBER;
1958: l_instance_id NUMBER;
1959: l_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1960: x_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1961: x_atp_supply_demand Mrp_Atp_Pub.ATP_Supply_Demand_Typ;
1962: x_atp_period Mrp_Atp_Pub.ATP_Period_Typ;
1963: x_atp_details Mrp_Atp_Pub.ATP_Details_Typ;
1964: l_error_msg VARCHAR2(2000);
1965: l_order_number NUMBER;
1958: l_instance_id NUMBER;
1959: l_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1960: x_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1961: x_atp_supply_demand Mrp_Atp_Pub.ATP_Supply_Demand_Typ;
1962: x_atp_period Mrp_Atp_Pub.ATP_Period_Typ;
1963: x_atp_details Mrp_Atp_Pub.ATP_Details_Typ;
1964: l_error_msg VARCHAR2(2000);
1965: l_order_number NUMBER;
1966:
1959: l_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1960: x_atp_table Mrp_Atp_Pub.ATP_Rec_Typ;
1961: x_atp_supply_demand Mrp_Atp_Pub.ATP_Supply_Demand_Typ;
1962: x_atp_period Mrp_Atp_Pub.ATP_Period_Typ;
1963: x_atp_details Mrp_Atp_Pub.ATP_Details_Typ;
1964: l_error_msg VARCHAR2(2000);
1965: l_order_number NUMBER;
1966:
1967: -- Variables added by surrkuma on 14-JUL-2010 for the bug 9901811
2059: END LOOP;
2060:
2061: IF (l_log_statement >= l_log_current_level) THEN
2062: fnd_log.string(l_log_statement, L_DEBUG_KEY,
2063: 'Before calling MRP_ATP_PUB.CALL_ATP. Calling Module count: ' || l_atp_table.Calling_module.count);
2064: END IF;
2065:
2066: -- Call ATP to Reschedule
2067: MRP_ATP_PUB.CALL_ATP(l_session_id,
2063: 'Before calling MRP_ATP_PUB.CALL_ATP. Calling Module count: ' || l_atp_table.Calling_module.count);
2064: END IF;
2065:
2066: -- Call ATP to Reschedule
2067: MRP_ATP_PUB.CALL_ATP(l_session_id,
2068: l_atp_table,
2069: x_atp_table,
2070: x_atp_supply_demand,
2071: x_atp_period,
2075: x_msg_count);
2076:
2077: IF (l_log_statement >= l_log_current_level) THEN
2078: fnd_log.string(l_log_statement, L_DEBUG_KEY,
2079: 'After calling MRP_ATP_PUB.CALL_ATP. Return Status : ' || x_return_status);
2080: END IF;
2081:
2082: -- Check Error Message stack.
2083: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN