100: BEGIN
101:
102: SAVEPOINT fulfill_collateral_request;
103:
104: l_control_rec.book_flag := FND_API.G_TRUE;
105: l_control_rec.calculate_price := FND_API.G_FALSE;
106:
107: FND_MSG_PUB.Initialize;
108:
101:
102: SAVEPOINT fulfill_collateral_request;
103:
104: l_control_rec.book_flag := FND_API.G_TRUE;
105: l_control_rec.calculate_price := FND_API.G_FALSE;
106:
107: FND_MSG_PUB.Initialize;
108:
109: -- Process Order Header
162: END LOOP;
163:
164: ASO_ORDER_INT.create_order(
165: p_api_version_number => 1.0
166: ,p_init_msg_list => FND_API.g_false
167: ,p_commit => FND_API.g_false
168: ,p_qte_rec => l_qte_header_rec
169: ,p_qte_line_tbl => l_qte_line_tbl
170: ,p_header_shipment_tbl => l_hd_shipment_tbl
163:
164: ASO_ORDER_INT.create_order(
165: p_api_version_number => 1.0
166: ,p_init_msg_list => FND_API.g_false
167: ,p_commit => FND_API.g_false
168: ,p_qte_rec => l_qte_header_rec
169: ,p_qte_line_tbl => l_qte_line_tbl
170: ,p_header_shipment_tbl => l_hd_shipment_tbl
171: ,p_line_shipment_tbl => l_ln_shipment_tbl
176: ,x_msg_count => x_msg_count
177: ,x_msg_data => x_msg_data
178: );
179:
180: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
181:
182:
183:
184:
200:
201:
202:
203:
204: IF p_commit = Fnd_Api.g_true THEN
205: COMMIT WORK;
206: END IF;
207: ELSIF x_return_status = Fnd_Api.g_ret_sts_error THEN
208: RAISE Fnd_Api.G_EXC_ERROR;
203:
204: IF p_commit = Fnd_Api.g_true THEN
205: COMMIT WORK;
206: END IF;
207: ELSIF x_return_status = Fnd_Api.g_ret_sts_error THEN
208: RAISE Fnd_Api.G_EXC_ERROR;
209: ELSE
210: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
211: END IF;
204: IF p_commit = Fnd_Api.g_true THEN
205: COMMIT WORK;
206: END IF;
207: ELSIF x_return_status = Fnd_Api.g_ret_sts_error THEN
208: RAISE Fnd_Api.G_EXC_ERROR;
209: ELSE
210: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
211: END IF;
212: EXCEPTION
206: END IF;
207: ELSIF x_return_status = Fnd_Api.g_ret_sts_error THEN
208: RAISE Fnd_Api.G_EXC_ERROR;
209: ELSE
210: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
211: END IF;
212: EXCEPTION
213: WHEN Fnd_Api.G_EXC_ERROR THEN
214: x_return_status := Fnd_Api.g_ret_sts_error ;
209: ELSE
210: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
211: END IF;
212: EXCEPTION
213: WHEN Fnd_Api.G_EXC_ERROR THEN
214: x_return_status := Fnd_Api.g_ret_sts_error ;
215: ROLLBACK TO fulfill_collateral_request;
216: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
217: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
210: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
211: END IF;
212: EXCEPTION
213: WHEN Fnd_Api.G_EXC_ERROR THEN
214: x_return_status := Fnd_Api.g_ret_sts_error ;
215: ROLLBACK TO fulfill_collateral_request;
216: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
217: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
218: ROLLBACK TO fulfill_collateral_request;
212: EXCEPTION
213: WHEN Fnd_Api.G_EXC_ERROR THEN
214: x_return_status := Fnd_Api.g_ret_sts_error ;
215: ROLLBACK TO fulfill_collateral_request;
216: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
217: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
218: ROLLBACK TO fulfill_collateral_request;
219: WHEN OTHERS THEN
220: x_return_status := Fnd_Api.g_ret_sts_unexp_erroR ;
213: WHEN Fnd_Api.G_EXC_ERROR THEN
214: x_return_status := Fnd_Api.g_ret_sts_error ;
215: ROLLBACK TO fulfill_collateral_request;
216: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
217: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
218: ROLLBACK TO fulfill_collateral_request;
219: WHEN OTHERS THEN
220: x_return_status := Fnd_Api.g_ret_sts_unexp_erroR ;
221: ROLLBACK TO fulfill_collateral_request;
216: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
217: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
218: ROLLBACK TO fulfill_collateral_request;
219: WHEN OTHERS THEN
220: x_return_status := Fnd_Api.g_ret_sts_unexp_erroR ;
221: ROLLBACK TO fulfill_collateral_request;
222: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
223: THEN
224: Fnd_Msg_Pub.Add_Exc_Msg( 'JTF_PHYSICAL_FULFILLMENT_PUB','fulfill_collateral_request');
225: END IF;
226: Fnd_Msg_Pub.Count_AND_Get
227: ( p_count => x_msg_count,
228: p_data => x_msg_data,
229: p_encoded => Fnd_Api.G_FALSE
230: );
231: END create_fulfill_physical;
232: END JTF_Fulfillment_PUB;