272: fnd_msg_pub.count_and_get( p_encoded => 'F'
273: ,p_count => l_msg_count
274: ,p_data => l_msg_data);
275:
276: --oe_debug_pub.add('no. of FND messages :'||l_msg_count,1);
277: oe_debug_pub.add('no. of FND messages :'||l_msg_count);
278:
279: for k in 1 .. l_msg_count loop
280: l_msg_data := fnd_msg_pub.get( p_msg_index => k,
273: ,p_count => l_msg_count
274: ,p_data => l_msg_data);
275:
276: --oe_debug_pub.add('no. of FND messages :'||l_msg_count,1);
277: oe_debug_pub.add('no. of FND messages :'||l_msg_count);
278:
279: for k in 1 .. l_msg_count loop
280: l_msg_data := fnd_msg_pub.get( p_msg_index => k,
281: p_encoded => 'F'
545: END;
546:
547:
548: oe_debug_pub.add('Retro:Tax code invalid');
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;
546:
547:
548: oe_debug_pub.add('Retro:Tax code invalid');
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;
547:
548: oe_debug_pub.add('Retro:Tax code invalid');
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
548: oe_debug_pub.add('Retro:Tax code invalid');
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);
994:
995: fnd_msg_pub.count_and_get( p_encoded => 'F'
996: , p_count => x_msg_count
997: , p_data => x_msg_data);
998: --oe_debug_pub.add('no. of FND messages :'||x_msg_count,1);
999: oe_debug_pub.add('no. of FND messages :'||x_msg_count);
1000: for k in 1 .. x_msg_count loop
1001: x_msg_data := fnd_msg_pub.get( p_msg_index => k,
1002: p_encoded => 'F'
995: fnd_msg_pub.count_and_get( p_encoded => 'F'
996: , p_count => x_msg_count
997: , p_data => x_msg_data);
998: --oe_debug_pub.add('no. of FND messages :'||x_msg_count,1);
999: oe_debug_pub.add('no. of FND messages :'||x_msg_count);
1000: for k in 1 .. x_msg_count loop
1001: x_msg_data := fnd_msg_pub.get( p_msg_index => k,
1002: p_encoded => 'F'
1003: );
1956:
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;
3835: oe_debug_pub.add('Open Request:'||l_request_name);
3836: END IF;
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;
3836: END IF;
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;
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;
3994: --bug 12922209 Start
3995: IF NVL(l_ret_code,0) = 1 THEN
3996: retcode := 1;
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;
4011: END IF;
4012: EXCEPTION
4013: WHEN OTHERS THEN
4425: l_headers_processed := l_headers_processed+1;
4426: END IF;
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;
4426: END IF;
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;
4433: EXIT;
4434: END IF;
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;
4434: END IF;
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
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
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
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
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:
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
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
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
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: