[Home] [Help]
17: )
18: IS
19: l_atp_tbl OE_ATP.Atp_Tbl_Type;
20: l_return_status VARCHAR2(1);
21: l_control_rec OE_GLOBALS.Control_Rec_Type;
22: l_line_tbl OE_ORDER_PUB.LINE_TBL_TYPE;
23: --
24: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
25: --
59: -- that will be incorrect.
60: -- this flag helps to requery the block if any thing changed
61: -- after validate and write.
62:
63: OE_GLOBALS.G_PROCESS_OBJECTS_FLAG := TRUE;
64:
65: l_control_rec.controlled_operation := TRUE;
66: l_control_rec.process := TRUE;
67: l_control_rec.process_entity := OE_GLOBALS.G_ENTITY_ALL;
63: OE_GLOBALS.G_PROCESS_OBJECTS_FLAG := TRUE;
64:
65: l_control_rec.controlled_operation := TRUE;
66: l_control_rec.process := TRUE;
67: l_control_rec.process_entity := OE_GLOBALS.G_ENTITY_ALL;
68:
69: l_control_rec.check_security := FALSE;
70: l_control_rec.clear_dependents := FALSE;
71: l_control_rec.default_attributes := FALSE;
78: l_control_rec.clear_api_cache := FALSE;
79: l_control_rec.clear_api_requests := TRUE;
80:
81: -- Set the UI flag
82: OE_GLOBALS.G_UI_FLAG := TRUE;
83:
84: oe_line_util.Post_Line_Process
85: ( p_control_rec => l_control_rec
86: , p_x_line_tbl => l_line_tbl );
98: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
99: RAISE FND_API.G_EXC_ERROR;
100: END IF;
101:
102: -- x_cascade_flag := OE_GLOBALS.G_CASCADING_REQUEST_LOGGED;
103: -- Re-set the UI flag to FALSE
104: OE_GLOBALS.G_UI_FLAG := FALSE;
105:
106: -- Set return status.
100: END IF;
101:
102: -- x_cascade_flag := OE_GLOBALS.G_CASCADING_REQUEST_LOGGED;
103: -- Re-set the UI flag to FALSE
104: OE_GLOBALS.G_UI_FLAG := FALSE;
105:
106: -- Set return status.
107:
108: x_return_status := FND_API.G_RET_STS_SUCCESS;
113: ( p_count => x_msg_count
114: , p_data => x_msg_data
115: );
116:
117: OE_GLOBALS.G_UI_FLAG := FALSE;
118: OE_GLOBALS.G_PROCESS_OBJECTS_FLAG := FALSE;
119:
120: IF (p_book_flag = 'Y') Then
121: -- Progress the workflow so that booking process is kicked off.
114: , p_data => x_msg_data
115: );
116:
117: OE_GLOBALS.G_UI_FLAG := FALSE;
118: OE_GLOBALS.G_PROCESS_OBJECTS_FLAG := FALSE;
119:
120: IF (p_book_flag = 'Y') Then
121: -- Progress the workflow so that booking process is kicked off.
122: -- This call should come back with a message OE_ORDER_BOOKED
160:
161: EXCEPTION
162:
163: WHEN FND_API.G_EXC_ERROR THEN
164: OE_GLOBALS.G_PROCESS_OBJECTS_FLAG := FALSE;
165: OE_GLOBALS.G_UI_FLAG := FALSE;
166:
167: x_return_status := FND_API.G_RET_STS_ERROR;
168:
161: EXCEPTION
162:
163: WHEN FND_API.G_EXC_ERROR THEN
164: OE_GLOBALS.G_PROCESS_OBJECTS_FLAG := FALSE;
165: OE_GLOBALS.G_UI_FLAG := FALSE;
166:
167: x_return_status := FND_API.G_RET_STS_ERROR;
168:
169: -- Get message count and data
173: , p_data => x_msg_data
174: );
175:
176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
177: OE_GLOBALS.G_PROCESS_OBJECTS_FLAG := FALSE;
178: OE_GLOBALS.G_UI_FLAG := FALSE;
179:
180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
181:
174: );
175:
176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
177: OE_GLOBALS.G_PROCESS_OBJECTS_FLAG := FALSE;
178: OE_GLOBALS.G_UI_FLAG := FALSE;
179:
180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
181:
182: -- Get message count and data
186: , p_data => x_msg_data
187: );
188:
189: WHEN OTHERS THEN
190: OE_GLOBALS.G_PROCESS_OBJECTS_FLAG := FALSE;
191: OE_GLOBALS.G_UI_FLAG := FALSE;
192:
193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
194:
187: );
188:
189: WHEN OTHERS THEN
190: OE_GLOBALS.G_PROCESS_OBJECTS_FLAG := FALSE;
191: OE_GLOBALS.G_UI_FLAG := FALSE;
192:
193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
194:
195: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)