[Home] [Help]
260: l_msg_count NUMBER;
261: Begin
262: oe_debug_pub.add('no. of OE messages :'||p_msg_count);
263: for k in 1 .. p_msg_count loop
264: l_msg_data := oe_msg_pub.get( p_msg_index => k,
265: p_encoded => 'F'
266: );
267: oe_debug_pub.add(substr(l_msg_data,1,255));
268: oe_debug_pub.add('Error msg: '||substr(l_msg_data,1,200));
538: FND_MESSAGE.SET_NAME('ONT','ONT_RETROBILL_TAX_INVALID');
539: FND_MESSAGE.SET_TOKEN('TAX_CODE',p_tax_code);
540: FND_MESSAGE.SET_TOKEN('ORDER',l_order_number);
541: FND_MESSAGE.SET_TOKEN('LINE',l_line_no);
542: OE_MSG_PUB.Add;
543: RETURN FALSE;
544: WHEN OTHERS THEN
545: oe_debug_pub.add('Retro:IS_TAX_CODE_VALID:'||SQLERRM);
546: RETURN FALSE;
968: x_created_header_id:=l_x_header_rec.header_id;
969:
970: oe_debug_pub.add('no. of OE messages :'||x_msg_count);
971: for k in 1 .. x_msg_count loop
972: x_msg_data := oe_msg_pub.get( p_msg_index => k,
973: p_encoded => 'F'
974: );
975: oe_debug_pub.add(substr(x_msg_data,1,255));
976: oe_debug_pub.add('Error msg: '||substr(x_msg_data,1,200));
1621: Oe_Line_Util.Delete_Row(I.line_id);
1622:
1623: IF G_LINES_NOT_RETRO_DISPLAYED='N' THEN
1624: FND_MESSAGE.SET_NAME('ONT','ONT_RETROBILL_LINES_NO_CHANGE');
1625: OE_MSG_PUB.ADD;
1626: G_LINES_NOT_RETRO_DISPLAYED:='Y';
1627: END IF;
1628: END IF;
1629: --skubendr{
3301: Perform_Operations(p_retrobill_tbl,p_retrobill_request_rec.execution_mode, x_error_count);--bug5003256
3302:
3303: End If; --end if for execution mode
3304:
3305: oe_msg_pub.count_and_get(p_count => x_msg_count,p_data=> x_msg_data);
3306: Exception
3307:
3308: When FND_API.G_EXC_UNEXPECTED_ERROR Then
3309: OE_MSG_PUB.Add_Exc_Msg
3305: oe_msg_pub.count_and_get(p_count => x_msg_count,p_data=> x_msg_data);
3306: Exception
3307:
3308: When FND_API.G_EXC_UNEXPECTED_ERROR Then
3309: OE_MSG_PUB.Add_Exc_Msg
3310: ( G_PKG_NAME ,
3311: l_msg
3312: );
3313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3310: ( G_PKG_NAME ,
3311: l_msg
3312: );
3313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3314: oe_msg_pub.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
3315: x_created_retrobill_request_id:=NULL;
3316: --bug5003256
3317: x_error_count := -1;
3318: When Others Then
3319: oe_debug_pub.add('Exception occured in process_retrobill_requests:'||SQLERRM);
3320: oe_debug_pub.add('Statement number:'||stmt);
3321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3322: x_retrun_status_text:='OE_RETROBILL_PVT.Process_Retrobill_Request'||SQLERRM;
3323: oe_msg_pub.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
3324: x_created_retrobill_request_id:=NULL;
3325: --bug5003256
3326: x_error_count := -1;
3327: End Process_Retrobill_Request;
3398: End If;
3399:
3400: -- Initialize Message Stack
3401: -- We initialize the message stack here and for the subsequent process order calls pass the init_msg_list as FALSE
3402: OE_MSG_PUB.initialize;
3403: LOOP
3404: fetch c_lines into c_lines_record;
3405: exit when c_lines%notfound;
3406:
3423: l_retrobill_tbl(i).operation :=
3424: c_lines_record.char_attribute1;
3425: ELSE
3426: -- Setting the Message Context
3427: OE_MSG_PUB.set_msg_context(
3428: p_entity_code => 'LINE'
3429: ,p_entity_ref => null
3430: ,p_entity_id => null
3431: ,p_header_id => c_lines_record.header_id
3450:
3451: -- The line has previewed retrobill line and hence cannot be previewed
3452: FND_MESSAGE.SET_NAME('ONT','ONT_UNINVOICED_RETLINE_EXIST');
3453: FND_MESSAGE.SET_TOKEN('REQUEST',l_request_name);
3454: OE_MSG_PUB.ADD;
3455: END IF;
3456: l_request_name := NULL;
3457: i := i + 1;
3458: END LOOP;
3495: Delete from oe_conc_request_iface where request_id =p_request_session_id;
3496: END IF;
3497:
3498: x_retrobill_request_id := l_retrobill_request_id;
3499: x_msg_count := OE_MSG_PUB.Count_Msg;
3500: x_msg_data := l_msg_data;
3501: x_return_status := l_return_status;
3502: x_return_status_text := l_return_status_text;
3503:
3594: x_error_count => l_error_count --bug5003256
3595: );
3596:
3597: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3598: OE_MSG_PUB.save_messages (l_concurrent_request_id);
3599: commit;
3600: fnd_file.put_line(FND_FILE.OUTPUT,'Sucessful completion');
3601: errbuf := FND_MESSAGE.GET;
3602: retcode := 0;
3601: errbuf := FND_MESSAGE.GET;
3602: retcode := 0;
3603: ELSE
3604: rollback;
3605: OE_MSG_PUB.save_messages (l_concurrent_request_id);
3606: commit;
3607: fnd_file.put_line(FND_FILE.OUTPUT,'Failed');
3608: errbuf := FND_MESSAGE.GET;
3609: retcode := -1;
4002: ELSE
4003: oe_debug_pub.add('Cannot purge request as retrobill booked order exists'||p_request_name);
4004: FND_MESSAGE.SET_NAME('ONT','ONT_RETRO_PURGE_NOT_ALLOWED');
4005: FND_MESSAGE.SET_TOKEN('EVENT_NAME',p_request_name);
4006: OE_MSG_PUB.ADD;
4007:
4008: EXIT;
4009: END IF;
4010: ELSE
4010: ELSE
4011: oe_debug_pub.add('Cannot purge request as purge preview order is N and attached orders exist');
4012: FND_MESSAGE.SET_NAME('ONT','ONT_RETRO_PURGE_NOT_ALLOWED');
4013: FND_MESSAGE.SET_TOKEN('EVENT_NAME',p_request_name);
4014: OE_MSG_PUB.ADD;
4015:
4016: EXIT;
4017: END IF;--End of check purge_preview_orders
4018: END LOOP;
4175: END IF;
4176: END IF;
4177:
4178: --setting a dummy message context so that the messages not attached to any particular order get the org_id corresponding to the policy context
4179: OE_MSG_PUB.Set_Msg_Context;
4180: --rt moac end
4181:
4182: --bug4752386 If the execution mode is 'EXECUTE', need to log a message and continue with the next request
4183: IF l_retrobill_request_rec.execution_mode='EXECUTE' THEN
4183: IF l_retrobill_request_rec.execution_mode='EXECUTE' THEN
4184: oe_debug_pub.add('Cannot purge request as it has been executed'||l_retrobill_request_rec.name);
4185: FND_MESSAGE.SET_NAME('ONT','ONT_RT_EXC_PURGE_NOT_ALLOWED');
4186: FND_MESSAGE.SET_TOKEN('EVENT_NAME',l_retrobill_request_rec.name);
4187: OE_MSG_PUB.ADD;
4188:
4189: ELSE
4190:
4191:
4206: END IF;
4207: END IF;
4208:
4209: --setting a dummy message context so that the messages not attached to any particular order get the org_id corresponding to the policy context
4210: OE_MSG_PUB.Set_Msg_Context;
4211: --rt moac end
4212:
4213: --bug4752386 If the execution mode is 'EXECUTE', need to log a message and continue with the next request
4214: IF l_retrobill_request_rec.execution_mode='EXECUTE' THEN
4214: IF l_retrobill_request_rec.execution_mode='EXECUTE' THEN
4215: oe_debug_pub.add('Cannot purge request as it has been executed'||l_retrobill_request_rec.name);
4216: FND_MESSAGE.SET_NAME('ONT','ONT_RT_EXC_PURGE_NOT_ALLOWED');
4217: FND_MESSAGE.SET_TOKEN('EVENT_NAME',l_retrobill_request_rec.name);
4218: OE_MSG_PUB.ADD;
4219:
4220: ELSE
4221:
4222: 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);
4225: END IF; --execution mode = 'EXECUTE'
4226: END LOOP;
4227: END IF;
4228: /* Save messages to Process Messages Table */
4229: OE_MSG_PUB.save_messages(l_concurrent_id);
4230:
4231: /*Displaying messages from Processing Message table*/
4232: fnd_file.put_line(FND_FILE.OUTPUT,'Source/Order/Seq/Line Message');
4233: OPEN l_msg_cursor;