[Home] [Help]
226:
227: procedure set_context (p_org_id in number) is
228: l_org_id number ;
229: l_return_status varchar2(1);
230: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
231: begin
232: l_org_id := p_org_id;
233: if l_debug_level > 0 then
234: oe_debug_pub.add('Entering set_context');
230: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
231: begin
232: l_org_id := p_org_id;
233: if l_debug_level > 0 then
234: oe_debug_pub.add('Entering set_context');
235: oe_debug_pub.add('Org_id is '||nvl(p_org_id,-1));
236: end if;
237: MO_GLOBAL.validate_orgid_pub_api(org_id=>l_org_id , status=>l_return_status);
238: if l_debug_level > 0 then
231: begin
232: l_org_id := p_org_id;
233: if l_debug_level > 0 then
234: oe_debug_pub.add('Entering set_context');
235: oe_debug_pub.add('Org_id is '||nvl(p_org_id,-1));
236: end if;
237: MO_GLOBAL.validate_orgid_pub_api(org_id=>l_org_id , status=>l_return_status);
238: if l_debug_level > 0 then
239: oe_debug_pub.add('After call to mo_global.validate_orgid_pub_api Org_id'||l_org_id|| 'Return status'||nvl(l_return_status,'?'));
235: oe_debug_pub.add('Org_id is '||nvl(p_org_id,-1));
236: end if;
237: MO_GLOBAL.validate_orgid_pub_api(org_id=>l_org_id , status=>l_return_status);
238: if l_debug_level > 0 then
239: oe_debug_pub.add('After call to mo_global.validate_orgid_pub_api Org_id'||l_org_id|| 'Return status'||nvl(l_return_status,'?'));
240: end if;
241: --If return status is O then we need not do anythinf (backward compatibility)
242: --If return status is F then raise error
243: --If return status is S (in case org_id was passed to process order API) then set context to the passed org_id
250: raise FND_API.G_EXC_ERROR;
251: else
252: If p_org_id is null then -- In this case we will look at org_id passed to process order API and not that which is returned by mo_global.validate_pub_api
253: if l_debug_level > 0 then
254: oe_debug_pub.add('Before call to mo_utils.get_default_orgid');
255: end if;
256: l_org_id :=mo_utils.get_default_org_id ;
257: if l_debug_level > 0 then
258: oe_debug_pub.add('Default org_id is '||l_org_id );
254: oe_debug_pub.add('Before call to mo_utils.get_default_orgid');
255: end if;
256: l_org_id :=mo_utils.get_default_org_id ;
257: if l_debug_level > 0 then
258: oe_debug_pub.add('Default org_id is '||l_org_id );
259: end if;
260: if l_org_id is null then
261: raise FND_API.G_EXC_ERROR;
262: end if;
3828:
3829: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
3830: THEN
3831:
3832: oe_debug_pub.add('calling AAC from Pub Prcoess Order');
3833: OE_Order_GRP.automatic_account_creation(p_header_rec => p_header_rec,
3834: p_header_val_rec => p_header_val_rec,
3835: p_line_tbl => p_line_tbl,
3836: p_line_val_tbl => p_line_val_tbl,
5003:
5004: l_org_id NUMBER;
5005: l_return_status VARCHAR2(30);
5006: l_header_id NUMBER;
5007: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5008: l_number_of_containers NUMBER;
5009: BEGIN
5010: -- Logic added for MOAC
5011:
5075:
5076: l_header_id := p_header_id;
5077:
5078: IF l_debug_level > 0 THEN
5079: oe_debug_pub.add(' Before calling private Process_MACD_Order', 1 ) ;
5080: END IF;
5081:
5082: x_return_status := FND_API.G_RET_STS_SUCCESS;
5083:
5096: x_msg_count => x_msg_count,
5097: x_msg_data => x_msg_data);
5098:
5099: IF l_debug_level > 0 THEN
5100: oe_debug_pub.add(' After calling private Process_MACD_Order ' || x_return_status, 1 ) ;
5101: END IF;
5102:
5103:
5104: IF l_debug_level > 0 THEN
5101: END IF;
5102:
5103:
5104: IF l_debug_level > 0 THEN
5105: oe_debug_pub.add('Entering into public Process_MACD_Order', 1 ) ;
5106: END IF;
5107:
5108: Null;
5109: