[Home] [Help]
1: PACKAGE BODY OE_RETROBILL_PVT AS
2: /* $Header: OEXVRTOB.pls 120.18 2007/11/12 12:08:22 aambasth ship $ */
3:
4:
5: /*
237:
238:
239: G_CURRENT_RETROBILL_REQUEST_ID NUMBER;
240: G_LINES_NOT_RETRO_DISPLAYED VARCHAR2(1);
241: G_PKG_NAME VARCHAR2(30):='OE_RETROBILL_PVT';
242: --bug3738043
243: G_RETRO_PRICING_PHASE_COUNT NUMBER := 0;
244:
245: -- 3661895
302:
303: Begin
304:
305: If l_debug_level > 0 Then
306: oe_debug_pub.add('Entering oe_retrobill_pvt.get_last_retro...input header_id:'||p_header_id);
307: End If;
308:
309: --!!!Need to check system param, if no retrobill should return the same header_id immediately
310: --to save processing time!!!
319: x_header_id:=l_retro_header_id;
320: END IF;
321:
322: If l_debug_level > 0 Then
323: oe_debug_pub.add('Exiting oe_retrobill_pvt.get_last_retro...output header_id:'||x_header_id);
324: End If;
325:
326: Exception
327: When Others then
349: l_query_header_id Number;
350: Begin
351:
352: If l_debug_level > 0 Then
353: oe_debug_pub.add('Entering oe_retrobill_pvt.get_last_retro...input Line_id:'||p_line_id);
354: End If;
355:
356: --!!!Need to check system param, if no retrobill should return the same header_id immediately
357: --to save processing time!!!
367: x_line_id:=l_retro_line_id;
368: END IF;
369:
370: If l_debug_level > 0 Then
371: oe_debug_pub.add('Exiting oe_retrobill_pvt.get_last_retro...output line_id:'||x_line_id);
372: End If;
373:
374: Exception
375: When Others then
1356: END IF;
1357:
1358: Exception
1359: When Others Then
1360: oe_debug_pub.add('Execption occured in Oe_Retrobill_Pvt.Insert_Id:'||SQLERRM);
1361: Raise;
1362: End;
1363:
1364: PROCEDURE INSERT_RETROBILL_REQUEST(p_retrobill_request_rec IN OE_RETROBILL_REQUESTS%ROWTYPE) AS
3109: p_line_tbl =>l_line_tbl,
3110: x_created_header_id=>lx_header_id,
3111: x_return_status =>lx_return_status);
3112: IF(lx_return_status=FND_API.G_RET_STS_SUCCESS and lx_header_id is not NULL) THEN
3113: Oe_retrobill_Pvt.Delete_Order(lx_header_id, l_header_deleted);
3114: --bug5003256
3115: ELSE
3116: x_error_count := x_error_count + l_line_tbl.count;
3117: END IF;
3195: p_line_tbl=>l_line_tbl,
3196: x_created_header_id=>lx_header_id,
3197: x_return_status=>lx_return_status);
3198: IF(lx_return_status=FND_API.G_RET_STS_SUCCESS and lx_header_id is not NULL) THEN
3199: oe_retrobill_pvt.delete_order(lx_header_id, l_header_deleted); --bug5003256
3200: --bug5003256
3201: ELSE
3202: x_error_count := x_error_count + l_line_tbl.count;
3203:
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;
3378:
3379: i NUMBER :=1;
3380: j NUMBER;
3381: l_retrobill_request_rec OE_RETROBILL_REQUESTS%ROWTYPE;
3382: l_retrobill_tbl OE_RETROBILL_PVT.RETROBILL_TBL_TYPE;
3383:
3384: l_return_status varchar2(2000);
3385: l_msg_count NUMBER;
3386: l_msg_data varchar2(2000);
3393: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3394: BEGIN
3395: open c_lines;
3396: If l_debug_level > 0 Then
3397: Oe_Debug_Pub.add('skubendr:Entering procedure Oe_Retrobill_Pvt.Oe_Build_Retrobill_Table');
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
3470: l_retrobill_request_rec.sold_to_org_id := p_sold_to_org_id;
3471: l_retrobill_request_rec.inventory_item_id := p_inventory_item_id;
3472:
3473: If l_debug_level > 0 Then
3474: Oe_Debug_Pub.add('skubendr:Before calling Oe_Retrobill_Pvt.Process_Retrobill_Request');
3475: End If;
3476:
3477: IF(l_retrobill_tbl.count <> 0) THEN
3478: Oe_Retrobill_Pvt.Process_Retrobill_Request
3474: Oe_Debug_Pub.add('skubendr:Before calling Oe_Retrobill_Pvt.Process_Retrobill_Request');
3475: End If;
3476:
3477: IF(l_retrobill_tbl.count <> 0) THEN
3478: Oe_Retrobill_Pvt.Process_Retrobill_Request
3479: (p_retrobill_request_rec => l_retrobill_request_rec
3480: ,p_retrobill_tbl => l_retrobill_tbl
3481: ,x_created_retrobill_request_id => l_retrobill_request_id
3482: ,x_msg_count => l_msg_count
3486: ,x_error_count => x_error_count); --bug5003256
3487: END IF;
3488:
3489: IF l_debug_level > 0 Then
3490: Oe_Debug_Pub.add('skubendr:After calling Oe_Retrobill_Pvt.Process_Retrobill_Request :'||l_return_status);
3491: END IF;
3492:
3493: -- delete the data from temp table after retrobilling process
3494: IF(p_request_session_id is not NULL) THEN
3501: x_return_status := l_return_status;
3502: x_return_status_text := l_return_status_text;
3503:
3504: IF l_debug_level > 0 Then
3505: Oe_Debug_Pub.add('skubendr:Exiting procedure Oe_Retrobill_Pvt.Oe_Build_Retrobill_Table:'||l_return_status);
3506: END IF;
3507: EXCEPTION
3508: WHEN NO_DATA_FOUND THEN
3509: RAISE NO_DATA_FOUND;
4141:
4142: FND_PROFILE.Get('CONC_REQUEST_ID', l_concurrent_id);
4143:
4144: IF l_debug_level > 0 THEN
4145: oe_debug_pub.add('Entering Oe_Retrobill_Pvt.Oe_Retrobill_Purge',1);
4146: oe_debug_pub.add( 'CONCURRENT REQUEST ID: '|| TO_CHAR ( L_CONCURRENT_ID ) ) ;
4147: END IF;
4148:
4149: --rt moac start
4254: END IF;
4255:
4256: fnd_file.put_line(FND_FILE.OUTPUT,'Number of Requests Purged:' ||l_requests_processed);
4257: fnd_file.put_line(FND_FILE.OUTPUT,'Number of Orders Purged:' ||l_headers_processed);
4258: oe_debug_pub.add('Exiting Oe_Retrobill_pvt.Oe_retrobill_Purge');
4259: commit;
4260:
4261: EXCEPTION
4262: WHEN OTHERS THEN
4414: END IF;
4415:
4416: END Get_Line_Adjustments;
4417:
4418: End OE_RETROBILL_PVT;