[Home] [Help]
PACKAGE BODY: APPS.MSC_ATP_BPEL
Source
1 PACKAGE BODY MSC_ATP_BPEL AS
2 /* $Header: MSCATPBB.pls 120.0 2007/12/18 10:13:49 arrsubra noship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30) := 'MSC_ATP_BPEL' ;
5
6 PROCEDURE ATP_Rec_convert_tab(
7 p_atp_tab IN MSC_ATP_BPEL.ATP_Rec_Table_Typ,
8 x_atp_rec OUT NoCopy MRP_ATP_PUB.ATP_Rec_Typ )
9 IS
10
11 x_return_status varchar2(10);
12
13 begin
14
15 msc_sch_wb.atp_debug('Begin Procedure ATP_Rec_convert_tab');
16
17 for i in 1..p_atp_tab.COUNT loop
18
19 msc_sch_wb.atp_debug('Before extend');
20
21 MSC_SATP_FUNC.Extend_Atp(x_atp_rec, x_return_status, 1);
22
23 msc_sch_wb.atp_debug('After extend');
24 msc_sch_wb.atp_debug('x_atp_rec.Row_Id.count: '||x_atp_rec.Row_Id.COUNT);
25
26 --assignments
27 x_atp_rec.Row_Id(i) := p_atp_tab(i).Row_Id;
28 x_atp_rec.Instance_Id(i) := p_atp_tab(i).Instance_Id ;
29 x_atp_rec.Inventory_Item_Id(i) := p_atp_tab(i).Inventory_Item_Id ;
30 x_atp_rec.Inventory_Item_Name(i) := p_atp_tab(i).Inventory_Item_Name;
31 x_atp_rec.Source_Organization_Id(i) := p_atp_tab(i).Source_Organization_Id ;
32 x_atp_rec.Source_Organization_Code(i) := p_atp_tab(i).Source_Organization_Code;
33 x_atp_rec.Organization_Id(i) := p_atp_tab(i).Organization_Id;
34 x_atp_rec.Identifier(i) := p_atp_tab(i).Identifier ;
35 x_atp_rec.Demand_Source_Header_Id(i) := p_atp_tab(i).Demand_Source_Header_Id;
36 x_atp_rec.Demand_Source_Delivery(i) := p_atp_tab(i).Demand_Source_Delivery ;
37 x_atp_rec.Demand_Source_Type(i) := p_atp_tab(i).Demand_Source_Type ;
38 x_atp_rec.Scenario_Id(i) := p_atp_tab(i).Scenario_Id;
39 x_atp_rec.Calling_Module(i) := p_atp_tab(i).Calling_Module ;
40 x_atp_rec.Customer_Id(i) := p_atp_tab(i).Customer_Id;
41 x_atp_rec.Customer_Site_Id(i) := p_atp_tab(i).Customer_Site_Id ;
42 x_atp_rec.Destination_Time_Zone(i) := p_atp_tab(i).Destination_Time_Zone ;
43 x_atp_rec.Quantity_Ordered(i) := p_atp_tab(i).Quantity_Ordered ;
44 x_atp_rec.Quantity_UOM(i) := p_atp_tab(i).Quantity_UOM ;
45 x_atp_rec.Requested_Ship_Date(i) := p_atp_tab(i).Requested_Ship_Date ;
46 x_atp_rec.Requested_Arrival_Date(i) := p_atp_tab(i).Requested_Arrival_Date ;
47 x_atp_rec.Earliest_Acceptable_Date(i) := p_atp_tab(i).Earliest_Acceptable_Date ;
48 x_atp_rec.Latest_Acceptable_Date(i) := p_atp_tab(i).Latest_Acceptable_Date;
49 x_atp_rec.Delivery_Lead_Time(i) := p_atp_tab(i).Delivery_Lead_Time ;
50 x_atp_rec.Freight_Carrier(i) := p_atp_tab(i).Freight_Carrier;
51 x_atp_rec.Ship_Method(i) := p_atp_tab(i).Ship_Method ;
52 x_atp_rec.Demand_Class(i) := p_atp_tab(i).Demand_Class ;
53 x_atp_rec.Ship_Set_Name(i) := p_atp_tab(i).Ship_Set_Name;
54 x_atp_rec.Arrival_Set_Name(i) := p_atp_tab(i).Arrival_Set_Name ;
55 x_atp_rec.Override_Flag(i) := p_atp_tab(i).Override_Flag ;
56 x_atp_rec.Action(i) := p_atp_tab(i).Action ;
57 x_atp_rec.Ship_Date(i) := p_atp_tab(i).Ship_Date ;
58 x_atp_rec.Arrival_date(i) := p_atp_tab(i).Arrival_date;
59 x_atp_rec.Available_Quantity(i) := p_atp_tab(i).Available_Quantity ;
60 x_atp_rec.Requested_Date_Quantity(i) := p_atp_tab(i).Requested_Date_Quantity ;
61 x_atp_rec.Group_Ship_Date(i) := p_atp_tab(i).Group_Ship_Date;
62 x_atp_rec.Group_Arrival_Date(i) := p_atp_tab(i).Group_Arrival_Date ;
63 x_atp_rec.Vendor_Id(i) := p_atp_tab(i).Vendor_Id;
64 x_atp_rec.Vendor_Name(i) := p_atp_tab(i).Vendor_Name;
65 x_atp_rec.Vendor_Site_Id(i) := p_atp_tab(i).Vendor_Site_Id;
66 x_atp_rec.Vendor_Site_Name(i) := p_atp_tab(i).Vendor_Site_Name;
67 x_atp_rec.Insert_Flag(i) := p_atp_tab(i).Insert_Flag;
68 x_atp_rec.OE_Flag(i) := p_atp_tab(i).OE_Flag;
69 x_atp_rec.Atp_Lead_Time(i) := p_atp_tab(i).Atp_Lead_Time;
70 x_atp_rec.Error_Code(i) := p_atp_tab(i).Error_Code;
71 x_atp_rec.Message(i) := p_atp_tab(i).Message;
72 x_atp_rec.End_Pegging_Id(i) := p_atp_tab(i).End_Pegging_Id;
73 x_atp_rec.Order_Number(i) := p_atp_tab(i).Order_Number;
74 x_atp_rec.Old_Source_Organization_Id(i) := p_atp_tab(i).Old_Source_Organization_Id;
75 x_atp_rec.Old_Demand_Class(i) := p_atp_tab(i).Old_Demand_Class;
76 x_atp_rec.ato_delete_flag(i) := p_atp_tab(i).ato_delete_flag;
77 x_atp_rec.attribute_01(i) := p_atp_tab(i).attribute_01;
78 x_atp_rec.attribute_02(i) := p_atp_tab(i).attribute_02;
79 --x_atp_rec.attribute_03(i) := p_atp_tab(i).attribute_03;
80 x_atp_rec.attribute_04(i) := p_atp_tab(i).attribute_04;
81 x_atp_rec.attribute_05(i) := p_atp_tab(i).attribute_05;
82 x_atp_rec.attribute_06(i) := p_atp_tab(i).attribute_06;
83 x_atp_rec.attribute_07(i) := p_atp_tab(i).attribute_07;
84 x_atp_rec.attribute_08(i) := p_atp_tab(i).attribute_08;
85 --x_atp_rec.attribute_09(i) := p_atp_tab(i).attribute_09;
86 --x_atp_rec.attribute_10(i) := p_atp_tab(i).attribute_10;
87 x_atp_rec.customer_name(i) := p_atp_tab(i).customer_name;
88 x_atp_rec.customer_class(i) := p_atp_tab(i).customer_class;
89 x_atp_rec.customer_location(i) := p_atp_tab(i).customer_location;
90 x_atp_rec.customer_country(i) := p_atp_tab(i).customer_country;
91 x_atp_rec.customer_state(i) := p_atp_tab(i).customer_state;
92 x_atp_rec.customer_city(i) := p_atp_tab(i).customer_city;
93 x_atp_rec.customer_postal_code(i) := p_atp_tab(i).customer_postal_code;
94 x_atp_rec.substitution_typ_code(i) := p_atp_tab(i).substitution_typ_code;
95 x_atp_rec.req_item_detail_flag(i) := p_atp_tab(i).req_item_detail_flag;
96 x_atp_rec.request_item_id(i) := p_atp_tab(i).request_item_id;
97 x_atp_rec.req_item_req_date_qty(i) := p_atp_tab(i).req_item_req_date_qty;
98 x_atp_rec.req_item_available_date(i) := p_atp_tab(i).req_item_available_date;
99 x_atp_rec.req_item_available_date_qty(i) := p_atp_tab(i).req_item_available_date_qty;
100 x_atp_rec.request_item_name(i) := p_atp_tab(i).request_item_name;
101 x_atp_rec.old_inventory_item_id(i) := p_atp_tab(i).old_inventory_item_id;
102 x_atp_rec.sales_rep(i) := p_atp_tab(i).sales_rep;
103 x_atp_rec.customer_contact(i) := p_atp_tab(i).customer_contact;
104 x_atp_rec.subst_flag(i) := p_atp_tab(i).subst_flag;
105 x_atp_rec.Top_Model_line_id(i) := p_atp_tab(i).Top_Model_line_id;
106 x_atp_rec.ATO_Parent_Model_Line_Id(i) := p_atp_tab(i).ATO_Parent_Model_Line_Id;
107 x_atp_rec.ATO_Model_Line_Id(i) := p_atp_tab(i).ATO_Model_Line_Id;
108 x_atp_rec.Parent_line_id(i) := p_atp_tab(i).Parent_line_id;
109 x_atp_rec.match_item_id(i) := p_atp_tab(i).match_item_id;
110 x_atp_rec.Config_item_line_id(i) := p_atp_tab(i).Config_item_line_id;
111 x_atp_rec.Validation_Org(i) := p_atp_tab(i).Validation_Org;
112 x_atp_rec.Component_Sequence_ID(i) := p_atp_tab(i).Component_Sequence_ID;
113 x_atp_rec.Component_Code(i) := p_atp_tab(i).Component_Code;
114 x_atp_rec.line_number(i) := p_atp_tab(i).line_number;
115 x_atp_rec.included_item_flag(i) := p_atp_tab(i).included_item_flag;
116 x_atp_rec.atp_flag(i) := p_atp_tab(i).atp_flag;
117 x_atp_rec.atp_components_flag(i) := p_atp_tab(i).atp_components_flag;
118 x_atp_rec.wip_supply_type(i) := p_atp_tab(i).wip_supply_type;
119 x_atp_rec.bom_item_type(i) := p_atp_tab(i).bom_item_type;
120 x_atp_rec.mandatory_item_flag(i) := p_atp_tab(i).mandatory_item_flag;
121 x_atp_rec.pick_components_flag(i) := p_atp_tab(i).pick_components_flag;
122 x_atp_rec.base_model_id(i) := p_atp_tab(i).base_model_id;
123 x_atp_rec.OSS_ERROR_CODE(i) := p_atp_tab(i).OSS_ERROR_CODE;
124 x_atp_rec.matched_item_name(i) := p_atp_tab(i).matched_item_name;
125 x_atp_rec.cascade_model_info_to_comp(i) := p_atp_tab(i).cascade_model_info_to_comp;
126 x_atp_rec.sequence_number(i) := p_atp_tab(i).sequence_number;
127 x_atp_rec.firm_flag(i) := p_atp_tab(i).firm_flag;
128 x_atp_rec.order_line_number(i) := p_atp_tab(i).order_line_number;
129 x_atp_rec.option_number(i) := p_atp_tab(i).option_number;
130 x_atp_rec.shipment_number(i) := p_atp_tab(i).shipment_number;
131 x_atp_rec.item_desc(i) := p_atp_tab(i).item_desc;
132 x_atp_rec.old_line_schedule_date(i) := p_atp_tab(i).old_line_schedule_date;
133 x_atp_rec.old_source_organization_code(i) := p_atp_tab(i).old_source_organization_code;
134 x_atp_rec.firm_source_org_id(i) := p_atp_tab(i).firm_source_org_id;
135 x_atp_rec.firm_source_org_code(i) := p_atp_tab(i).firm_source_org_code;
136 x_atp_rec.firm_ship_date(i) := p_atp_tab(i).firm_ship_date;
137 x_atp_rec.firm_arrival_date(i) := p_atp_tab(i).firm_arrival_date;
138 x_atp_rec.ship_method_text(i) := p_atp_tab(i).ship_method_text;
139 x_atp_rec.ship_set_id(i) := p_atp_tab(i).ship_set_id;
140 x_atp_rec.arrival_set_id(i) := p_atp_tab(i).arrival_set_id;
141 x_atp_rec.PROJECT_ID(i) := p_atp_tab(i).PROJECT_ID;
142 x_atp_rec.TASK_ID(i) := p_atp_tab(i).TASK_ID;
143 x_atp_rec.PROJECT_NUMBER(i) := p_atp_tab(i).PROJECT_NUMBER;
144 x_atp_rec.TASK_NUMBER(i) := p_atp_tab(i).TASK_NUMBER;
145 x_atp_rec.attribute_11(i) := p_atp_tab(i).attribute_11;
146 x_atp_rec.attribute_12(i) := p_atp_tab(i).attribute_12;
147 x_atp_rec.attribute_13(i) := p_atp_tab(i).attribute_13;
148 x_atp_rec.attribute_14(i) := p_atp_tab(i).attribute_14;
149 x_atp_rec.attribute_15(i) := p_atp_tab(i).attribute_15;
150 x_atp_rec.attribute_16(i) := p_atp_tab(i).attribute_16;
151 x_atp_rec.attribute_17(i) := p_atp_tab(i).attribute_17;
152 x_atp_rec.attribute_18(i) := p_atp_tab(i).attribute_18;
153 x_atp_rec.attribute_19(i) := p_atp_tab(i).attribute_19;
154 x_atp_rec.attribute_20(i) := p_atp_tab(i).attribute_20;
155 x_atp_rec.Attribute_21(i) := p_atp_tab(i).attribute_21;
156 x_atp_rec.attribute_22(i) := p_atp_tab(i).attribute_22;
157 x_atp_rec.attribute_23(i) := p_atp_tab(i).attribute_23;
158 x_atp_rec.attribute_24(i) := p_atp_tab(i).attribute_24;
159 x_atp_rec.attribute_25(i) := p_atp_tab(i).attribute_25;
160 x_atp_rec.attribute_26(i) := p_atp_tab(i).attribute_26;
161 x_atp_rec.attribute_27(i) := p_atp_tab(i).attribute_27;
162 x_atp_rec.attribute_28(i) := p_atp_tab(i).attribute_28;
163 x_atp_rec.attribute_29(i) := p_atp_tab(i).attribute_29;
164 x_atp_rec.attribute_30(i) := p_atp_tab(i).attribute_30;
165 x_atp_rec.atf_date(i) := p_atp_tab(i).atf_date;
166 x_atp_rec.original_request_date(i) := p_atp_tab(i).original_request_date;
167 x_atp_rec.receiving_cal_code(i) := p_atp_tab(i).receiving_cal_code;
168 x_atp_rec.intransit_cal_code(i) := p_atp_tab(i).intransit_cal_code;
169 x_atp_rec.shipping_cal_code(i) := p_atp_tab(i).shipping_cal_code;
170 x_atp_rec.manufacturing_cal_code(i) := p_atp_tab(i).manufacturing_cal_code;
171 x_atp_rec.internal_org_id(i) := p_atp_tab(i).internal_org_id;
172 x_atp_rec.first_valid_ship_arrival_date(i) := p_atp_tab(i).first_valid_ship_arrival_date;
173 x_atp_rec.party_site_id(i) := p_atp_tab(i).party_site_id;
174 x_atp_rec.part_of_set(i) := p_atp_tab(i).part_of_set; --Added in 12.0
175 /* Next 3 fields belong to ER 1879787 - not ported to 12.0
176 x_atp_rec.available_qty_orig_uom(i) := p_atp_tab(i).available_qty_orig_uom;
177 x_atp_rec.requested_date_qty_orig_uom(i) := p_atp_tab(i).requested_date_qty_orig_uom;
178 x_atp_rec.Primary_UOM(i) := p_atp_tab(i).Primary_UOM;
179 */
180 end loop;
181
182 exception when others then
183 msc_sch_wb.atp_debug('Inside exception of ATP_Rec_convert_tab '||sqlerrm);
184
185 END ATP_Rec_convert_tab ;
186
187 PROCEDURE ATP_Rec_convert_rec(
188 p_atp_rec IN MRP_ATP_PUB.ATP_Rec_Typ,
189 p_atp_tab OUT NoCopy MSC_ATP_BPEL.ATP_Rec_Table_Typ)
190 IS
191
192 begin
193
194 msc_sch_wb.atp_debug('Begin Procedure ATP_Rec_convert_rec');
195
196 FOR i in 1..p_atp_rec.action.COUNT LOOP
197
198 msc_sch_wb.atp_debug('i: '||i);
199
200 -- assignments
201
202 p_atp_tab(i).Row_Id := p_atp_rec.Row_Id(i);
203 p_atp_tab(i).Instance_Id := p_atp_rec.Instance_Id(i);
204 p_atp_tab(i).Inventory_Item_Id := p_atp_rec.Inventory_Item_Id(i);
205 p_atp_tab(i).Inventory_Item_Name := p_atp_rec.Inventory_Item_Name(i);
206 p_atp_tab(i).Source_Organization_Id := p_atp_rec.Source_Organization_Id(i);
207 p_atp_tab(i).Source_Organization_Code := p_atp_rec.Source_Organization_Code(i);
208 p_atp_tab(i).Organization_Id := p_atp_rec.Organization_Id(i);
209 p_atp_tab(i).Identifier := p_atp_rec.Identifier(i);
210 p_atp_tab(i).Demand_Source_Header_Id := p_atp_rec.Demand_Source_Header_Id(i);
211 p_atp_tab(i).Demand_Source_Delivery := p_atp_rec.Demand_Source_Delivery(i);
212 p_atp_tab(i).Demand_Source_Type := p_atp_rec.Demand_Source_Type(i);
213 p_atp_tab(i).Scenario_Id := p_atp_rec.Scenario_Id(i);
214 p_atp_tab(i).Calling_Module := p_atp_rec.Calling_Module(i);
218 p_atp_tab(i).Quantity_Ordered := p_atp_rec.Quantity_Ordered(i);
215 p_atp_tab(i).Customer_Id := p_atp_rec.Customer_Id(i);
216 p_atp_tab(i).Customer_Site_Id := p_atp_rec.Customer_Site_Id(i);
217 p_atp_tab(i).Destination_Time_Zone := p_atp_rec.Destination_Time_Zone(i);
219 p_atp_tab(i).Quantity_UOM := p_atp_rec.Quantity_UOM(i);
220 p_atp_tab(i).Requested_Ship_Date := p_atp_rec.Requested_Ship_Date(i);
221 p_atp_tab(i).Requested_Arrival_Date := p_atp_rec.Requested_Arrival_Date(i);
222 p_atp_tab(i).Earliest_Acceptable_Date := p_atp_rec.Earliest_Acceptable_Date(i);
223 p_atp_tab(i).Latest_Acceptable_Date := p_atp_rec.Latest_Acceptable_Date(i);
224 p_atp_tab(i).Delivery_Lead_Time := p_atp_rec.Delivery_Lead_Time(i);
225 p_atp_tab(i).Freight_Carrier := p_atp_rec.Freight_Carrier(i);
226 p_atp_tab(i).Ship_Method := p_atp_rec.Ship_Method(i);
227 p_atp_tab(i).Demand_Class := p_atp_rec.Demand_Class(i);
228 p_atp_tab(i).Ship_Set_Name := p_atp_rec.Ship_Set_Name(i);
229 p_atp_tab(i).Arrival_Set_Name := p_atp_rec.Arrival_Set_Name(i);
230 p_atp_tab(i).Override_Flag := p_atp_rec.Override_Flag(i);
231 p_atp_tab(i).Action := p_atp_rec.Action(i);
232 p_atp_tab(i).Ship_Date := p_atp_rec.Ship_Date(i);
233 p_atp_tab(i).Arrival_date := p_atp_rec.Arrival_date(i);
234 p_atp_tab(i).Available_Quantity := p_atp_rec.Available_Quantity(i);
235 p_atp_tab(i).Requested_Date_Quantity := p_atp_rec.Requested_Date_Quantity(i);
236 p_atp_tab(i).Group_Ship_Date := p_atp_rec.Group_Ship_Date(i);
237 p_atp_tab(i).Group_Arrival_Date := p_atp_rec.Group_Arrival_Date(i);
238 p_atp_tab(i).Vendor_Id := p_atp_rec.Vendor_Id(i);
239 p_atp_tab(i).Vendor_Name := p_atp_rec.Vendor_Name(i);
240 p_atp_tab(i).Vendor_Site_Id := p_atp_rec.Vendor_Site_Id(i);
241 p_atp_tab(i).Vendor_Site_Name := p_atp_rec.Vendor_Site_Name(i);
242 p_atp_tab(i).Insert_Flag := p_atp_rec.Insert_Flag(i);
243 p_atp_tab(i).OE_Flag := p_atp_rec.OE_Flag(i);
244 p_atp_tab(i).Atp_Lead_Time := p_atp_rec.Atp_Lead_Time(i);
245 p_atp_tab(i).Error_Code := p_atp_rec.Error_Code(i);
246 p_atp_tab(i).Message := p_atp_rec.Message(i);
247 p_atp_tab(i).End_Pegging_Id := p_atp_rec.End_Pegging_Id(i);
248 p_atp_tab(i).Order_Number := p_atp_rec.Order_Number(i);
249 p_atp_tab(i).Old_Source_Organization_Id := p_atp_rec.Old_Source_Organization_Id(i);
250 p_atp_tab(i).Old_Demand_Class := p_atp_rec.Old_Demand_Class(i);
251 p_atp_tab(i).ato_delete_flag := p_atp_rec.ato_delete_flag(i);
252 p_atp_tab(i).attribute_01 := p_atp_rec.attribute_01(i);
253 p_atp_tab(i).attribute_02 := p_atp_rec.attribute_02(i);
254 --p_atp_tab(i).attribute_03 := p_atp_rec.attribute_03(i);
255 p_atp_tab(i).attribute_04 := p_atp_rec.attribute_04(i);
256 p_atp_tab(i).attribute_05 := p_atp_rec.attribute_05(i);
257 p_atp_tab(i).attribute_06 := p_atp_rec.attribute_06(i);
258 p_atp_tab(i).attribute_07 := p_atp_rec.attribute_07(i);
259 p_atp_tab(i).attribute_08 := p_atp_rec.attribute_08(i);
260 --p_atp_tab(i).attribute_09 := p_atp_rec.attribute_09(i);
261 --p_atp_tab(i).attribute_10 := p_atp_rec.attribute_10(i);
262 p_atp_tab(i).customer_name := p_atp_rec.customer_name(i);
263 p_atp_tab(i).customer_class := p_atp_rec.customer_class(i);
264 p_atp_tab(i).customer_location := p_atp_rec.customer_location(i);
265 p_atp_tab(i).customer_country := p_atp_rec.customer_country(i);
266 p_atp_tab(i).customer_state := p_atp_rec.customer_state(i);
267 p_atp_tab(i).customer_city := p_atp_rec.customer_city(i);
268 p_atp_tab(i).customer_postal_code := p_atp_rec.customer_postal_code(i);
269 p_atp_tab(i).substitution_typ_code := p_atp_rec.substitution_typ_code(i);
270 p_atp_tab(i).req_item_detail_flag := p_atp_rec.req_item_detail_flag(i);
271 p_atp_tab(i).request_item_id := p_atp_rec.request_item_id(i);
272 p_atp_tab(i).req_item_req_date_qty := p_atp_rec.req_item_req_date_qty(i);
273 p_atp_tab(i).req_item_available_date := p_atp_rec.req_item_available_date(i);
274 p_atp_tab(i).req_item_available_date_qty := p_atp_rec.req_item_available_date_qty(i);
275 p_atp_tab(i).request_item_name := p_atp_rec.request_item_name(i);
276 p_atp_tab(i).old_inventory_item_id := p_atp_rec.old_inventory_item_id(i);
277 p_atp_tab(i).sales_rep := p_atp_rec.sales_rep(i);
278 p_atp_tab(i).customer_contact := p_atp_rec.customer_contact(i);
279 p_atp_tab(i).subst_flag := p_atp_rec.subst_flag(i);
280 p_atp_tab(i).Top_Model_line_id := p_atp_rec.Top_Model_line_id(i);
281 p_atp_tab(i).ATO_Parent_Model_Line_Id := p_atp_rec.ATO_Parent_Model_Line_Id(i);
282 p_atp_tab(i).ATO_Model_Line_Id := p_atp_rec.ATO_Model_Line_Id(i);
283 p_atp_tab(i).Parent_line_id := p_atp_rec.Parent_line_id(i);
284 p_atp_tab(i).match_item_id := p_atp_rec.match_item_id(i);
285 p_atp_tab(i).Config_item_line_id := p_atp_rec.Config_item_line_id(i);
286 p_atp_tab(i).Validation_Org := p_atp_rec.Validation_Org(i);
287 p_atp_tab(i).Component_Sequence_ID := p_atp_rec.Component_Sequence_ID(i);
288 p_atp_tab(i).Component_Code := p_atp_rec.Component_Code(i);
289 p_atp_tab(i).line_number := p_atp_rec.line_number(i);
290 p_atp_tab(i).included_item_flag := p_atp_rec.included_item_flag(i);
291 p_atp_tab(i).atp_flag := p_atp_rec.atp_flag(i);
292 p_atp_tab(i).atp_components_flag := p_atp_rec.atp_components_flag(i);
293 p_atp_tab(i).wip_supply_type := p_atp_rec.wip_supply_type(i);
294 p_atp_tab(i).bom_item_type := p_atp_rec.bom_item_type(i);
295 p_atp_tab(i).mandatory_item_flag := p_atp_rec.mandatory_item_flag(i);
296 p_atp_tab(i).pick_components_flag := p_atp_rec.pick_components_flag(i);
300 p_atp_tab(i).cascade_model_info_to_comp := p_atp_rec.cascade_model_info_to_comp(i);
297 p_atp_tab(i).base_model_id := p_atp_rec.base_model_id(i);
298 p_atp_tab(i).OSS_ERROR_CODE := p_atp_rec.OSS_ERROR_CODE(i);
299 p_atp_tab(i).matched_item_name := p_atp_rec.matched_item_name(i);
301 p_atp_tab(i).sequence_number := p_atp_rec.sequence_number(i);
302 p_atp_tab(i).firm_flag := p_atp_rec.firm_flag(i);
303 p_atp_tab(i).order_line_number := p_atp_rec.order_line_number(i);
304 p_atp_tab(i).option_number := p_atp_rec.option_number(i);
305 p_atp_tab(i).shipment_number := p_atp_rec.shipment_number(i);
306 p_atp_tab(i).item_desc := p_atp_rec.item_desc(i);
307 p_atp_tab(i).old_line_schedule_date := p_atp_rec.old_line_schedule_date(i);
308 p_atp_tab(i).old_source_organization_code := p_atp_rec.old_source_organization_code(i);
309 p_atp_tab(i).firm_source_org_id := p_atp_rec.firm_source_org_id(i);
310 p_atp_tab(i).firm_source_org_code := p_atp_rec.firm_source_org_code(i);
311 p_atp_tab(i).firm_ship_date := p_atp_rec.firm_ship_date(i);
312 p_atp_tab(i).firm_arrival_date := p_atp_rec.firm_arrival_date(i);
313 p_atp_tab(i).ship_method_text := p_atp_rec.ship_method_text(i);
314 p_atp_tab(i).ship_set_id := p_atp_rec.ship_set_id(i);
315 p_atp_tab(i).arrival_set_id := p_atp_rec.arrival_set_id(i);
316 p_atp_tab(i).PROJECT_ID := p_atp_rec.PROJECT_ID(i);
317 p_atp_tab(i).TASK_ID := p_atp_rec.TASK_ID(i);
318 p_atp_tab(i).PROJECT_NUMBER := p_atp_rec.PROJECT_NUMBER(i);
319 p_atp_tab(i).TASK_NUMBER := p_atp_rec.TASK_NUMBER(i);
320 p_atp_tab(i).attribute_11 := p_atp_rec.attribute_11(i);
321 p_atp_tab(i).attribute_12 := p_atp_rec.attribute_12(i);
322 p_atp_tab(i).attribute_13 := p_atp_rec.attribute_13(i);
323 p_atp_tab(i).attribute_14 := p_atp_rec.attribute_14(i);
324 p_atp_tab(i).attribute_15 := p_atp_rec.attribute_15(i);
325 p_atp_tab(i).attribute_16 := p_atp_rec.attribute_16(i);
326 p_atp_tab(i).attribute_17 := p_atp_rec.attribute_17(i);
327 p_atp_tab(i).attribute_18 := p_atp_rec.attribute_18(i);
328 p_atp_tab(i).attribute_19 := p_atp_rec.attribute_19(i);
329 p_atp_tab(i).attribute_20 := p_atp_rec.attribute_20(i);
330 p_atp_tab(i).Attribute_21 := p_atp_rec.attribute_21(i);
331 p_atp_tab(i).attribute_22 := p_atp_rec.attribute_22(i);
332 p_atp_tab(i).attribute_23 := p_atp_rec.attribute_23(i);
333 p_atp_tab(i).attribute_24 := p_atp_rec.attribute_24(i);
334 p_atp_tab(i).attribute_25 := p_atp_rec.attribute_25(i);
335 p_atp_tab(i).attribute_26 := p_atp_rec.attribute_26(i);
336 p_atp_tab(i).attribute_27 := p_atp_rec.attribute_27(i);
337 p_atp_tab(i).attribute_28 := p_atp_rec.attribute_28(i);
338 p_atp_tab(i).attribute_29 := p_atp_rec.attribute_29(i);
339 p_atp_tab(i).attribute_30 := p_atp_rec.attribute_30(i);
340 p_atp_tab(i).atf_date := p_atp_rec.atf_date(i);
341 p_atp_tab(i).original_request_date := p_atp_rec.original_request_date(i);
342 p_atp_tab(i).receiving_cal_code := p_atp_rec.receiving_cal_code(i);
343 p_atp_tab(i).intransit_cal_code := p_atp_rec.intransit_cal_code(i);
344 p_atp_tab(i).shipping_cal_code := p_atp_rec.shipping_cal_code(i);
345 p_atp_tab(i).manufacturing_cal_code := p_atp_rec.manufacturing_cal_code(i);
346 p_atp_tab(i).internal_org_id := p_atp_rec.internal_org_id(i);
347 p_atp_tab(i).first_valid_ship_arrival_date := p_atp_rec.first_valid_ship_arrival_date(i);
348 p_atp_tab(i).party_site_id := p_atp_rec.party_site_id(i);
349 p_atp_tab(i).part_of_set := p_atp_rec.part_of_set(i); --Added in 12.0
350 /* Next 3 fields belong to ER 1879787 - not ported to 12.0
351 p_atp_tab(i).available_qty_orig_uom := p_atp_rec.available_qty_orig_uom(i);
352 p_atp_tab(i).requested_date_qty_orig_uom := p_atp_rec.requested_date_qty_orig_uom(i);
353 p_atp_tab(i).Primary_UOM := p_atp_rec.Primary_UOM(i);
354 */
355 END LOOP;
356
357 exception when others then
358 msc_sch_wb.atp_debug('Inside exception of ATP_Rec_convert_rec '||sqlerrm);
359
360 END ATP_Rec_convert_rec ;
361
362 PROCEDURE Call_ATP_BPEL(
363 p_session_id IN OUT NoCopy NUMBER,
364 p_atp_tab IN MSC_ATP_BPEL.ATP_Rec_Table_Typ,
365 x_atp_tab OUT NoCopy MSC_ATP_BPEL.ATP_Rec_Table_Typ,
366 x_return_status OUT NoCopy VARCHAR2,
367 x_msg_data OUT NoCopy VARCHAR2,
368 x_msg_count OUT NoCopy NUMBER
369 ) IS
370
371 p_atp_rec MRP_ATP_PUB.ATP_Rec_Typ;
372 x_atp_rec MRP_ATP_PUB.ATP_Rec_Typ;
373 x_atp_supply_demand MRP_ATP_PUB.ATP_Supply_Demand_Typ;
374 x_atp_period MRP_ATP_PUB.ATP_Period_Typ;
375 x_atp_details MRP_ATP_PUB.ATP_Details_Typ;
376
377 BEGIN
378 msc_sch_wb.atp_debug('Inside begin of PROCEDURE Call_ATP_BPEL');
379
380 msc_sch_wb.atp_debug('Before call ATP_Rec_convert_tab');
381
382 /* Call Procedure ATP_Rec_convert_tab to convert input table of records
383 to record of tables. */
384
385 ATP_Rec_convert_tab( p_atp_tab, p_atp_rec );
386
387 msc_sch_wb.atp_debug('After call ATP_Rec_convert_tab');
388
389 MRP_ATP_PUB.Call_ATP(
390 p_session_id ,
391 p_atp_rec ,
392 x_atp_rec ,
393 x_atp_supply_demand ,
394 x_atp_period ,
395 x_atp_details ,
396 x_return_status ,
397 x_msg_data ,
398 x_msg_count );
399
400 msc_sch_wb.atp_debug('After call Call_ATP');
401 msc_sch_wb.atp_debug('x_atp_rec.Inventory_Item_Id.COUNT: '||x_atp_rec.Inventory_Item_Id.COUNT);
402 msc_sch_wb.atp_debug('x_atp_supply_demand.Inventory_Item_Id.COUNT: '||x_atp_supply_demand.Inventory_Item_Id.COUNT);
403 msc_sch_wb.atp_debug('x_atp_period.Inventory_Item_Id.COUNT: '||x_atp_period.Inventory_Item_Id.COUNT);
404 msc_sch_wb.atp_debug('x_atp_details.Inventory_Item_Id.COUNT: '||x_atp_details.Inventory_Item_Id.COUNT);
405
406 /* Call Procedure ATP_Rec_convert_rec to convert record of tables to
407 table of records. */
408
409 ATP_Rec_convert_rec( x_atp_rec, x_atp_tab);
410
411 msc_sch_wb.atp_debug('After call ATP_Rec_convert_rec');
412 msc_sch_wb.atp_debug('End of wrapper file Call_ATP_BPEL .');
413 msc_sch_wb.atp_debug('********************************');
414
415 EXCEPTION when others then
416 msc_sch_wb.atp_debug('Inside exception in Call_ATP_BPEL '||sqlerrm);
417
418 END Call_ATP_BPEL;
419
420
421 END MSC_ATP_BPEL;