[Home] [Help]
261: l_msg_count NUMBER;
262: Begin
263: oe_debug_pub.add('no. of OE messages :'||p_msg_count);
264: for k in 1 .. p_msg_count loop
265: l_msg_data := oe_msg_pub.get( p_msg_index => k,
266: p_encoded => 'F'
267: );
268: oe_debug_pub.add(substr(l_msg_data,1,255));
269: oe_debug_pub.add('Error msg: '||substr(l_msg_data,1,200));
549: FND_MESSAGE.SET_NAME('ONT','ONT_RETROBILL_TAX_INVALID');
550: FND_MESSAGE.SET_TOKEN('TAX_CODE',p_tax_code);
551: FND_MESSAGE.SET_TOKEN('ORDER',l_order_number);
552: FND_MESSAGE.SET_TOKEN('LINE',l_line_no);
553: OE_MSG_PUB.Add;
554: RETURN FALSE;
555: WHEN OTHERS THEN
556: oe_debug_pub.add('Retro:IS_TAX_CODE_VALID:'||SQLERRM);
557: RETURN FALSE;
984: x_created_header_id:=l_x_header_rec.header_id;
985:
986: oe_debug_pub.add('no. of OE messages :'||x_msg_count);
987: for k in 1 .. x_msg_count loop
988: x_msg_data := oe_msg_pub.get( p_msg_index => k,
989: p_encoded => 'F'
990: );
991: oe_debug_pub.add(substr(x_msg_data,1,255));
992: oe_debug_pub.add('Error msg: '||substr(x_msg_data,1,200));
1957: Oe_Line_Util.Delete_Row(I.line_id);
1958:
1959: IF G_LINES_NOT_RETRO_DISPLAYED='N' THEN
1960: FND_MESSAGE.SET_NAME('ONT','ONT_RETROBILL_LINES_NO_CHANGE');
1961: OE_MSG_PUB.ADD;
1962: G_LINES_NOT_RETRO_DISPLAYED:='Y';
1963: END IF;
1964: END IF;
1965: --skubendr{
3687:
3688: End If; --end if for execution mode
3689:
3690:
3691: oe_msg_pub.count_and_get(p_count => x_msg_count,p_data=> x_msg_data);
3692: Exception
3693:
3694: When FND_API.G_EXC_UNEXPECTED_ERROR Then
3695: OE_MSG_PUB.Add_Exc_Msg
3691: oe_msg_pub.count_and_get(p_count => x_msg_count,p_data=> x_msg_data);
3692: Exception
3693:
3694: When FND_API.G_EXC_UNEXPECTED_ERROR Then
3695: OE_MSG_PUB.Add_Exc_Msg
3696: ( G_PKG_NAME ,
3697: l_msg
3698: );
3699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3696: ( G_PKG_NAME ,
3697: l_msg
3698: );
3699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3700: oe_msg_pub.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
3701: x_created_retrobill_request_id:=NULL;
3702: --bug5003256
3703: x_error_count := -1;
3704: When Others Then
3705: oe_debug_pub.add('Exception occured in process_retrobill_requests:'||SQLERRM);
3706: oe_debug_pub.add('Statement number:'||stmt);
3707: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3708: x_retrun_status_text:='OE_RETROBILL_PVT.Process_Retrobill_Request'||SQLERRM;
3709: oe_msg_pub.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
3710: x_created_retrobill_request_id:=NULL;
3711: --bug5003256
3712: x_error_count := -1;
3713: End Process_Retrobill_Request;
3785: End If;
3786:
3787: -- Initialize Message Stack
3788: -- We initialize the message stack here and for the subsequent process order calls pass the init_msg_list as FALSE
3789: OE_MSG_PUB.initialize;
3790: LOOP
3791: fetch c_lines into c_lines_record;
3792: exit when c_lines%notfound;
3793:
3810: l_retrobill_tbl(i).operation :=
3811: c_lines_record.char_attribute1;
3812: ELSE
3813: -- Setting the Message Context
3814: OE_MSG_PUB.set_msg_context(
3815: p_entity_code => 'LINE'
3816: ,p_entity_ref => null
3817: ,p_entity_id => null
3818: ,p_header_id => c_lines_record.header_id
3837:
3838: -- The line has previewed retrobill line and hence cannot be previewed
3839: FND_MESSAGE.SET_NAME('ONT','ONT_UNINVOICED_RETLINE_EXIST');
3840: FND_MESSAGE.SET_TOKEN('REQUEST',l_request_name);
3841: OE_MSG_PUB.ADD;
3842: l_ret_code := 1;--bug12922209
3843: END IF;
3844: l_request_name := NULL;
3845: i := i + 1;
3886: Delete from oe_conc_request_iface where request_id =p_request_session_id;
3887: END IF;
3888:
3889: x_retrobill_request_id := l_retrobill_request_id;
3890: x_msg_count := OE_MSG_PUB.Count_Msg;
3891: x_msg_data := l_msg_data;
3892: x_return_status := l_return_status;
3893: x_return_status_text := l_return_status_text;
3894:
3985: x_error_count => l_error_count, --bug5003256
3986: x_ret_code =>l_ret_code); --bug12922209
3987:
3988: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3989: OE_MSG_PUB.save_messages (l_concurrent_request_id);
3990: commit;
3991: --fnd_file.put_line(FND_FILE.OUTPUT,'Sucessful completion');
3992: errbuf := FND_MESSAGE.GET;
3993: --retcode := 0;
4002: --bug 12922209 End
4003:
4004: ELSE
4005: rollback;
4006: OE_MSG_PUB.save_messages (l_concurrent_request_id);
4007: commit;
4008: fnd_file.put_line(FND_FILE.OUTPUT,'Failed');
4009: errbuf := FND_MESSAGE.GET;
4010: retcode := -1;
4427: ELSE
4428: oe_debug_pub.add('Cannot purge request as retrobill booked order exists'||p_request_name);
4429: FND_MESSAGE.SET_NAME('ONT','ONT_RETRO_PURGE_NOT_ALLOWED');
4430: FND_MESSAGE.SET_TOKEN('EVENT_NAME',p_request_name);
4431: OE_MSG_PUB.ADD;
4432:
4433: EXIT;
4434: END IF;
4435: ELSE
4435: ELSE
4436: oe_debug_pub.add('Cannot purge request as purge preview order is N and attached orders exist');
4437: FND_MESSAGE.SET_NAME('ONT','ONT_RETRO_PURGE_NOT_ALLOWED');
4438: FND_MESSAGE.SET_TOKEN('EVENT_NAME',p_request_name);
4439: OE_MSG_PUB.ADD;
4440:
4441: EXIT;
4442: END IF;--End of check purge_preview_orders
4443: END LOOP;
4600: END IF;
4601: END IF;
4602:
4603: --setting a dummy message context so that the messages not attached to any particular order get the org_id corresponding to the policy context
4604: OE_MSG_PUB.Set_Msg_Context;
4605: --rt moac end
4606:
4607: --bug4752386 If the execution mode is 'EXECUTE', need to log a message and continue with the next request
4608: IF l_retrobill_request_rec.execution_mode='EXECUTE' THEN
4608: IF l_retrobill_request_rec.execution_mode='EXECUTE' THEN
4609: oe_debug_pub.add('Cannot purge request as it has been executed'||l_retrobill_request_rec.name);
4610: FND_MESSAGE.SET_NAME('ONT','ONT_RT_EXC_PURGE_NOT_ALLOWED');
4611: FND_MESSAGE.SET_TOKEN('EVENT_NAME',l_retrobill_request_rec.name);
4612: OE_MSG_PUB.ADD;
4613:
4614: ELSE
4615:
4616:
4631: END IF;
4632: END IF;
4633:
4634: --setting a dummy message context so that the messages not attached to any particular order get the org_id corresponding to the policy context
4635: OE_MSG_PUB.Set_Msg_Context;
4636: --rt moac end
4637:
4638: --bug4752386 If the execution mode is 'EXECUTE', need to log a message and continue with the next request
4639: IF l_retrobill_request_rec.execution_mode='EXECUTE' THEN
4639: IF l_retrobill_request_rec.execution_mode='EXECUTE' THEN
4640: oe_debug_pub.add('Cannot purge request as it has been executed'||l_retrobill_request_rec.name);
4641: FND_MESSAGE.SET_NAME('ONT','ONT_RT_EXC_PURGE_NOT_ALLOWED');
4642: FND_MESSAGE.SET_TOKEN('EVENT_NAME',l_retrobill_request_rec.name);
4643: OE_MSG_PUB.ADD;
4644:
4645: ELSE
4646:
4647: delete_retrobill_orders(p_purge_preview_orders,to_char(l_retrobill_request_rec.retrobill_request_id),l_retrobill_request_rec.name,l_requests_processed_per_call,l_headers_processed_per_call);
4650: END IF; --execution mode = 'EXECUTE'
4651: END LOOP;
4652: END IF;
4653: /* Save messages to Process Messages Table */
4654: OE_MSG_PUB.save_messages(l_concurrent_id);
4655:
4656: /*Displaying messages from Processing Message table*/
4657: fnd_file.put_line(FND_FILE.OUTPUT,'Source/Order/Seq/Line Message');
4658: OPEN l_msg_cursor;