73: l_pkt_reference2_Tab PA_PLSQL_DATATYPES.Char80TabTyp;
74: l_pkt_reference3_Tab PA_PLSQL_DATATYPES.Char80TabTyp;
75:
76:
77: P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
78:
79: PROCEDURE print_msg (l_debug_flag varchar2 default 'N'
80: ,p_msg varchar2) IS
81:
81:
82: BEGIN
83: If l_debug_flag = 'Y' Then
84: --dbms_output.put_line('LOG:'||p_msg);
85: PA_DEBUG.write_file('LOG',p_msg);
86: --r_debug.r_msg('LOG:'||p_msg);
87: End If;
88: END print_msg;
89:
235: ;
236:
237:
238: BEGIN
239: pa_debug.init_err_stack('pa_bc_costing.costing_fc_proc');
240:
241: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
242: l_debug_mode := NVL(l_debug_mode, 'Y');
243:
237:
238: BEGIN
239: pa_debug.init_err_stack('pa_bc_costing.costing_fc_proc');
240:
241: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
242: l_debug_mode := NVL(l_debug_mode, 'Y');
243:
244: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
245:
240:
241: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
242: l_debug_mode := NVL(l_debug_mode, 'Y');
243:
244: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
245:
246: l_stage := 100;
247: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From costing_fc_proc';
248: IF P_DEBUG_MODE = 'Y' THEN
243:
244: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
245:
246: l_stage := 100;
247: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From costing_fc_proc';
248: IF P_DEBUG_MODE = 'Y' THEN
249: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
250: END IF;
251:
245:
246: l_stage := 100;
247: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From costing_fc_proc';
248: IF P_DEBUG_MODE = 'Y' THEN
249: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
250: END IF;
251:
252: /*
253: * Copy incoming parameters into Local variables.
254: */
255: l_calling_module := p_calling_module ;
256: g_request_id := p_request_id ;
257:
258: pa_debug.g_err_stage := 'Request Id is [' || to_char(g_request_id) || ']' ;
259: IF P_DEBUG_MODE = 'Y' THEN
260: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
261: END IF;
262:
256: g_request_id := p_request_id ;
257:
258: pa_debug.g_err_stage := 'Request Id is [' || to_char(g_request_id) || ']' ;
259: IF P_DEBUG_MODE = 'Y' THEN
260: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
261: END IF;
262:
263: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while selecting pa_implementations';
264: /*
259: IF P_DEBUG_MODE = 'Y' THEN
260: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
261: END IF;
262:
263: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while selecting pa_implementations';
264: /*
265: * Get the sob_id.
266: */
267: SELECT set_of_books_id
267: SELECT set_of_books_id
268: INTO g_sob_id
269: FROM pa_implementations;
270:
271: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After selecting from pa_implementations. Sob_id is [' || TO_CHAR(g_sob_id) || ']' ;
272: IF P_DEBUG_MODE = 'Y' THEN
273: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
274: END IF;
275:
269: FROM pa_implementations;
270:
271: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After selecting from pa_implementations. Sob_id is [' || TO_CHAR(g_sob_id) || ']' ;
272: IF P_DEBUG_MODE = 'Y' THEN
273: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
274: END IF;
275:
276: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred Opening pa_bc_packet_cur.';
277:
272: IF P_DEBUG_MODE = 'Y' THEN
273: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
274: END IF;
275:
276: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred Opening pa_bc_packet_cur.';
277:
278: /*
279: * Select Expenditure_item_ids to process.
280: *
293: * Loop until all EIs are processed.
294: */
295: LOOP
296:
297: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ':Fetching a Set of CDLs to Process.';
298: IF P_DEBUG_MODE = 'Y' THEN
299: PA_DEBUG.write_file('costing_fc_proc: ' || PA_DEBUG.g_err_stage);
300: END IF;
301:
295: LOOP
296:
297: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ':Fetching a Set of CDLs to Process.';
298: IF P_DEBUG_MODE = 'Y' THEN
299: PA_DEBUG.write_file('costing_fc_proc: ' || PA_DEBUG.g_err_stage);
300: END IF;
301:
302: l_stage := 300;
303: FETCH pa_bc_packet_cur
342: l_this_fetch := pa_bc_packet_cur%ROWCOUNT - l_totally_fetched;
343: l_totally_fetched := pa_bc_packet_cur%ROWCOUNT;
344: l_totally_processed := l_totally_processed + l_this_fetch;
345:
346: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ':Fetched [' || l_this_fetch || '] CDL(s) to process.';
347: IF P_DEBUG_MODE = 'Y' THEN
348: PA_DEBUG.write_file('costing_fc_proc: ' || PA_DEBUG.g_err_stage);
349: END IF;
350:
344: l_totally_processed := l_totally_processed + l_this_fetch;
345:
346: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ':Fetched [' || l_this_fetch || '] CDL(s) to process.';
347: IF P_DEBUG_MODE = 'Y' THEN
348: PA_DEBUG.write_file('costing_fc_proc: ' || PA_DEBUG.g_err_stage);
349: END IF;
350:
351: IF (l_this_fetch = 0) THEN
352: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ':No more CDL(s) to process. Exiting';
348: PA_DEBUG.write_file('costing_fc_proc: ' || PA_DEBUG.g_err_stage);
349: END IF;
350:
351: IF (l_this_fetch = 0) THEN
352: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ':No more CDL(s) to process. Exiting';
353: IF P_DEBUG_MODE = 'Y' THEN
354: PA_DEBUG.write_file('costing_fc_proc: ' || PA_DEBUG.g_err_stage);
355: END IF;
356: x_return_status := 0;
350:
351: IF (l_this_fetch = 0) THEN
352: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ':No more CDL(s) to process. Exiting';
353: IF P_DEBUG_MODE = 'Y' THEN
354: PA_DEBUG.write_file('costing_fc_proc: ' || PA_DEBUG.g_err_stage);
355: END IF;
356: x_return_status := 0;
357: x_error_code := FND_API.G_RET_STS_SUCCESS;
358: x_error_stage := l_stage;
378: | Burdening Enhancements |
379: | o Funds Check both R and I lines. |
380: | o Transfer Status Code P for R lines and G for I lines. |
381: +=========================================================*/
382: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ':Fresh line Missing. Selecting Fresh line.';
383: IF P_DEBUG_MODE = 'Y' THEN
384: PA_DEBUG.write_file('costing_fc_proc: ' || PA_DEBUG.g_err_stage);
385: END IF;
386:
380: | o Transfer Status Code P for R lines and G for I lines. |
381: +=========================================================*/
382: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ':Fresh line Missing. Selecting Fresh line.';
383: IF P_DEBUG_MODE = 'Y' THEN
384: PA_DEBUG.write_file('costing_fc_proc: ' || PA_DEBUG.g_err_stage);
385: END IF;
386:
387: l_stage := 400;
388: SELECT cdl.expenditure_item_id
492: l_ei_to_process_from := l_expenditure_item_id_tab(l_this_fetch);
493:
494: IF (l_debug_mode = 'Y')
495: THEN
496: pa_debug.g_err_stage := ' l_ei_to_process_from is [' || to_char(l_ei_to_process_from) || ']';
497: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
498: END IF;
499:
500: IF (l_debug_mode = 'Y')
493:
494: IF (l_debug_mode = 'Y')
495: THEN
496: pa_debug.g_err_stage := ' l_ei_to_process_from is [' || to_char(l_ei_to_process_from) || ']';
497: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
498: END IF;
499:
500: IF (l_debug_mode = 'Y')
501: THEN
498: END IF;
499:
500: IF (l_debug_mode = 'Y')
501: THEN
502: pa_debug.g_err_stage := 'Fresh cdl [' || l_expenditure_item_id_tab(l_this_fetch+1) ||
503: '] line_num [' || l_line_num_tab(l_this_fetch+1) ||
504: '] line_type [' || l_line_type_tab(l_this_fetch+1) ||
505: '] line_num_reversed [' || l_line_num_reversed_tab(l_this_fetch+1) ||
506: '] p_id [' || l_project_id_tab(l_this_fetch+1) ||
514: '] comp_set_id [' || l_ind_compiled_set_id_tab(l_this_fetch+1) ||
515: '] parent [' || l_parent_bc_packet_id_tab(l_this_fetch+1) ||
516: ']';
517: IF P_DEBUG_MODE = 'Y' THEN
518: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
519: END IF;
520: pa_debug.g_err_stage := 'dr_ccid [' || l_dr_code_combination_id_tab(l_this_fetch+1) ||
521: '] gl_p_name [' || l_gl_period_name_tab(l_this_fetch+1) ||
522: '] etype [' || l_expenditure_type_tab(l_this_fetch+1) ||
516: ']';
517: IF P_DEBUG_MODE = 'Y' THEN
518: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
519: END IF;
520: pa_debug.g_err_stage := 'dr_ccid [' || l_dr_code_combination_id_tab(l_this_fetch+1) ||
521: '] gl_p_name [' || l_gl_period_name_tab(l_this_fetch+1) ||
522: '] etype [' || l_expenditure_type_tab(l_this_fetch+1) ||
523: '] task_id [' || l_task_id_tab(l_this_fetch+1) ||
524: '] eorg_id [' || l_exp_organization_id_tab(l_this_fetch+1) ||
528: '] burdened [' || l_burden_cost_flag_tab(l_this_fetch+1) ||
529: '] doc_line_id [' || to_char(l_document_line_id_tab(l_this_fetch+1)) ||
530: ']';
531: IF P_DEBUG_MODE = 'Y' THEN
532: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
533: END IF;
534: END IF; -- debug mode?
535:
536:
542: IF (l_debug_mode = 'Y')
543: THEN
544: FOR i IN l_expenditure_item_id_tab.FIRST .. l_expenditure_item_id_tab.LAST
545: LOOP
546: pa_debug.g_err_stage := 'eiid [' || l_expenditure_item_id_tab(i) ||
547: '] sys_link [' || l_system_linkage_function_tab(i) ||
548: '] line_num [' || l_line_num_tab(i) ||
549: '] line_type [' || l_line_type_tab(i) ||
550: '] line_num_reversed [' || l_line_num_reversed_tab(i) ||
569: '] parent_pkt_id [' || l_parent_bc_packet_id_tab(i) ||
570: '] doc_line_id [' || to_char(l_document_line_id_tab(i)) ||
571: '] burdened [' || l_burden_cost_flag_tab(i) || ']';
572: IF P_DEBUG_MODE = 'Y' THEN
573: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
574: END IF;
575: END LOOP;
576: END IF; -- debug mode?
577:
577:
578: /*
579: * Get the Packet_id
580: */
581: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ': Getting the packet_id.';
582: IF P_DEBUG_MODE = 'Y' THEN
583: PA_DEBUG.write_file('costing_fc_proc: ' || PA_DEBUG.g_err_stage);
584: END IF;
585:
579: * Get the Packet_id
580: */
581: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ': Getting the packet_id.';
582: IF P_DEBUG_MODE = 'Y' THEN
583: PA_DEBUG.write_file('costing_fc_proc: ' || PA_DEBUG.g_err_stage);
584: END IF;
585:
586: l_stage := 500;
587: SELECT gl_bc_packets_s.NEXTVAL
587: SELECT gl_bc_packets_s.NEXTVAL
588: INTO g_packet_id
589: FROM dual;
590:
591: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Packet_id is [' || TO_CHAR(g_packet_id) || ']' ;
592: IF P_DEBUG_MODE = 'Y' THEN
593: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
594: END IF;
595:
589: FROM dual;
590:
591: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Packet_id is [' || TO_CHAR(g_packet_id) || ']' ;
592: IF P_DEBUG_MODE = 'Y' THEN
593: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
594: END IF;
595:
596: /*
597: * Call Autonomous Procedure to insert the pl/sql tables into pa_bc_packets.
595:
596: /*
597: * Call Autonomous Procedure to insert the pl/sql tables into pa_bc_packets.
598: */
599: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Before Calling populate_pa_bc_packets.';
600: IF P_DEBUG_MODE = 'Y' THEN
601: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
602: END IF;
603:
597: * Call Autonomous Procedure to insert the pl/sql tables into pa_bc_packets.
598: */
599: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Before Calling populate_pa_bc_packets.';
600: IF P_DEBUG_MODE = 'Y' THEN
601: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
602: END IF;
603:
604: l_stage := 600;
605: populate_pa_bc_packets( l_return_status
607: ,l_error_stage
608: );
609:
610:
611: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After calling populate_pa_bc_packets l_return_status = [' ||
612: l_return_status || '] l_error_stage = [' || l_error_stage ||
613: '] l_error_code = [' || l_error_code || ']' ;
614: IF P_DEBUG_MODE = 'Y' THEN
615: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
611: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After calling populate_pa_bc_packets l_return_status = [' ||
612: l_return_status || '] l_error_stage = [' || l_error_stage ||
613: '] l_error_code = [' || l_error_code || ']' ;
614: IF P_DEBUG_MODE = 'Y' THEN
615: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
616: END IF;
617:
618: /*
619: * Check l_return_status,l_error_code,l_error_stage and take appropriate action.
619: * Check l_return_status,l_error_code,l_error_stage and take appropriate action.
620: */
621: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
622: THEN
623: pa_debug.g_err_stage := 'Error occurred while call to populate_pa_bc_packets. x_return_status [' ||
624: l_return_status || ']';
625: IF P_DEBUG_MODE = 'Y' THEN
626: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
627: END IF;
622: THEN
623: pa_debug.g_err_stage := 'Error occurred while call to populate_pa_bc_packets. x_return_status [' ||
624: l_return_status || ']';
625: IF P_DEBUG_MODE = 'Y' THEN
626: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
627: END IF;
628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
629: END IF;
630:
627: END IF;
628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
629: END IF;
630:
631: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After Inserting Records into PA_BC_PACKETS.';
632: IF P_DEBUG_MODE = 'Y' THEN
633: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
634: END IF;
635:
629: END IF;
630:
631: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After Inserting Records into PA_BC_PACKETS.';
632: IF P_DEBUG_MODE = 'Y' THEN
633: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
634: END IF;
635:
636: /*
637: * Call FC API here.
635:
636: /*
637: * Call FC API here.
638: */
639: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Calling FC API';
640: IF P_DEBUG_MODE = 'Y' THEN
641: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
642: END IF;
643:
637: * Call FC API here.
638: */
639: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Calling FC API';
640: IF P_DEBUG_MODE = 'Y' THEN
641: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
642: END IF;
643:
644: pa_debug.g_err_stage := 'Error Occurred during call to pa_funds_check.';
645: /*
640: IF P_DEBUG_MODE = 'Y' THEN
641: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
642: END IF;
643:
644: pa_debug.g_err_stage := 'Error Occurred during call to pa_funds_check.';
645: /*
646: * Call the FC API.
647: */
648: l_stage := 700;
659: ,l_error_stage -- x_error_stage
660: ,l_error_code -- x_error_msg
661: ) )
662: THEN
663: pa_debug.g_err_stage := 'pa_funds_check returned FALSE.';
664: IF P_DEBUG_MODE = 'Y' THEN
665: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
666: END IF;
667:
661: ) )
662: THEN
663: pa_debug.g_err_stage := 'pa_funds_check returned FALSE.';
664: IF P_DEBUG_MODE = 'Y' THEN
665: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
666: END IF;
667:
668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
669: END IF;
667:
668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
669: END IF;
670:
671: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After calling FC API l_return_status =[' || l_return_status ||
672: '] l_error_stage = [' || l_error_stage ||
673: '] l_error_code = [' || l_error_code || ']' ;
674: IF P_DEBUG_MODE = 'Y' THEN
675: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
671: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After calling FC API l_return_status =[' || l_return_status ||
672: '] l_error_stage = [' || l_error_stage ||
673: '] l_error_code = [' || l_error_code || ']' ;
674: IF P_DEBUG_MODE = 'Y' THEN
675: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
676: END IF;
677:
678: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After calling FC API' ;
679: IF P_DEBUG_MODE = 'Y' THEN
674: IF P_DEBUG_MODE = 'Y' THEN
675: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
676: END IF;
677:
678: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After calling FC API' ;
679: IF P_DEBUG_MODE = 'Y' THEN
680: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
681: END IF;
682:
676: END IF;
677:
678: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After calling FC API' ;
679: IF P_DEBUG_MODE = 'Y' THEN
680: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
681: END IF;
682:
683:
684: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Calling process_rejected_exp_items' ;
680: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
681: END IF;
682:
683:
684: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Calling process_rejected_exp_items' ;
685: IF P_DEBUG_MODE = 'Y' THEN
686: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
687: END IF;
688:
682:
683:
684: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Calling process_rejected_exp_items' ;
685: IF P_DEBUG_MODE = 'Y' THEN
686: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
687: END IF;
688:
689: l_stage := 800;
690: process_rejected_exp_items ( x_return_status => l_return_status
693: );
694:
695: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
696: THEN
697: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Error occurred while call to process_rejected_exp_items. x_return_status [' || l_return_status || ']';
698: IF P_DEBUG_MODE = 'Y' THEN
699: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
700: END IF;
701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
695: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
696: THEN
697: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Error occurred while call to process_rejected_exp_items. x_return_status [' || l_return_status || ']';
698: IF P_DEBUG_MODE = 'Y' THEN
699: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
700: END IF;
701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
702: END IF;
703:
700: END IF;
701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
702: END IF;
703:
704: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After calling process_rejected_exp_items l_return_status =[' ||
705: l_return_status ||
706: '] l_error_stage = [' || l_error_stage ||
707: '] l_error_code = [' || l_error_code || ']' ;
708: IF P_DEBUG_MODE = 'Y' THEN
705: l_return_status ||
706: '] l_error_stage = [' || l_error_stage ||
707: '] l_error_code = [' || l_error_code || ']' ;
708: IF P_DEBUG_MODE = 'Y' THEN
709: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
710: END IF;
711:
712: /*
713: * Calling FC ends here.
715: IF (l_this_fetch < l_bunch_size) THEN
716: /*
717: * Indicates last fetch.
718: */
719: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Finished Processing Last Fetch.';
720: IF P_DEBUG_MODE = 'Y' THEN
721: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
722: END IF;
723: EXIT;
717: * Indicates last fetch.
718: */
719: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Finished Processing Last Fetch.';
720: IF P_DEBUG_MODE = 'Y' THEN
721: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
722: END IF;
723: EXIT;
724: END IF;
725: /** deleting plsql tables **/
723: EXIT;
724: END IF;
725: /** deleting plsql tables **/
726:
727: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Deleting Pl/Sql tables......';
728: IF P_DEBUG_MODE = 'Y' THEN
729: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
730: END IF;
731:
725: /** deleting plsql tables **/
726:
727: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Deleting Pl/Sql tables......';
728: IF P_DEBUG_MODE = 'Y' THEN
729: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
730: END IF;
731:
732: l_stage := 900;
733: l_expenditure_item_id_tab.DELETE;
757: l_pkt_reference1_Tab.DELETE;
758: l_pkt_reference2_Tab.DELETE;
759: l_pkt_reference3_Tab.DELETE;
760:
761: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After Deleting Pl/Sql tables......';
762: IF P_DEBUG_MODE = 'Y' THEN
763: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
764: END IF;
765:
759: l_pkt_reference3_Tab.DELETE;
760:
761: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After Deleting Pl/Sql tables......';
762: IF P_DEBUG_MODE = 'Y' THEN
763: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
764: END IF;
765:
766: /** deleting plsql tables **/
767: /*=================================================================+
770:
771: IF (l_ei_to_process_from > 0)
772: THEN
773: IF P_DEBUG_MODE = 'Y' THEN
774: pa_debug.g_err_stage := TO_CHAR(l_stage) || 'closing cursor';
775: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
776: END if;
777: CLOSE pa_bc_packet_cur;
778:
771: IF (l_ei_to_process_from > 0)
772: THEN
773: IF P_DEBUG_MODE = 'Y' THEN
774: pa_debug.g_err_stage := TO_CHAR(l_stage) || 'closing cursor';
775: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
776: END if;
777: CLOSE pa_bc_packet_cur;
778:
779: l_this_fetch := 0;
778:
779: l_this_fetch := 0;
780: l_totally_fetched := 0;
781: IF P_DEBUG_MODE = 'Y' THEN
782: pa_debug.g_err_stage := TO_CHAR(l_stage) || 'opening cursor - to process from [' || to_char(l_ei_to_process_from) || ']';
783: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
784: END IF;
785: OPEN pa_bc_packet_cur;
786: END IF;
779: l_this_fetch := 0;
780: l_totally_fetched := 0;
781: IF P_DEBUG_MODE = 'Y' THEN
782: pa_debug.g_err_stage := TO_CHAR(l_stage) || 'opening cursor - to process from [' || to_char(l_ei_to_process_from) || ']';
783: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
784: END IF;
785: OPEN pa_bc_packet_cur;
786: END IF;
787:
786: END IF;
787:
788: END LOOP; -- End of loop to insert total number records.
789:
790: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': No. Of CDLs Totally fetched [' || TO_CHAR(l_totally_fetched) || ']' ;
791: IF P_DEBUG_MODE = 'Y' THEN
792: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
793: END IF;
794:
788: END LOOP; -- End of loop to insert total number records.
789:
790: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': No. Of CDLs Totally fetched [' || TO_CHAR(l_totally_fetched) || ']' ;
791: IF P_DEBUG_MODE = 'Y' THEN
792: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
793: END IF;
794:
795: IF ( l_calling_module = 'DISTBTC')
796: THEN
793: END IF;
794:
795: IF ( l_calling_module = 'DISTBTC')
796: THEN
797: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Calling map_btc_items' ;
798: IF P_DEBUG_MODE = 'Y' THEN
799: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
800: END IF;
801: pa_bc_costing.map_btc_items ( p_request_id => g_request_id
795: IF ( l_calling_module = 'DISTBTC')
796: THEN
797: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Calling map_btc_items' ;
798: IF P_DEBUG_MODE = 'Y' THEN
799: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
800: END IF;
801: pa_bc_costing.map_btc_items ( p_request_id => g_request_id
802: ,x_return_status => l_return_status
803: ,x_error_code => l_error_code
805: );
806:
807: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
808: THEN
809: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Error occurred while call to map_btc_items. x_return_status [' || l_return_status || ']';
810: IF P_DEBUG_MODE = 'Y' THEN
811: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
812: END IF;
813: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
807: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
808: THEN
809: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Error occurred while call to map_btc_items. x_return_status [' || l_return_status || ']';
810: IF P_DEBUG_MODE = 'Y' THEN
811: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
812: END IF;
813: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
814: END IF;
815:
812: END IF;
813: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
814: END IF;
815:
816: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
817: ':After calling map_btc_items l_return_status =[' ||
818: l_return_status ||
819: '] l_error_stage = [' || l_error_stage ||
820: '] l_error_code = [' || l_error_code || ']' ;
818: l_return_status ||
819: '] l_error_stage = [' || l_error_stage ||
820: '] l_error_code = [' || l_error_code || ']' ;
821: IF P_DEBUG_MODE = 'Y' THEN
822: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
823: END IF;
824: END IF; -- DISTBTC
825:
826: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Leaving costing_fc_proc' ;
822: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
823: END IF;
824: END IF; -- DISTBTC
825:
826: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Leaving costing_fc_proc' ;
827: IF P_DEBUG_MODE = 'Y' THEN
828: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
829: END IF;
830:
824: END IF; -- DISTBTC
825:
826: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Leaving costing_fc_proc' ;
827: IF P_DEBUG_MODE = 'Y' THEN
828: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
829: END IF;
830:
831: x_return_status := 0;
832: pa_debug.reset_err_stack;
828: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
829: END IF;
830:
831: x_return_status := 0;
832: pa_debug.reset_err_stack;
833:
834: EXCEPTION
835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
836: THEN
834: EXCEPTION
835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
836: THEN
837: IF P_DEBUG_MODE = 'Y' THEN
838: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
839: END IF;
840: x_return_status := -1;
841: x_error_code := pa_debug.g_err_stage ;
842: x_error_stage := to_char(l_stage) ;
837: IF P_DEBUG_MODE = 'Y' THEN
838: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
839: END IF;
840: x_return_status := -1;
841: x_error_code := pa_debug.g_err_stage ;
842: x_error_stage := to_char(l_stage) ;
843: WHEN OTHERS
844: THEN
845: IF P_DEBUG_MODE = 'Y' THEN
842: x_error_stage := to_char(l_stage) ;
843: WHEN OTHERS
844: THEN
845: IF P_DEBUG_MODE = 'Y' THEN
846: pa_debug.write_file('costing_fc_proc: EXCEPTION ' || pa_debug.g_err_stage);
847: END IF;
848:
849: pa_debug.g_err_stage := TO_CHAR(SQLCODE) || SQLERRM ;
850: IF P_DEBUG_MODE = 'Y' THEN
845: IF P_DEBUG_MODE = 'Y' THEN
846: pa_debug.write_file('costing_fc_proc: EXCEPTION ' || pa_debug.g_err_stage);
847: END IF;
848:
849: pa_debug.g_err_stage := TO_CHAR(SQLCODE) || SQLERRM ;
850: IF P_DEBUG_MODE = 'Y' THEN
851: pa_debug.write_file('costing_fc_proc: EXCEPTION ' || pa_debug.g_err_stage);
852: END IF;
853:
847: END IF;
848:
849: pa_debug.g_err_stage := TO_CHAR(SQLCODE) || SQLERRM ;
850: IF P_DEBUG_MODE = 'Y' THEN
851: pa_debug.write_file('costing_fc_proc: EXCEPTION ' || pa_debug.g_err_stage);
852: END IF;
853:
854: x_return_status := -1;
855: x_error_code := TO_CHAR(SQLCODE) || SQLERRM ;
1002: ;
1003:
1004: BEGIN
1005:
1006: pa_debug.init_err_stack('pa_bc_costing.map_btc_items');
1007:
1008: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1009: l_debug_mode := NVL(l_debug_mode, 'N');
1010:
1004: BEGIN
1005:
1006: pa_debug.init_err_stack('pa_bc_costing.map_btc_items');
1007:
1008: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1009: l_debug_mode := NVL(l_debug_mode, 'N');
1010:
1011: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1012:
1007:
1008: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1009: l_debug_mode := NVL(l_debug_mode, 'N');
1010:
1011: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1012:
1013: l_stage := 100;
1014: l_debug_stage := TO_CHAR(l_stage) || ':From map_btc_items';
1015: print_msg(l_debug_mode,l_debug_stage);
1361: l_debug_stage := TO_CHAR(l_stage)||':No.of CDLs deleted for Mapping failure['||TO_CHAR(SQL%ROWCOUNT)||']';
1362: print_msg(l_debug_mode,l_debug_stage);
1363:
1364: --reset the error stack
1365: pa_debug.reset_err_stack;
1366:
1367: EXCEPTION
1368: WHEN OTHERS
1369: THEN
1367: EXCEPTION
1368: WHEN OTHERS
1369: THEN
1370: IF P_DEBUG_MODE = 'Y' THEN
1371: pa_debug.write_file('ErrStage['||l_stage||']map_btc_items:'||l_debug_stage);
1372: END IF;
1373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1374: x_error_code := TO_CHAR(SQLCODE) || SQLERRM ;
1375: x_error_stage := l_stage ;
1399: l_del_cdl_abc_tab PA_PLSQL_DATATYPES.NumTabTyp;
1400: l_del_cdl_pfbc_tab PA_PLSQL_DATATYPES.NumTabTyp;
1401: l_del_cdl_pbc_tab PA_PLSQL_DATATYPES.NumTabTyp;
1402: BEGIN
1403: pa_debug.init_err_stack('pa_bc_costing.process_rejected_exp_items');
1404:
1405: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1406: l_debug_mode := NVL(l_debug_mode, 'Y');
1407:
1401: l_del_cdl_pbc_tab PA_PLSQL_DATATYPES.NumTabTyp;
1402: BEGIN
1403: pa_debug.init_err_stack('pa_bc_costing.process_rejected_exp_items');
1404:
1405: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1406: l_debug_mode := NVL(l_debug_mode, 'Y');
1407:
1408: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1409:
1404:
1405: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1406: l_debug_mode := NVL(l_debug_mode, 'Y');
1407:
1408: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1409:
1410: l_stage := 100;
1411: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From process_rejected_exp_items';
1412: pa_debug.write_file(pa_debug.g_err_stage);
1407:
1408: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1409:
1410: l_stage := 100;
1411: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From process_rejected_exp_items';
1412: pa_debug.write_file(pa_debug.g_err_stage);
1413:
1414: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while selecting rejected EIs.';
1415:
1408: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1409:
1410: l_stage := 100;
1411: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From process_rejected_exp_items';
1412: pa_debug.write_file(pa_debug.g_err_stage);
1413:
1414: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while selecting rejected EIs.';
1415:
1416: /*
1410: l_stage := 100;
1411: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From process_rejected_exp_items';
1412: pa_debug.write_file(pa_debug.g_err_stage);
1413:
1414: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while selecting rejected EIs.';
1415:
1416: /*
1417: * Bulk collect the expenditure Items that were
1418: * rejected during Funds Check.
1435: );
1436:
1437: l_records_affected := SQL%ROWCOUNT;
1438:
1439: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':No. of EIs failed Funds-Check : [' ||
1440: TO_CHAR(l_records_affected) || ']';
1441: pa_debug.write_file(pa_debug.g_err_stage);
1442:
1443: /*
1437: l_records_affected := SQL%ROWCOUNT;
1438:
1439: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':No. of EIs failed Funds-Check : [' ||
1440: TO_CHAR(l_records_affected) || ']';
1441: pa_debug.write_file(pa_debug.g_err_stage);
1442:
1443: /*
1444: * Process rejected EIs if there are any.
1445: * May be we can put the rejected EI process in a seperate
1447: */
1448: IF ( l_records_affected > 0 )
1449: THEN
1450:
1451: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Deleting CDLs rejected during FC.' ;
1452: pa_debug.write_file(pa_debug.g_err_stage);
1453:
1454: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Some rejected CDLs with req_id [' ||
1455: TO_CHAR(g_request_id) || '] are being deleted';
1448: IF ( l_records_affected > 0 )
1449: THEN
1450:
1451: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Deleting CDLs rejected during FC.' ;
1452: pa_debug.write_file(pa_debug.g_err_stage);
1453:
1454: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Some rejected CDLs with req_id [' ||
1455: TO_CHAR(g_request_id) || '] are being deleted';
1456: pa_debug.write_file(pa_debug.g_err_stage);
1450:
1451: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Deleting CDLs rejected during FC.' ;
1452: pa_debug.write_file(pa_debug.g_err_stage);
1453:
1454: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Some rejected CDLs with req_id [' ||
1455: TO_CHAR(g_request_id) || '] are being deleted';
1456: pa_debug.write_file(pa_debug.g_err_stage);
1457:
1458: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while Deleting CDLs.' ;
1452: pa_debug.write_file(pa_debug.g_err_stage);
1453:
1454: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Some rejected CDLs with req_id [' ||
1455: TO_CHAR(g_request_id) || '] are being deleted';
1456: pa_debug.write_file(pa_debug.g_err_stage);
1457:
1458: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while Deleting CDLs.' ;
1459:
1460: /*
1454: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Some rejected CDLs with req_id [' ||
1455: TO_CHAR(g_request_id) || '] are being deleted';
1456: pa_debug.write_file(pa_debug.g_err_stage);
1457:
1458: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while Deleting CDLs.' ;
1459:
1460: /*
1461: * Delete CDLs that were rejected during FC.
1462: * These records will be marked with a NOT NULL value for ei.cost_dist_rejection_code.
1480: ;
1481: /* Added for Bug fix to get the no of rec's deleted. Bug 3094341 */
1482: l_records_deleted := SQL%ROWCOUNT;
1483:
1484: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':No. of CDLs deleted [' || TO_CHAR(SQL%ROWCOUNT) || ']';
1485: pa_debug.write_file(pa_debug.g_err_stage);
1486:
1487: /* Check added to check if no of rec's deleted > 0 then go to the updates.
1488: Added for Bug 3094341
1481: /* Added for Bug fix to get the no of rec's deleted. Bug 3094341 */
1482: l_records_deleted := SQL%ROWCOUNT;
1483:
1484: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':No. of CDLs deleted [' || TO_CHAR(SQL%ROWCOUNT) || ']';
1485: pa_debug.write_file(pa_debug.g_err_stage);
1486:
1487: /* Check added to check if no of rec's deleted > 0 then go to the updates.
1488: Added for Bug 3094341
1489: */
1495: * Modified the Looping to go by l_del_cdl_eiid_tab instead of l_expenditure_item_id_tab.
1496: */
1497: FOR i IN l_del_cdl_eiid_tab.FIRST .. l_del_cdl_eiid_tab.LAST
1498: LOOP
1499: pa_debug.g_err_stage := 'deleted eiid [' || l_del_cdl_eiid_tab(i) ||
1500: '] line_num [' || l_del_cdl_line_num_tab(i) ||
1501: '] line_type [' || l_del_cdl_line_type_tab(i) ||
1502: '] parent line [' || l_del_cdl_parent_tab(i) ||
1503: '] dbc [' || l_del_cdl_dbc_tab(i) ||
1504: '] abc [' || l_del_cdl_abc_tab(i) ||
1505: '] pfbc [' || l_del_cdl_pfbc_tab(i) ||
1506: '] pbc [' || l_del_cdl_pbc_tab(i) ||
1507: ']';
1508: pa_debug.write_file('process_rejected_exp_items: ' || pa_debug.g_err_stage);
1509: END LOOP;
1510: END IF; -- debug mode?
1511:
1512: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Updating reversed_flag in CDLs.' ;
1508: pa_debug.write_file('process_rejected_exp_items: ' || pa_debug.g_err_stage);
1509: END LOOP;
1510: END IF; -- debug mode?
1511:
1512: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Updating reversed_flag in CDLs.' ;
1513: pa_debug.write_file(pa_debug.g_err_stage);
1514:
1515: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while Updating CDLs.' ;
1516:
1509: END LOOP;
1510: END IF; -- debug mode?
1511:
1512: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Updating reversed_flag in CDLs.' ;
1513: pa_debug.write_file(pa_debug.g_err_stage);
1514:
1515: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while Updating CDLs.' ;
1516:
1517: /*
1511:
1512: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Updating reversed_flag in CDLs.' ;
1513: pa_debug.write_file(pa_debug.g_err_stage);
1514:
1515: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while Updating CDLs.' ;
1516:
1517: /*
1518: * Update the reversed_flag of the original CDLs, the reversing and new
1519: * CDLs of whom where deleted above because of failed FC.
1530: AND cdl.request_id = g_request_id
1531: AND cdl.expenditure_item_id = l_rejected_eiid_tab(i)
1532: ;
1533:
1534: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Reversed Flag updated for [' || TO_CHAR(SQL%ROWCOUNT) || '] CDLs';
1535: pa_debug.write_file(pa_debug.g_err_stage);
1536:
1537: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Updating burden change buckets on the raw CDLs.' ;
1538: pa_debug.write_file(pa_debug.g_err_stage);
1531: AND cdl.expenditure_item_id = l_rejected_eiid_tab(i)
1532: ;
1533:
1534: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Reversed Flag updated for [' || TO_CHAR(SQL%ROWCOUNT) || '] CDLs';
1535: pa_debug.write_file(pa_debug.g_err_stage);
1536:
1537: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Updating burden change buckets on the raw CDLs.' ;
1538: pa_debug.write_file(pa_debug.g_err_stage);
1539:
1533:
1534: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Reversed Flag updated for [' || TO_CHAR(SQL%ROWCOUNT) || '] CDLs';
1535: pa_debug.write_file(pa_debug.g_err_stage);
1536:
1537: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Updating burden change buckets on the raw CDLs.' ;
1538: pa_debug.write_file(pa_debug.g_err_stage);
1539:
1540: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while Updating Raw CDLs.' ;
1541:
1534: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Reversed Flag updated for [' || TO_CHAR(SQL%ROWCOUNT) || '] CDLs';
1535: pa_debug.write_file(pa_debug.g_err_stage);
1536:
1537: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Updating burden change buckets on the raw CDLs.' ;
1538: pa_debug.write_file(pa_debug.g_err_stage);
1539:
1540: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while Updating Raw CDLs.' ;
1541:
1542: /*=======================================================================+
1536:
1537: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Updating burden change buckets on the raw CDLs.' ;
1538: pa_debug.write_file(pa_debug.g_err_stage);
1539:
1540: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while Updating Raw CDLs.' ;
1541:
1542: /*=======================================================================+
1543: | For failed transactions, if the CDL being deleted is of line type I, |
1544: | then the corresponding burden change amount has to be deducted from |
1554: WHERE cdl.expenditure_item_id = l_del_cdl_eiid_tab(i)
1555: and cdl.line_num = l_del_cdl_parent_tab(i)
1556: and l_del_cdl_line_type_tab(i) = 'I'
1557: ;
1558: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Burden Change Bucket updated for [' || TO_CHAR(SQL%ROWCOUNT) || '] CDLs';
1559: pa_debug.write_file(pa_debug.g_err_stage);
1560:
1561: END IF; -------------------------------------------------------------} /* l_records_deleted? */
1562:
1555: and cdl.line_num = l_del_cdl_parent_tab(i)
1556: and l_del_cdl_line_type_tab(i) = 'I'
1557: ;
1558: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Burden Change Bucket updated for [' || TO_CHAR(SQL%ROWCOUNT) || '] CDLs';
1559: pa_debug.write_file(pa_debug.g_err_stage);
1560:
1561: END IF; -------------------------------------------------------------} /* l_records_deleted? */
1562:
1563:
1560:
1561: END IF; -------------------------------------------------------------} /* l_records_deleted? */
1562:
1563:
1564: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Leaving process_rejected_exp_items.';
1565: pa_debug.write_file(pa_debug.g_err_stage);
1566:
1567: END IF; -- Were any EI got rejected?
1568:
1561: END IF; -------------------------------------------------------------} /* l_records_deleted? */
1562:
1563:
1564: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Leaving process_rejected_exp_items.';
1565: pa_debug.write_file(pa_debug.g_err_stage);
1566:
1567: END IF; -- Were any EI got rejected?
1568:
1569: pa_debug.reset_err_stack;
1565: pa_debug.write_file(pa_debug.g_err_stage);
1566:
1567: END IF; -- Were any EI got rejected?
1568:
1569: pa_debug.reset_err_stack;
1570:
1571: EXCEPTION
1572: WHEN OTHERS
1573: THEN
1570:
1571: EXCEPTION
1572: WHEN OTHERS
1573: THEN
1574: pa_debug.write_file('EXCEPTION:' || pa_debug.g_err_stage);
1575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1576: x_error_code := TO_CHAR(SQLCODE) || SQLERRM ;
1577: x_error_stage := l_stage ;
1578: RAISE;
1591: l_stage NUMBER ;
1592:
1593: BEGIN
1594:
1595: pa_debug.init_err_stack('pa_bc_costing.populate_pa_bc_packets');
1596:
1597: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1598: l_debug_mode := NVL(l_debug_mode, 'Y');
1599:
1593: BEGIN
1594:
1595: pa_debug.init_err_stack('pa_bc_costing.populate_pa_bc_packets');
1596:
1597: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1598: l_debug_mode := NVL(l_debug_mode, 'Y');
1599:
1600: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1601:
1596:
1597: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1598: l_debug_mode := NVL(l_debug_mode, 'Y');
1599:
1600: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1601:
1602: l_stage := 100;
1603: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From populate_pa_bc_packets';
1604: pa_debug.write_file(pa_debug.g_err_stage);
1599:
1600: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1601:
1602: l_stage := 100;
1603: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From populate_pa_bc_packets';
1604: pa_debug.write_file(pa_debug.g_err_stage);
1605:
1606: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Before Inserting Raw lines into pa_bc_packets.' ;
1607: pa_debug.write_file(pa_debug.g_err_stage);
1600: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1601:
1602: l_stage := 100;
1603: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From populate_pa_bc_packets';
1604: pa_debug.write_file(pa_debug.g_err_stage);
1605:
1606: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Before Inserting Raw lines into pa_bc_packets.' ;
1607: pa_debug.write_file(pa_debug.g_err_stage);
1608:
1602: l_stage := 100;
1603: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From populate_pa_bc_packets';
1604: pa_debug.write_file(pa_debug.g_err_stage);
1605:
1606: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Before Inserting Raw lines into pa_bc_packets.' ;
1607: pa_debug.write_file(pa_debug.g_err_stage);
1608:
1609: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while Bulk inserting into pa_bc_packets.' ;
1610:
1603: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From populate_pa_bc_packets';
1604: pa_debug.write_file(pa_debug.g_err_stage);
1605:
1606: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Before Inserting Raw lines into pa_bc_packets.' ;
1607: pa_debug.write_file(pa_debug.g_err_stage);
1608:
1609: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while Bulk inserting into pa_bc_packets.' ;
1610:
1611: /*
1605:
1606: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Before Inserting Raw lines into pa_bc_packets.' ;
1607: pa_debug.write_file(pa_debug.g_err_stage);
1608:
1609: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while Bulk inserting into pa_bc_packets.' ;
1610:
1611: /*
1612: * Insert Raw lines.
1613: *
1707: ;
1708:
1709: l_records_affected := SQL%ROWCOUNT;
1710:
1711: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After Inserting Raw lines into pa_bc_packets.' ;
1712: pa_debug.write_file(pa_debug.g_err_stage);
1713:
1714: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserted [' || TO_CHAR(l_records_affected) ||
1715: '] Raw lines into pa_bc_packets.';
1708:
1709: l_records_affected := SQL%ROWCOUNT;
1710:
1711: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After Inserting Raw lines into pa_bc_packets.' ;
1712: pa_debug.write_file(pa_debug.g_err_stage);
1713:
1714: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserted [' || TO_CHAR(l_records_affected) ||
1715: '] Raw lines into pa_bc_packets.';
1716: pa_debug.write_file(pa_debug.g_err_stage);
1710:
1711: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After Inserting Raw lines into pa_bc_packets.' ;
1712: pa_debug.write_file(pa_debug.g_err_stage);
1713:
1714: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserted [' || TO_CHAR(l_records_affected) ||
1715: '] Raw lines into pa_bc_packets.';
1716: pa_debug.write_file(pa_debug.g_err_stage);
1717:
1718: /*
1712: pa_debug.write_file(pa_debug.g_err_stage);
1713:
1714: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserted [' || TO_CHAR(l_records_affected) ||
1715: '] Raw lines into pa_bc_packets.';
1716: pa_debug.write_file(pa_debug.g_err_stage);
1717:
1718: /*
1719: * Insert Burden lines - if the project is burdened.
1720: * For burden_amt_display_method = 'S', Burdened amount is stored in the raw
1742: *
1743: * burden_cost_flag is populated 'O' for Burden lines.
1744: */
1745:
1746: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserting Burden lines into pa_bc_packets (display_method = S).' ;
1747: pa_debug.write_file(pa_debug.g_err_stage);
1748:
1749: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while inserting into pa_bc_packets' ;
1750:
1743: * burden_cost_flag is populated 'O' for Burden lines.
1744: */
1745:
1746: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserting Burden lines into pa_bc_packets (display_method = S).' ;
1747: pa_debug.write_file(pa_debug.g_err_stage);
1748:
1749: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while inserting into pa_bc_packets' ;
1750:
1751: l_stage := 300;
1745:
1746: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserting Burden lines into pa_bc_packets (display_method = S).' ;
1747: pa_debug.write_file(pa_debug.g_err_stage);
1748:
1749: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while inserting into pa_bc_packets' ;
1750:
1751: l_stage := 300;
1752: FORALL i IN l_expenditure_item_id_tab.FIRST .. l_expenditure_item_id_tab.LAST
1753: INSERT
1842: ;
1843:
1844: l_records_affected := TO_CHAR(SQL%ROWCOUNT) ;
1845:
1846: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After Inserting Burden lines into pa_bc_packets (display_method = S).' ;
1847: pa_debug.write_file(pa_debug.g_err_stage);
1848:
1849: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserted [' || TO_CHAR(l_records_affected) ||
1850: '] Burden lines into pa_bc_packets';
1843:
1844: l_records_affected := TO_CHAR(SQL%ROWCOUNT) ;
1845:
1846: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After Inserting Burden lines into pa_bc_packets (display_method = S).' ;
1847: pa_debug.write_file(pa_debug.g_err_stage);
1848:
1849: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserted [' || TO_CHAR(l_records_affected) ||
1850: '] Burden lines into pa_bc_packets';
1851: pa_debug.write_file(pa_debug.g_err_stage);
1845:
1846: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After Inserting Burden lines into pa_bc_packets (display_method = S).' ;
1847: pa_debug.write_file(pa_debug.g_err_stage);
1848:
1849: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserted [' || TO_CHAR(l_records_affected) ||
1850: '] Burden lines into pa_bc_packets';
1851: pa_debug.write_file(pa_debug.g_err_stage);
1852:
1853: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserting Burden lines into pa_bc_packets (disp_method = D).' ;
1847: pa_debug.write_file(pa_debug.g_err_stage);
1848:
1849: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserted [' || TO_CHAR(l_records_affected) ||
1850: '] Burden lines into pa_bc_packets';
1851: pa_debug.write_file(pa_debug.g_err_stage);
1852:
1853: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserting Burden lines into pa_bc_packets (disp_method = D).' ;
1854: pa_debug.write_file(pa_debug.g_err_stage);
1855:
1849: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserted [' || TO_CHAR(l_records_affected) ||
1850: '] Burden lines into pa_bc_packets';
1851: pa_debug.write_file(pa_debug.g_err_stage);
1852:
1853: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserting Burden lines into pa_bc_packets (disp_method = D).' ;
1854: pa_debug.write_file(pa_debug.g_err_stage);
1855:
1856: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while inserting Burden lines into bc_pk dis_meth = D' ;
1857: /*
1850: '] Burden lines into pa_bc_packets';
1851: pa_debug.write_file(pa_debug.g_err_stage);
1852:
1853: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserting Burden lines into pa_bc_packets (disp_method = D).' ;
1854: pa_debug.write_file(pa_debug.g_err_stage);
1855:
1856: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while inserting Burden lines into bc_pk dis_meth = D' ;
1857: /*
1858: * For burden_amt_display_method = D, Burdened amount has to be derived.
1852:
1853: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserting Burden lines into pa_bc_packets (disp_method = D).' ;
1854: pa_debug.write_file(pa_debug.g_err_stage);
1855:
1856: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while inserting Burden lines into bc_pk dis_meth = D' ;
1857: /*
1858: * For burden_amt_display_method = D, Burdened amount has to be derived.
1859: * The bc_packet_id in pa_bc_packets for the *R* line for this EI is populated as
1860: * parent_bc_packet_id in the burden line in pa_bc_packets.
1976: ;
1977:
1978: l_records_affected := SQL%ROWCOUNT ;
1979:
1980: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserted [' || TO_CHAR(l_records_affected) || '] Burden lines into pa_bc_packets';
1981: pa_debug.write_file(pa_debug.g_err_stage);
1982:
1983: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After Inserting Burden lines into pa_bc_packets (disp_method = D).' ;
1984: pa_debug.write_file(pa_debug.g_err_stage);
1977:
1978: l_records_affected := SQL%ROWCOUNT ;
1979:
1980: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserted [' || TO_CHAR(l_records_affected) || '] Burden lines into pa_bc_packets';
1981: pa_debug.write_file(pa_debug.g_err_stage);
1982:
1983: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After Inserting Burden lines into pa_bc_packets (disp_method = D).' ;
1984: pa_debug.write_file(pa_debug.g_err_stage);
1985:
1979:
1980: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserted [' || TO_CHAR(l_records_affected) || '] Burden lines into pa_bc_packets';
1981: pa_debug.write_file(pa_debug.g_err_stage);
1982:
1983: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After Inserting Burden lines into pa_bc_packets (disp_method = D).' ;
1984: pa_debug.write_file(pa_debug.g_err_stage);
1985:
1986: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Committing work!!' ;
1987: pa_debug.write_file(pa_debug.g_err_stage);
1980: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Inserted [' || TO_CHAR(l_records_affected) || '] Burden lines into pa_bc_packets';
1981: pa_debug.write_file(pa_debug.g_err_stage);
1982:
1983: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After Inserting Burden lines into pa_bc_packets (disp_method = D).' ;
1984: pa_debug.write_file(pa_debug.g_err_stage);
1985:
1986: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Committing work!!' ;
1987: pa_debug.write_file(pa_debug.g_err_stage);
1988:
1982:
1983: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After Inserting Burden lines into pa_bc_packets (disp_method = D).' ;
1984: pa_debug.write_file(pa_debug.g_err_stage);
1985:
1986: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Committing work!!' ;
1987: pa_debug.write_file(pa_debug.g_err_stage);
1988:
1989: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Leaving populate_pa_bc_packets.' ;
1990: pa_debug.write_file(pa_debug.g_err_stage);
1983: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After Inserting Burden lines into pa_bc_packets (disp_method = D).' ;
1984: pa_debug.write_file(pa_debug.g_err_stage);
1985:
1986: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Committing work!!' ;
1987: pa_debug.write_file(pa_debug.g_err_stage);
1988:
1989: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Leaving populate_pa_bc_packets.' ;
1990: pa_debug.write_file(pa_debug.g_err_stage);
1991:
1985:
1986: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Committing work!!' ;
1987: pa_debug.write_file(pa_debug.g_err_stage);
1988:
1989: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Leaving populate_pa_bc_packets.' ;
1990: pa_debug.write_file(pa_debug.g_err_stage);
1991:
1992: l_stage := 500;
1993: COMMIT;
1986: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Committing work!!' ;
1987: pa_debug.write_file(pa_debug.g_err_stage);
1988:
1989: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Leaving populate_pa_bc_packets.' ;
1990: pa_debug.write_file(pa_debug.g_err_stage);
1991:
1992: l_stage := 500;
1993: COMMIT;
1994: pa_debug.reset_err_stack;
1990: pa_debug.write_file(pa_debug.g_err_stage);
1991:
1992: l_stage := 500;
1993: COMMIT;
1994: pa_debug.reset_err_stack;
1995: EXCEPTION
1996: WHEN OTHERS
1997: THEN
1998: pa_debug.write_file(pa_debug.g_err_stage);
1994: pa_debug.reset_err_stack;
1995: EXCEPTION
1996: WHEN OTHERS
1997: THEN
1998: pa_debug.write_file(pa_debug.g_err_stage);
1999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2000: x_error_code := TO_CHAR(SQLCODE) || SQLERRM ;
2001: x_error_stage := l_stage ;
2002: RAISE;
2093: * and accordingly upate the dist_rejection_code.
2094: * finally delete 'D' and 'C' lines which have ei.dist_rejection_code
2095: * as not null.
2096: */
2097: pa_debug.init_err_stack('pa_bc_costing.validate_debit_lines');
2098:
2099: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2100: l_debug_mode := NVL(l_debug_mode, 'N');
2101:
2095: * as not null.
2096: */
2097: pa_debug.init_err_stack('pa_bc_costing.validate_debit_lines');
2098:
2099: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2100: l_debug_mode := NVL(l_debug_mode, 'N');
2101:
2102: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2103:
2098:
2099: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2100: l_debug_mode := NVL(l_debug_mode, 'N');
2101:
2102: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2103:
2104: l_stage := 100;
2105: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From validate_debit_lines';
2106: IF P_DEBUG_MODE = 'Y' THEN
2101:
2102: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2103:
2104: l_stage := 100;
2105: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From validate_debit_lines';
2106: IF P_DEBUG_MODE = 'Y' THEN
2107: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2108: END IF;
2109:
2103:
2104: l_stage := 100;
2105: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From validate_debit_lines';
2106: IF P_DEBUG_MODE = 'Y' THEN
2107: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2108: END IF;
2109:
2110: g_request_id := p_request_id;
2111: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Request_id is [' || TO_CHAR(g_request_id) || ']';
2107: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2108: END IF;
2109:
2110: g_request_id := p_request_id;
2111: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Request_id is [' || TO_CHAR(g_request_id) || ']';
2112: IF P_DEBUG_MODE = 'Y' THEN
2113: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2114: END IF;
2115:
2109:
2110: g_request_id := p_request_id;
2111: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Request_id is [' || TO_CHAR(g_request_id) || ']';
2112: IF P_DEBUG_MODE = 'Y' THEN
2113: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2114: END IF;
2115:
2116: FOR c1_rec IN c1
2117: LOOP
2114: END IF;
2115:
2116: FOR c1_rec IN c1
2117: LOOP
2118: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Processing cdl [' || c1_rec.expenditure_item_id ||
2119: '] line_num [' || c1_rec.line_num ||
2120: '] bccid [' || c1_rec.budget_ccid ||
2121: ']' ;
2122: IF P_DEBUG_MODE = 'Y' THEN
2119: '] line_num [' || c1_rec.line_num ||
2120: '] bccid [' || c1_rec.budget_ccid ||
2121: ']' ;
2122: IF P_DEBUG_MODE = 'Y' THEN
2123: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2124: END IF;
2125:
2126: l_stage := 1000;
2127: l_counter := l_counter + 1;
2134: IF (l_cost_dist_rejection_code_tab(l_counter) IS NULL)
2135: THEN
2136: IF (c1_rec.budget_ccid IS NOT NULL)
2137: THEN
2138: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Comparing dccid [' || TO_CHAR(c2_rec.dr_code_combination_id) ||
2139: '] and bccid [' || TO_CHAR(c1_rec.budget_ccid) || ']';
2140: IF P_DEBUG_MODE = 'Y' THEN
2141: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2142: END IF;
2137: THEN
2138: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Comparing dccid [' || TO_CHAR(c2_rec.dr_code_combination_id) ||
2139: '] and bccid [' || TO_CHAR(c1_rec.budget_ccid) || ']';
2140: IF P_DEBUG_MODE = 'Y' THEN
2141: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2142: END IF;
2143:
2144: --R12 - commented the budget ccid validation and moved the cost dist rejection code assignment to NULL here
2145: l_cost_dist_rejection_code_tab(l_counter) := NULL;
2146:
2147: /* R12
2148: IF (c2_rec.dr_code_combination_id <> c1_rec.budget_ccid)
2149: THEN
2150: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Decided to reject the EI.';
2151: IF P_DEBUG_MODE = 'Y' THEN
2152: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2153: END IF;
2154: l_cost_dist_rejection_code_tab(l_counter) := 'F107';
2148: IF (c2_rec.dr_code_combination_id <> c1_rec.budget_ccid)
2149: THEN
2150: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Decided to reject the EI.';
2151: IF P_DEBUG_MODE = 'Y' THEN
2152: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2153: END IF;
2154: l_cost_dist_rejection_code_tab(l_counter) := 'F107';
2155: ELSE
2156: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':EI validation passed.';
2152: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2153: END IF;
2154: l_cost_dist_rejection_code_tab(l_counter) := 'F107';
2155: ELSE
2156: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':EI validation passed.';
2157: IF P_DEBUG_MODE = 'Y' THEN
2158: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2159: END IF;
2160: l_cost_dist_rejection_code_tab(l_counter) := NULL;
2154: l_cost_dist_rejection_code_tab(l_counter) := 'F107';
2155: ELSE
2156: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':EI validation passed.';
2157: IF P_DEBUG_MODE = 'Y' THEN
2158: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2159: END IF;
2160: l_cost_dist_rejection_code_tab(l_counter) := NULL;
2161: END IF;
2162: */
2161: END IF;
2162: */
2163:
2164: ELSE
2165: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':B_ccid in the raw line is null';
2166: IF P_DEBUG_MODE = 'Y' THEN
2167: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2168: END IF;
2169: l_cost_dist_rejection_code_tab(l_counter) := 'F165';
2163:
2164: ELSE
2165: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':B_ccid in the raw line is null';
2166: IF P_DEBUG_MODE = 'Y' THEN
2167: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2168: END IF;
2169: l_cost_dist_rejection_code_tab(l_counter) := 'F165';
2170: END IF;
2171: END IF;
2172: END LOOP; -- c2_rec
2173: END LOOP; -- c1_rec
2174:
2175: l_records_processed := l_counter;
2176: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':No. of EIs validated [' || TO_CHAR(l_records_processed) || ']';
2177: IF P_DEBUG_MODE = 'Y' THEN
2178: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2179: END IF;
2180:
2174:
2175: l_records_processed := l_counter;
2176: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':No. of EIs validated [' || TO_CHAR(l_records_processed) || ']';
2177: IF P_DEBUG_MODE = 'Y' THEN
2178: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2179: END IF;
2180:
2181: IF (l_expenditure_item_id_tab.COUNT > 0)
2182: THEN
2181: IF (l_expenditure_item_id_tab.COUNT > 0)
2182: THEN
2183: FOR i IN 1 .. l_expenditure_item_id_tab.LAST
2184: LOOP
2185: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Eiid [' ||
2186: TO_CHAR(l_expenditure_item_id_tab(i)) ||
2187: '] rej_code [' || l_cost_dist_rejection_code_tab(i) || ']';
2188: IF P_DEBUG_MODE = 'Y' THEN
2189: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2185: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Eiid [' ||
2186: TO_CHAR(l_expenditure_item_id_tab(i)) ||
2187: '] rej_code [' || l_cost_dist_rejection_code_tab(i) || ']';
2188: IF P_DEBUG_MODE = 'Y' THEN
2189: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2190: END IF;
2191: END LOOP;
2192: END IF;
2193:
2192: END IF;
2193:
2194: IF (l_expenditure_item_id_tab.COUNT > 0)
2195: THEN
2196: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Updating cost_dist_rejection_code in EIs.';
2197: IF P_DEBUG_MODE = 'Y' THEN
2198: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2199: END IF;
2200: /*
2194: IF (l_expenditure_item_id_tab.COUNT > 0)
2195: THEN
2196: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Updating cost_dist_rejection_code in EIs.';
2197: IF P_DEBUG_MODE = 'Y' THEN
2198: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2199: END IF;
2200: /*
2201: * Update cost_dist_rejection_code.
2202: */
2208: AND ei.ind_cost_dist_rejection_code IS NULL
2209: ;
2210:
2211: l_stage := 1000;
2212: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':No. of EIs updated with cost_dist_rejection_code [' ||
2213: TO_CHAR(SQL%ROWCOUNT) || ']' ;
2214: IF P_DEBUG_MODE = 'Y' THEN
2215: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2216: END IF;
2211: l_stage := 1000;
2212: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':No. of EIs updated with cost_dist_rejection_code [' ||
2213: TO_CHAR(SQL%ROWCOUNT) || ']' ;
2214: IF P_DEBUG_MODE = 'Y' THEN
2215: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2216: END IF;
2217:
2218: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Deleting C and D lines for rejected EIs.';
2219: IF P_DEBUG_MODE = 'Y' THEN
2214: IF P_DEBUG_MODE = 'Y' THEN
2215: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2216: END IF;
2217:
2218: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Deleting C and D lines for rejected EIs.';
2219: IF P_DEBUG_MODE = 'Y' THEN
2220: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2221: END IF;
2222:
2216: END IF;
2217:
2218: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Deleting C and D lines for rejected EIs.';
2219: IF P_DEBUG_MODE = 'Y' THEN
2220: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2221: END IF;
2222:
2223: /*
2224: * Delete errored CDLs.
2233: ;
2234:
2235: l_stage := 1100;
2236: l_cdls_deleted := SQL%ROWCOUNT;
2237: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':No. of CDLs deleted should be an even number.';
2238: IF P_DEBUG_MODE = 'Y' THEN
2239: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2240: END IF;
2241:
2235: l_stage := 1100;
2236: l_cdls_deleted := SQL%ROWCOUNT;
2237: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':No. of CDLs deleted should be an even number.';
2238: IF P_DEBUG_MODE = 'Y' THEN
2239: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2240: END IF;
2241:
2242: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':No. of CDLs deleted [' || TO_CHAR(l_cdls_deleted) || ']' ;
2243: IF P_DEBUG_MODE = 'Y' THEN
2238: IF P_DEBUG_MODE = 'Y' THEN
2239: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2240: END IF;
2241:
2242: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':No. of CDLs deleted [' || TO_CHAR(l_cdls_deleted) || ']' ;
2243: IF P_DEBUG_MODE = 'Y' THEN
2244: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2245: END IF;
2246: END IF; -- anything got mapped??
2240: END IF;
2241:
2242: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':No. of CDLs deleted [' || TO_CHAR(l_cdls_deleted) || ']' ;
2243: IF P_DEBUG_MODE = 'Y' THEN
2244: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2245: END IF;
2246: END IF; -- anything got mapped??
2247:
2248: x_return_status := 0;
2245: END IF;
2246: END IF; -- anything got mapped??
2247:
2248: x_return_status := 0;
2249: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Leaving validate_debit_lines.';
2250: IF P_DEBUG_MODE = 'Y' THEN
2251: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2252: END IF;
2253:
2247:
2248: x_return_status := 0;
2249: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Leaving validate_debit_lines.';
2250: IF P_DEBUG_MODE = 'Y' THEN
2251: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2252: END IF;
2253:
2254: pa_debug.reset_err_stack;
2255:
2250: IF P_DEBUG_MODE = 'Y' THEN
2251: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2252: END IF;
2253:
2254: pa_debug.reset_err_stack;
2255:
2256: EXCEPTION
2257: WHEN OTHERS
2258: THEN
2256: EXCEPTION
2257: WHEN OTHERS
2258: THEN
2259: IF P_DEBUG_MODE = 'Y' THEN
2260: pa_debug.write_file('validate_debit_lines: ' || pa_debug.g_err_stage);
2261: END IF;
2262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2263: x_error_code := TO_CHAR(SQLCODE) || SQLERRM ;
2264: x_error_stage := l_stage ;
2377: ;
2378:
2379:
2380: BEGIN
2381: pa_debug.init_err_stack('pa_bc_costing.costing_fc_proc_cwk');
2382:
2383: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2384: l_debug_mode := NVL(l_debug_mode, 'Y');
2385:
2379:
2380: BEGIN
2381: pa_debug.init_err_stack('pa_bc_costing.costing_fc_proc_cwk');
2382:
2383: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2384: l_debug_mode := NVL(l_debug_mode, 'Y');
2385:
2386: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2387:
2382:
2383: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2384: l_debug_mode := NVL(l_debug_mode, 'Y');
2385:
2386: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2387:
2388: l_stage := 100;
2389: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': From costing_fc_proc_cwk R112';
2390: IF P_DEBUG_MODE = 'Y' THEN
2385:
2386: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2387:
2388: l_stage := 100;
2389: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': From costing_fc_proc_cwk R112';
2390: IF P_DEBUG_MODE = 'Y' THEN
2391: pa_debug.write_file(l_proc_name || ': ' || pa_debug.g_err_stage);
2392: END IF;
2393:
2387:
2388: l_stage := 100;
2389: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': From costing_fc_proc_cwk R112';
2390: IF P_DEBUG_MODE = 'Y' THEN
2391: pa_debug.write_file(l_proc_name || ': ' || pa_debug.g_err_stage);
2392: END IF;
2393:
2394: /*
2395: * Copy incoming parameters into Local variables.
2396: */
2397: l_calling_module := p_calling_module ;
2398: g_request_id := p_request_id ;
2399:
2400: pa_debug.g_err_stage := to_char(l_stage) || ': Request Id is [' || to_char(g_request_id) || ']' ;
2401: IF P_DEBUG_MODE = 'Y' THEN
2402: pa_debug.write_file(l_proc_name || ': ' || pa_debug.g_err_stage);
2403: END IF;
2404:
2398: g_request_id := p_request_id ;
2399:
2400: pa_debug.g_err_stage := to_char(l_stage) || ': Request Id is [' || to_char(g_request_id) || ']' ;
2401: IF P_DEBUG_MODE = 'Y' THEN
2402: pa_debug.write_file(l_proc_name || ': ' || pa_debug.g_err_stage);
2403: END IF;
2404:
2405: /*
2406: * Get the sob_id.
2404:
2405: /*
2406: * Get the sob_id.
2407: */
2408: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error occurred while selecting pa_implementations';
2409: SELECT set_of_books_id
2410: INTO g_sob_id
2411: FROM pa_implementations;
2412:
2409: SELECT set_of_books_id
2410: INTO g_sob_id
2411: FROM pa_implementations;
2412:
2413: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Sob_id is [' || TO_CHAR(g_sob_id) || ']' ;
2414: IF P_DEBUG_MODE = 'Y' THEN
2415: pa_debug.write_file(l_proc_name|| ': ' || pa_debug.g_err_stage);
2416: END IF;
2417:
2411: FROM pa_implementations;
2412:
2413: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Sob_id is [' || TO_CHAR(g_sob_id) || ']' ;
2414: IF P_DEBUG_MODE = 'Y' THEN
2415: pa_debug.write_file(l_proc_name|| ': ' || pa_debug.g_err_stage);
2416: END IF;
2417:
2418: /*
2419: * Select Expenditure_item_ids to process.
2421: * We should get rid of this sql - because the columns selected here
2422: * can be received from the pro*C process as arrays.
2423: */
2424: l_stage := 200;
2425: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': ORACLE error occurred Opening pa_bc_packet_cwk_cur.';
2426: OPEN pa_bc_packet_cwk_cur;
2427: /*
2428: * Resetting fetch-related variables.
2429: */
2434: * Loop until all EIs are processed.
2435: */
2436: LOOP
2437:
2438: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ': Fetching a Set of CDLs to Process.';
2439: IF P_DEBUG_MODE = 'Y' THEN
2440: PA_DEBUG.write_file(l_proc_name || ': ' || PA_DEBUG.g_err_stage);
2441: END IF;
2442:
2436: LOOP
2437:
2438: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ': Fetching a Set of CDLs to Process.';
2439: IF P_DEBUG_MODE = 'Y' THEN
2440: PA_DEBUG.write_file(l_proc_name || ': ' || PA_DEBUG.g_err_stage);
2441: END IF;
2442:
2443: l_stage := 300;
2444: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': ORACLE error occurred Fetching pa_bc_packet_cwk_cur.';
2440: PA_DEBUG.write_file(l_proc_name || ': ' || PA_DEBUG.g_err_stage);
2441: END IF;
2442:
2443: l_stage := 300;
2444: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': ORACLE error occurred Fetching pa_bc_packet_cwk_cur.';
2445: FETCH pa_bc_packet_cwk_cur
2446: BULK COLLECT
2447: INTO l_expenditure_item_id_tab
2448: ,l_line_num_tab
2483: l_this_fetch := pa_bc_packet_cwk_cur%ROWCOUNT - l_totally_fetched;
2484: l_totally_fetched := pa_bc_packet_cwk_cur%ROWCOUNT;
2485: l_totally_processed := l_totally_processed + l_this_fetch;
2486:
2487: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ': Fetched [' || l_this_fetch || '] CDLs to process.';
2488: IF P_DEBUG_MODE = 'Y' THEN
2489: PA_DEBUG.write_file(l_proc_name || ': ' || PA_DEBUG.g_err_stage);
2490: END IF;
2491:
2485: l_totally_processed := l_totally_processed + l_this_fetch;
2486:
2487: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ': Fetched [' || l_this_fetch || '] CDLs to process.';
2488: IF P_DEBUG_MODE = 'Y' THEN
2489: PA_DEBUG.write_file(l_proc_name || ': ' || PA_DEBUG.g_err_stage);
2490: END IF;
2491:
2492: IF (l_this_fetch = 0) THEN
2493: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ': No more CDLs to process. Exiting';
2489: PA_DEBUG.write_file(l_proc_name || ': ' || PA_DEBUG.g_err_stage);
2490: END IF;
2491:
2492: IF (l_this_fetch = 0) THEN
2493: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ': No more CDLs to process. Exiting';
2494: IF P_DEBUG_MODE = 'Y' THEN
2495: PA_DEBUG.write_file(l_proc_name || ': ' || PA_DEBUG.g_err_stage);
2496: END IF;
2497: x_return_status := 0;
2491:
2492: IF (l_this_fetch = 0) THEN
2493: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ': No more CDLs to process. Exiting';
2494: IF P_DEBUG_MODE = 'Y' THEN
2495: PA_DEBUG.write_file(l_proc_name || ': ' || PA_DEBUG.g_err_stage);
2496: END IF;
2497: x_return_status := 0;
2498: x_error_code := FND_API.G_RET_STS_SUCCESS;
2499: x_error_stage := l_stage;
2519: | Burdening Enhancements |
2520: | o Funds Check both R and I lines. |
2521: | o Transfer Status Code P for R lines and G for I lines. |
2522: +=========================================================*/
2523: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ': Fresh line Missing. Selecting Fresh line.';
2524: IF P_DEBUG_MODE = 'Y' THEN
2525: PA_DEBUG.write_file(l_proc_name || ': ' || PA_DEBUG.g_err_stage);
2526: END IF;
2527:
2521: | o Transfer Status Code P for R lines and G for I lines. |
2522: +=========================================================*/
2523: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ': Fresh line Missing. Selecting Fresh line.';
2524: IF P_DEBUG_MODE = 'Y' THEN
2525: PA_DEBUG.write_file(l_proc_name || ': ' || PA_DEBUG.g_err_stage);
2526: END IF;
2527:
2528: l_stage := 400;
2529: SELECT cdl.expenditure_item_id
2622: l_ei_to_process_from := l_expenditure_item_id_tab(l_this_fetch);
2623:
2624: IF (l_debug_mode = 'Y')
2625: THEN
2626: pa_debug.g_err_stage := ' l_ei_to_process_from is [' || to_char(l_ei_to_process_from) || ']';
2627: pa_debug.write_file(l_proc_name || ': ' || pa_debug.g_err_stage);
2628: END IF;
2629:
2630: IF (l_debug_mode = 'Y')
2623:
2624: IF (l_debug_mode = 'Y')
2625: THEN
2626: pa_debug.g_err_stage := ' l_ei_to_process_from is [' || to_char(l_ei_to_process_from) || ']';
2627: pa_debug.write_file(l_proc_name || ': ' || pa_debug.g_err_stage);
2628: END IF;
2629:
2630: IF (l_debug_mode = 'Y')
2631: THEN
2628: END IF;
2629:
2630: IF (l_debug_mode = 'Y')
2631: THEN
2632: pa_debug.g_err_stage := 'Fresh cdl [' || l_expenditure_item_id_tab(l_this_fetch+1) ||
2633: '] line_num [' || l_line_num_tab(l_this_fetch+1) ||
2634: '] line_type [' || l_line_type_tab(l_this_fetch+1) ||
2635: '] line_num_reversed [' || l_line_num_reversed_tab(l_this_fetch+1) ||
2636: '] p_id [' || l_project_id_tab(l_this_fetch+1) ||
2643: '] bssrid [' || l_burden_sum_source_run_id_tab(l_this_fetch+1) ||
2644: '] comp_set_id [' || l_ind_compiled_set_id_tab(l_this_fetch+1) ||
2645: ']';
2646: IF P_DEBUG_MODE = 'Y' THEN
2647: pa_debug.write_file(l_proc_name || ': ' || pa_debug.g_err_stage);
2648: END IF;
2649: pa_debug.g_err_stage := 'dr_ccid [' || l_dr_code_combination_id_tab(l_this_fetch+1) ||
2650: '] gl_p_name [' || l_gl_period_name_tab(l_this_fetch+1) ||
2651: '] etype [' || l_expenditure_type_tab(l_this_fetch+1) ||
2645: ']';
2646: IF P_DEBUG_MODE = 'Y' THEN
2647: pa_debug.write_file(l_proc_name || ': ' || pa_debug.g_err_stage);
2648: END IF;
2649: pa_debug.g_err_stage := 'dr_ccid [' || l_dr_code_combination_id_tab(l_this_fetch+1) ||
2650: '] gl_p_name [' || l_gl_period_name_tab(l_this_fetch+1) ||
2651: '] etype [' || l_expenditure_type_tab(l_this_fetch+1) ||
2652: '] task_id [' || l_task_id_tab(l_this_fetch+1) ||
2653: '] po_line_id [' || l_document_line_id_tab(l_this_fetch+1) ||
2657: '] b_version_id [' || l_budget_version_id_tab(l_this_fetch+1) ||
2658: '] burdened [' || l_burden_cost_flag_tab(l_this_fetch+1) ||
2659: ']';
2660: IF P_DEBUG_MODE = 'Y' THEN
2661: pa_debug.write_file(l_proc_name || ': ' || pa_debug.g_err_stage);
2662: END IF;
2663: END IF; -- debug mode?
2664:
2665:
2671: IF (l_debug_mode = 'Y')
2672: THEN
2673: FOR i IN l_expenditure_item_id_tab.FIRST .. l_expenditure_item_id_tab.LAST
2674: LOOP
2675: pa_debug.g_err_stage := 'eiid [' || l_expenditure_item_id_tab(i) ||
2676: '] line_num [' || l_line_num_tab(i) ||
2677: '] line_type [' || l_line_type_tab(i) ||
2678: '] line_num_reversed [' || l_line_num_reversed_tab(i) ||
2679: '] p_id [' || l_project_id_tab(i) ||
2698: '] header_id [' || l_document_header_id_tab(i) ||
2699: '] line_id [' || l_document_line_id_tab(i) ||
2700: ']';
2701: IF P_DEBUG_MODE = 'Y' THEN
2702: pa_debug.write_file(l_proc_name || ': ' || pa_debug.g_err_stage);
2703: END IF;
2704:
2705: END LOOP;
2706: END IF; -- debug mode?
2707:
2708: /*
2709: * Get the Packet_id
2710: */
2711: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ':Getting the packet_id.';
2712: IF P_DEBUG_MODE = 'Y' THEN
2713: pa_debug.write_file(l_proc_name || ': ' || pa_debug.g_err_stage);
2714: END IF;
2715:
2709: * Get the Packet_id
2710: */
2711: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ':Getting the packet_id.';
2712: IF P_DEBUG_MODE = 'Y' THEN
2713: pa_debug.write_file(l_proc_name || ': ' || pa_debug.g_err_stage);
2714: END IF;
2715:
2716: l_stage := 500;
2717: SELECT gl_bc_packets_s.NEXTVAL
2717: SELECT gl_bc_packets_s.NEXTVAL
2718: INTO g_packet_id
2719: FROM dual;
2720:
2721: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Packet_id is [' || TO_CHAR(g_packet_id) || ']' ;
2722: IF P_DEBUG_MODE = 'Y' THEN
2723: pa_debug.write_file(l_proc_name || ': ' || pa_debug.g_err_stage);
2724: END IF;
2725:
2719: FROM dual;
2720:
2721: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Packet_id is [' || TO_CHAR(g_packet_id) || ']' ;
2722: IF P_DEBUG_MODE = 'Y' THEN
2723: pa_debug.write_file(l_proc_name || ': ' || pa_debug.g_err_stage);
2724: END IF;
2725:
2726: /*==========================================================================+
2727: | Call Autonomous Procedure to insert the pl/sql tables into pa_bc_packets.|
2725:
2726: /*==========================================================================+
2727: | Call Autonomous Procedure to insert the pl/sql tables into pa_bc_packets.|
2728: +==========================================================================*/
2729: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Before Calling populate_pa_bc_packets.';
2730: IF P_DEBUG_MODE = 'Y' THEN
2731: pa_debug.write_file(l_proc_name || ': ' || pa_debug.g_err_stage);
2732: END IF;
2733:
2727: | Call Autonomous Procedure to insert the pl/sql tables into pa_bc_packets.|
2728: +==========================================================================*/
2729: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Before Calling populate_pa_bc_packets.';
2730: IF P_DEBUG_MODE = 'Y' THEN
2731: pa_debug.write_file(l_proc_name || ': ' || pa_debug.g_err_stage);
2732: END IF;
2733:
2734: l_stage := 600;
2735: populate_pa_bc_packets_cwk( l_return_status
2736: ,l_error_code
2737: ,l_error_stage
2738: );
2739:
2740: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': After calling populate_pa_bc_packets l_return_status = [' ||
2741: l_return_status || '] l_error_stage = [' || l_error_stage ||
2742: '] l_error_code = [' || l_error_code || ']' ;
2743: IF P_DEBUG_MODE = 'Y' THEN
2744: pa_debug.write_file(l_proc_name || ':' || pa_debug.g_err_stage);
2740: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': After calling populate_pa_bc_packets l_return_status = [' ||
2741: l_return_status || '] l_error_stage = [' || l_error_stage ||
2742: '] l_error_code = [' || l_error_code || ']' ;
2743: IF P_DEBUG_MODE = 'Y' THEN
2744: pa_debug.write_file(l_proc_name || ':' || pa_debug.g_err_stage);
2745: END IF;
2746:
2747: /*========================+
2748: | Exception Processing. |
2748: | Exception Processing. |
2749: +========================*/
2750: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
2751: THEN
2752: pa_debug.g_err_stage := 'Error occurred while call to populate_pa_bc_packets. x_return_status [' ||
2753: l_return_status || ']';
2754: IF P_DEBUG_MODE = 'Y' THEN
2755: pa_debug.write_file(l_proc_name || ':' || pa_debug.g_err_stage);
2756: END IF;
2751: THEN
2752: pa_debug.g_err_stage := 'Error occurred while call to populate_pa_bc_packets. x_return_status [' ||
2753: l_return_status || ']';
2754: IF P_DEBUG_MODE = 'Y' THEN
2755: pa_debug.write_file(l_proc_name || ':' || pa_debug.g_err_stage);
2756: END IF;
2757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2758: END IF;
2759:
2756: END IF;
2757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2758: END IF;
2759:
2760: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After Inserting Records into PA_BC_PACKETS.';
2761: IF P_DEBUG_MODE = 'Y' THEN
2762: pa_debug.write_file(l_proc_name || ':' || pa_debug.g_err_stage);
2763: END IF;
2764:
2758: END IF;
2759:
2760: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After Inserting Records into PA_BC_PACKETS.';
2761: IF P_DEBUG_MODE = 'Y' THEN
2762: pa_debug.write_file(l_proc_name || ':' || pa_debug.g_err_stage);
2763: END IF;
2764:
2765: /*=================================+
2766: | Reject EIs that have rejections |
2764:
2765: /*=================================+
2766: | Reject EIs that have rejections |
2767: +=================================*/
2768: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Rejecting EIs.' ;
2769: pa_debug.write_file(pa_debug.g_err_stage);
2770:
2771: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error while rejecting EIs.' ;
2772: FORALL i IN l_expenditure_item_id_tab.FIRST .. l_expenditure_item_id_tab.LAST
2765: /*=================================+
2766: | Reject EIs that have rejections |
2767: +=================================*/
2768: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Rejecting EIs.' ;
2769: pa_debug.write_file(pa_debug.g_err_stage);
2770:
2771: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error while rejecting EIs.' ;
2772: FORALL i IN l_expenditure_item_id_tab.FIRST .. l_expenditure_item_id_tab.LAST
2773: UPDATE pa_expenditure_items ei
2767: +=================================*/
2768: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Rejecting EIs.' ;
2769: pa_debug.write_file(pa_debug.g_err_stage);
2770:
2771: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':ORACLE error while rejecting EIs.' ;
2772: FORALL i IN l_expenditure_item_id_tab.FIRST .. l_expenditure_item_id_tab.LAST
2773: UPDATE pa_expenditure_items ei
2774: SET ei.cost_dist_rejection_code = l_rejn_code_tab(i)
2775: WHERE ei.expenditure_item_id = l_expenditure_item_id_tab(i)
2780: * this table is for CDLs and can have more than one record for the same EI.
2781: */
2782: l_records_affected := SQL%ROWCOUNT ;
2783:
2784: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Updated [' ||
2785: TO_CHAR(l_records_affected) ||
2786: '] records - this count is not right.';
2787: pa_debug.write_file(pa_debug.g_err_stage);
2788: /*===================+
2783:
2784: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Updated [' ||
2785: TO_CHAR(l_records_affected) ||
2786: '] records - this count is not right.';
2787: pa_debug.write_file(pa_debug.g_err_stage);
2788: /*===================+
2789: | Call FC API here. |
2790: +===================*/
2791: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Calling FC API';
2787: pa_debug.write_file(pa_debug.g_err_stage);
2788: /*===================+
2789: | Call FC API here. |
2790: +===================*/
2791: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Calling FC API';
2792: IF P_DEBUG_MODE = 'Y' THEN
2793: pa_debug.write_file(l_proc_name || ':' || pa_debug.g_err_stage);
2794: END IF;
2795:
2789: | Call FC API here. |
2790: +===================*/
2791: pa_debug.g_err_stage := TO_CHAR(l_stage) || ': Calling FC API';
2792: IF P_DEBUG_MODE = 'Y' THEN
2793: pa_debug.write_file(l_proc_name || ':' || pa_debug.g_err_stage);
2794: END IF;
2795:
2796: l_stage := 700;
2797: pa_debug.g_err_stage := 'Error Occurred during call to pa_funds_check.';
2793: pa_debug.write_file(l_proc_name || ':' || pa_debug.g_err_stage);
2794: END IF;
2795:
2796: l_stage := 700;
2797: pa_debug.g_err_stage := 'Error Occurred during call to pa_funds_check.';
2798: IF( NOT pa_funds_control_pkg.pa_funds_check( l_calling_module -- p_calling_module
2799: ,'Y' -- p_conc_flag
2800: ,g_sob_id -- p_set_of_book_id
2801: ,g_packet_id -- p_packet_id
2808: ,l_error_stage -- x_error_stage
2809: ,l_error_code -- x_error_msg
2810: ) )
2811: THEN
2812: pa_debug.g_err_stage := 'pa_funds_check returned FALSE.';
2813: IF P_DEBUG_MODE = 'Y' THEN
2814: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
2815: END IF;
2816:
2810: ) )
2811: THEN
2812: pa_debug.g_err_stage := 'pa_funds_check returned FALSE.';
2813: IF P_DEBUG_MODE = 'Y' THEN
2814: pa_debug.write_file('costing_fc_proc: ' || pa_debug.g_err_stage);
2815: END IF;
2816:
2817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2818: END IF;
2816:
2817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2818: END IF;
2819:
2820: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After calling FC API l_return_status =[' || l_return_status ||
2821: '] l_error_stage = [' || l_error_stage ||
2822: '] l_error_code = [' || l_error_code || ']' ;
2823: IF P_DEBUG_MODE = 'Y' THEN
2824: pa_debug.write_file(l_proc_name || ':' || pa_debug.g_err_stage);
2820: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After calling FC API l_return_status =[' || l_return_status ||
2821: '] l_error_stage = [' || l_error_stage ||
2822: '] l_error_code = [' || l_error_code || ']' ;
2823: IF P_DEBUG_MODE = 'Y' THEN
2824: pa_debug.write_file(l_proc_name || ':' || pa_debug.g_err_stage);
2825: END IF;
2826:
2827: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Calling process_rejected_exp_items' ;
2828: IF P_DEBUG_MODE = 'Y' THEN
2823: IF P_DEBUG_MODE = 'Y' THEN
2824: pa_debug.write_file(l_proc_name || ':' || pa_debug.g_err_stage);
2825: END IF;
2826:
2827: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Calling process_rejected_exp_items' ;
2828: IF P_DEBUG_MODE = 'Y' THEN
2829: pa_debug.write_file(l_proc_name || ':' || pa_debug.g_err_stage);
2830: END IF;
2831:
2825: END IF;
2826:
2827: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Calling process_rejected_exp_items' ;
2828: IF P_DEBUG_MODE = 'Y' THEN
2829: pa_debug.write_file(l_proc_name || ':' || pa_debug.g_err_stage);
2830: END IF;
2831:
2832: l_stage := 800;
2833: process_rejected_exp_items ( x_return_status => l_return_status
2836: );
2837:
2838: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
2839: THEN
2840: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Error while call to process_rejected_exp_items. x_return_status ['
2841: || l_return_status || ']';
2842: IF P_DEBUG_MODE = 'Y' THEN
2843: pa_debug.write_file(l_proc_name || ':' || pa_debug.g_err_stage);
2844: END IF;
2839: THEN
2840: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Error while call to process_rejected_exp_items. x_return_status ['
2841: || l_return_status || ']';
2842: IF P_DEBUG_MODE = 'Y' THEN
2843: pa_debug.write_file(l_proc_name || ':' || pa_debug.g_err_stage);
2844: END IF;
2845: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2846: END IF;
2847:
2844: END IF;
2845: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2846: END IF;
2847:
2848: pa_debug.g_err_stage := 'After calling process_rejected_exp_items l_return_status =[' ||
2849: l_return_status ||
2850: '] l_error_stage = [' || l_error_stage ||
2851: '] l_error_code = [' || l_error_code || ']' ;
2852: IF P_DEBUG_MODE = 'Y' THEN
2849: l_return_status ||
2850: '] l_error_stage = [' || l_error_stage ||
2851: '] l_error_code = [' || l_error_code || ']' ;
2852: IF P_DEBUG_MODE = 'Y' THEN
2853: pa_debug.write_file(l_proc_name || ': ' || TO_CHAR(l_stage) || ': ' || pa_debug.g_err_stage);
2854: END IF;
2855:
2856: /*
2857: * Calling FC ends here.
2859: IF (l_this_fetch < l_bunch_size) THEN
2860: /*
2861: * Indicates last fetch.
2862: */
2863: pa_debug.g_err_stage := 'Finished Processing Last Fetch.';
2864: IF P_DEBUG_MODE = 'Y' THEN
2865: pa_debug.write_file(l_proc_name || ': ' || TO_CHAR(l_stage) || ': ' || pa_debug.g_err_stage);
2866: END IF;
2867: EXIT;
2861: * Indicates last fetch.
2862: */
2863: pa_debug.g_err_stage := 'Finished Processing Last Fetch.';
2864: IF P_DEBUG_MODE = 'Y' THEN
2865: pa_debug.write_file(l_proc_name || ': ' || TO_CHAR(l_stage) || ': ' || pa_debug.g_err_stage);
2866: END IF;
2867: EXIT;
2868: END IF;
2869: /*========================+
2869: /*========================+
2870: | Deleting plsql tables. |
2871: +========================*/
2872:
2873: pa_debug.g_err_stage := 'Deleting Pl/Sql tables......';
2874: IF P_DEBUG_MODE = 'Y' THEN
2875: pa_debug.write_file(l_proc_name || ': ' || TO_CHAR(l_stage) || ': ' || pa_debug.g_err_stage);
2876: END IF;
2877:
2871: +========================*/
2872:
2873: pa_debug.g_err_stage := 'Deleting Pl/Sql tables......';
2874: IF P_DEBUG_MODE = 'Y' THEN
2875: pa_debug.write_file(l_proc_name || ': ' || TO_CHAR(l_stage) || ': ' || pa_debug.g_err_stage);
2876: END IF;
2877:
2878: l_stage := 900;
2879: l_expenditure_item_id_tab.DELETE;
2903: l_pkt_reference1_Tab.DELETE;
2904: l_pkt_reference2_Tab.DELETE;
2905: l_pkt_reference3_Tab.DELETE;
2906:
2907: pa_debug.g_err_stage := 'After Deleting Pl/Sql tables......';
2908: IF P_DEBUG_MODE = 'Y' THEN
2909: pa_debug.write_file(l_proc_name || ': ' || TO_CHAR(l_stage) || ': ' || pa_debug.g_err_stage);
2910: END IF;
2911:
2905: l_pkt_reference3_Tab.DELETE;
2906:
2907: pa_debug.g_err_stage := 'After Deleting Pl/Sql tables......';
2908: IF P_DEBUG_MODE = 'Y' THEN
2909: pa_debug.write_file(l_proc_name || ': ' || TO_CHAR(l_stage) || ': ' || pa_debug.g_err_stage);
2910: END IF;
2911:
2912: /*=================================================================+
2913: | If earlier fetch had a spill-over, close and reopen the cursor. |
2914: +=================================================================*/
2915:
2916: IF (l_ei_to_process_from > 0)
2917: THEN
2918: pa_debug.g_err_stage := TO_CHAR(l_stage) || 'closing cursor';
2919: IF P_DEBUG_MODE = 'Y' THEN
2920: pa_debug.write_file(l_proc_name || ': ' || TO_CHAR(l_stage) || ': ' || pa_debug.g_err_stage);
2921: END if;
2922: CLOSE pa_bc_packet_cwk_cur;
2916: IF (l_ei_to_process_from > 0)
2917: THEN
2918: pa_debug.g_err_stage := TO_CHAR(l_stage) || 'closing cursor';
2919: IF P_DEBUG_MODE = 'Y' THEN
2920: pa_debug.write_file(l_proc_name || ': ' || TO_CHAR(l_stage) || ': ' || pa_debug.g_err_stage);
2921: END if;
2922: CLOSE pa_bc_packet_cwk_cur;
2923:
2924: l_this_fetch := 0;
2922: CLOSE pa_bc_packet_cwk_cur;
2923:
2924: l_this_fetch := 0;
2925: l_totally_fetched := 0;
2926: pa_debug.g_err_stage := 'Opening cursor - to process from [' ||
2927: to_char(l_ei_to_process_from) || ']';
2928: IF P_DEBUG_MODE = 'Y' THEN
2929: pa_debug.write_file(l_proc_name || ': ' || TO_CHAR(l_stage) || ': ' || pa_debug.g_err_stage);
2930: END IF;
2925: l_totally_fetched := 0;
2926: pa_debug.g_err_stage := 'Opening cursor - to process from [' ||
2927: to_char(l_ei_to_process_from) || ']';
2928: IF P_DEBUG_MODE = 'Y' THEN
2929: pa_debug.write_file(l_proc_name || ': ' || TO_CHAR(l_stage) || ': ' || pa_debug.g_err_stage);
2930: END IF;
2931: OPEN pa_bc_packet_cwk_cur;
2932: END IF;
2933:
2932: END IF;
2933:
2934: END LOOP; -- End of loop to insert total number records.
2935:
2936: pa_debug.g_err_stage := 'No. Of CDLs Totally fetched [' || TO_CHAR(l_totally_fetched) ||']';
2937: IF P_DEBUG_MODE = 'Y' THEN
2938: pa_debug.write_file(l_proc_name || ': ' || TO_CHAR(l_stage) || ': ' || pa_debug.g_err_stage);
2939: END IF;
2940:
2934: END LOOP; -- End of loop to insert total number records.
2935:
2936: pa_debug.g_err_stage := 'No. Of CDLs Totally fetched [' || TO_CHAR(l_totally_fetched) ||']';
2937: IF P_DEBUG_MODE = 'Y' THEN
2938: pa_debug.write_file(l_proc_name || ': ' || TO_CHAR(l_stage) || ': ' || pa_debug.g_err_stage);
2939: END IF;
2940:
2941: pa_debug.g_err_stage := 'Leaving costing_fc_proc_cwk';
2942: IF P_DEBUG_MODE = 'Y' THEN
2937: IF P_DEBUG_MODE = 'Y' THEN
2938: pa_debug.write_file(l_proc_name || ': ' || TO_CHAR(l_stage) || ': ' || pa_debug.g_err_stage);
2939: END IF;
2940:
2941: pa_debug.g_err_stage := 'Leaving costing_fc_proc_cwk';
2942: IF P_DEBUG_MODE = 'Y' THEN
2943: pa_debug.write_file(l_proc_name || ': ' || TO_CHAR(l_stage) || ': ' || pa_debug.g_err_stage);
2944: END IF;
2945:
2939: END IF;
2940:
2941: pa_debug.g_err_stage := 'Leaving costing_fc_proc_cwk';
2942: IF P_DEBUG_MODE = 'Y' THEN
2943: pa_debug.write_file(l_proc_name || ': ' || TO_CHAR(l_stage) || ': ' || pa_debug.g_err_stage);
2944: END IF;
2945:
2946: x_return_status := 0;
2947: pa_debug.reset_err_stack;
2943: pa_debug.write_file(l_proc_name || ': ' || TO_CHAR(l_stage) || ': ' || pa_debug.g_err_stage);
2944: END IF;
2945:
2946: x_return_status := 0;
2947: pa_debug.reset_err_stack;
2948:
2949: EXCEPTION
2950: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2951: THEN
2949: EXCEPTION
2950: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2951: THEN
2952: IF P_DEBUG_MODE = 'Y' THEN
2953: pa_debug.write_file(l_proc_name || ': ' || TO_CHAR(l_stage) || ': ' || pa_debug.g_err_stage);
2954: END IF;
2955: x_return_status := -1;
2956: x_error_code := pa_debug.g_err_stage ;
2957: x_error_stage := to_char(l_stage) ;
2952: IF P_DEBUG_MODE = 'Y' THEN
2953: pa_debug.write_file(l_proc_name || ': ' || TO_CHAR(l_stage) || ': ' || pa_debug.g_err_stage);
2954: END IF;
2955: x_return_status := -1;
2956: x_error_code := pa_debug.g_err_stage ;
2957: x_error_stage := to_char(l_stage) ;
2958: WHEN OTHERS
2959: THEN
2960: IF P_DEBUG_MODE = 'Y' THEN
2957: x_error_stage := to_char(l_stage) ;
2958: WHEN OTHERS
2959: THEN
2960: IF P_DEBUG_MODE = 'Y' THEN
2961: pa_debug.write_file(l_proc_name || ': EXCEPTION ' || pa_debug.g_err_stage);
2962: END IF;
2963:
2964: pa_debug.g_err_stage := TO_CHAR(SQLCODE) || SQLERRM ;
2965: IF P_DEBUG_MODE = 'Y' THEN
2960: IF P_DEBUG_MODE = 'Y' THEN
2961: pa_debug.write_file(l_proc_name || ': EXCEPTION ' || pa_debug.g_err_stage);
2962: END IF;
2963:
2964: pa_debug.g_err_stage := TO_CHAR(SQLCODE) || SQLERRM ;
2965: IF P_DEBUG_MODE = 'Y' THEN
2966: pa_debug.write_file(l_proc_name || ': EXCEPTION ' || pa_debug.g_err_stage);
2967: END IF;
2968:
2962: END IF;
2963:
2964: pa_debug.g_err_stage := TO_CHAR(SQLCODE) || SQLERRM ;
2965: IF P_DEBUG_MODE = 'Y' THEN
2966: pa_debug.write_file(l_proc_name || ': EXCEPTION ' || pa_debug.g_err_stage);
2967: END IF;
2968:
2969: x_return_status := -1;
2970: x_error_code := TO_CHAR(SQLCODE) || SQLERRM ;
3102: END ;
3103:
3104: BEGIN
3105:
3106: pa_debug.init_err_stack('pa_bc_costing.populate_pa_bc_packets_cwk');
3107:
3108: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3109: l_debug_mode := NVL(l_debug_mode, 'Y');
3110:
3104: BEGIN
3105:
3106: pa_debug.init_err_stack('pa_bc_costing.populate_pa_bc_packets_cwk');
3107:
3108: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3109: l_debug_mode := NVL(l_debug_mode, 'Y');
3110:
3111: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3112:
3107:
3108: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3109: l_debug_mode := NVL(l_debug_mode, 'Y');
3110:
3111: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3112:
3113: l_stage := l_proc_name || ': ' || to_char(100) || ': ';
3114: pa_debug.g_err_stage := 'From ' || l_proc_name ;
3115: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3110:
3111: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3112:
3113: l_stage := l_proc_name || ': ' || to_char(100) || ': ';
3114: pa_debug.g_err_stage := 'From ' || l_proc_name ;
3115: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3116:
3117: /*==============================================================+
3118: | Summary records are cached incrementally for a batch of EIs. |
3111: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3112:
3113: l_stage := l_proc_name || ': ' || to_char(100) || ': ';
3114: pa_debug.g_err_stage := 'From ' || l_proc_name ;
3115: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3116:
3117: /*==============================================================+
3118: | Summary records are cached incrementally for a batch of EIs. |
3119: | j - is the index for the summary tables. |
3122:
3123: FOR i IN l_expenditure_item_id_tab.FIRST .. l_expenditure_item_id_tab.LAST
3124: LOOP
3125:
3126: pa_debug.g_err_stage := 'Processing EI [' || to_char(l_expenditure_item_id_tab(i)) ||
3127: '] line [' || to_char(l_line_num_tab(i)) || ']';
3128: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3129: l_rejn_code_tab(i) := NULL;
3130: BEGIN
3124: LOOP
3125:
3126: pa_debug.g_err_stage := 'Processing EI [' || to_char(l_expenditure_item_id_tab(i)) ||
3127: '] line [' || to_char(l_line_num_tab(i)) || ']';
3128: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3129: l_rejn_code_tab(i) := NULL;
3130: BEGIN
3131: /*========================================================+
3132: | Commitment amounts to be relieved only for first time |
3151: l_summ_document_header_id_tab(k) = l_document_header_id_tab(i) AND
3152: l_summ_document_line_id_tab(k) = l_document_line_id_tab(i)
3153: )
3154: THEN
3155: pa_debug.g_err_stage := 'Summary record found in Summary Cache';
3156: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3157: i_summary := k;
3158: l_found := TRUE;
3159: EXIT;
3152: l_summ_document_line_id_tab(k) = l_document_line_id_tab(i)
3153: )
3154: THEN
3155: pa_debug.g_err_stage := 'Summary record found in Summary Cache';
3156: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3157: i_summary := k;
3158: l_found := TRUE;
3159: EXIT;
3160: END IF;
3164: | the plsql table, hit the db. |
3165: +============================================*/
3166: IF (NOT l_found)
3167: THEN
3168: pa_debug.g_err_stage := 'Hitting PA_BC_COMMITMENTS for Summary record R12';
3169: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3170: BEGIN
3171: SELECT pabcc.Comm_Tot_Raw_Amt
3172: ,pabcc.Comm_Tot_Bd_Amt
3165: +============================================*/
3166: IF (NOT l_found)
3167: THEN
3168: pa_debug.g_err_stage := 'Hitting PA_BC_COMMITMENTS for Summary record R12';
3169: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3170: BEGIN
3171: SELECT pabcc.Comm_Tot_Raw_Amt
3172: ,pabcc.Comm_Tot_Bd_Amt
3173: ,pabcc.Comm_Raw_Amt_Relieved
3206: | Bug 4230083 : Added 'C' to status_code. |
3207: +=========================================*/
3208: IF ( l_temp_Tot_Raw_Amt_tab.COUNT = 0 )
3209: THEN
3210: pa_debug.g_err_stage := 'Hitting PA_BC_PACKETS for Summary record';
3211: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3212: BEGIN
3213: SELECT pabc.Comm_Tot_Raw_Amt
3214: ,pabc.Comm_Tot_Bd_Amt
3207: +=========================================*/
3208: IF ( l_temp_Tot_Raw_Amt_tab.COUNT = 0 )
3209: THEN
3210: pa_debug.g_err_stage := 'Hitting PA_BC_PACKETS for Summary record';
3211: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3212: BEGIN
3213: SELECT pabc.Comm_Tot_Raw_Amt
3214: ,pabc.Comm_Tot_Bd_Amt
3215: ,pabc.Comm_Raw_Amt_Relieved
3245: END IF; -- record not found in pa_bc_commitments
3246:
3247: IF ( l_temp_Tot_Raw_Amt_tab.COUNT = 0 )
3248: THEN
3249: pa_debug.g_err_stage := 'Summary record NOT found. Rejecting Transaction.';
3250: pa_debug.log_message(p_message => PA_DEBUG.g_err_stage);
3251: l_rejn_code_tab(i) := 'PA_FC_NDF';
3252: pa_debug.g_err_stage := 'B4 raising exception' ;
3253: pa_debug.log_message(p_message => PA_DEBUG.g_err_stage);
3246:
3247: IF ( l_temp_Tot_Raw_Amt_tab.COUNT = 0 )
3248: THEN
3249: pa_debug.g_err_stage := 'Summary record NOT found. Rejecting Transaction.';
3250: pa_debug.log_message(p_message => PA_DEBUG.g_err_stage);
3251: l_rejn_code_tab(i) := 'PA_FC_NDF';
3252: pa_debug.g_err_stage := 'B4 raising exception' ;
3253: pa_debug.log_message(p_message => PA_DEBUG.g_err_stage);
3254: RAISE USER_EXCEPTION;
3248: THEN
3249: pa_debug.g_err_stage := 'Summary record NOT found. Rejecting Transaction.';
3250: pa_debug.log_message(p_message => PA_DEBUG.g_err_stage);
3251: l_rejn_code_tab(i) := 'PA_FC_NDF';
3252: pa_debug.g_err_stage := 'B4 raising exception' ;
3253: pa_debug.log_message(p_message => PA_DEBUG.g_err_stage);
3254: RAISE USER_EXCEPTION;
3255: END IF;
3256:
3249: pa_debug.g_err_stage := 'Summary record NOT found. Rejecting Transaction.';
3250: pa_debug.log_message(p_message => PA_DEBUG.g_err_stage);
3251: l_rejn_code_tab(i) := 'PA_FC_NDF';
3252: pa_debug.g_err_stage := 'B4 raising exception' ;
3253: pa_debug.log_message(p_message => PA_DEBUG.g_err_stage);
3254: RAISE USER_EXCEPTION;
3255: END IF;
3256:
3257: FOR jj IN l_temp_Tot_Raw_Amt_tab.FIRST .. l_temp_Tot_Raw_Amt_tab.LAST
3255: END IF;
3256:
3257: FOR jj IN l_temp_Tot_Raw_Amt_tab.FIRST .. l_temp_Tot_Raw_Amt_tab.LAST
3258: LOOP
3259: pa_debug.g_err_stage := 'no [' || to_char(jj) || ']';
3260: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3261: pa_debug.g_err_stage := 'l_temp_Tot_Raw_Amt_tab [' || l_temp_Tot_Raw_Amt_tab(jj) || ']';
3262: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3263: pa_debug.g_err_stage := 'l_temp_Tot_Bd_Amt_tab [' || to_char(l_temp_Tot_Bd_Amt_tab(jj)) || ']';
3256:
3257: FOR jj IN l_temp_Tot_Raw_Amt_tab.FIRST .. l_temp_Tot_Raw_Amt_tab.LAST
3258: LOOP
3259: pa_debug.g_err_stage := 'no [' || to_char(jj) || ']';
3260: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3261: pa_debug.g_err_stage := 'l_temp_Tot_Raw_Amt_tab [' || l_temp_Tot_Raw_Amt_tab(jj) || ']';
3262: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3263: pa_debug.g_err_stage := 'l_temp_Tot_Bd_Amt_tab [' || to_char(l_temp_Tot_Bd_Amt_tab(jj)) || ']';
3264: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3257: FOR jj IN l_temp_Tot_Raw_Amt_tab.FIRST .. l_temp_Tot_Raw_Amt_tab.LAST
3258: LOOP
3259: pa_debug.g_err_stage := 'no [' || to_char(jj) || ']';
3260: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3261: pa_debug.g_err_stage := 'l_temp_Tot_Raw_Amt_tab [' || l_temp_Tot_Raw_Amt_tab(jj) || ']';
3262: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3263: pa_debug.g_err_stage := 'l_temp_Tot_Bd_Amt_tab [' || to_char(l_temp_Tot_Bd_Amt_tab(jj)) || ']';
3264: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3265: pa_debug.g_err_stage := 'l_temp_Raw_Amt_Relieved_tab [' || to_char(l_temp_Raw_Amt_Relieved_tab(jj)) || ']';
3258: LOOP
3259: pa_debug.g_err_stage := 'no [' || to_char(jj) || ']';
3260: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3261: pa_debug.g_err_stage := 'l_temp_Tot_Raw_Amt_tab [' || l_temp_Tot_Raw_Amt_tab(jj) || ']';
3262: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3263: pa_debug.g_err_stage := 'l_temp_Tot_Bd_Amt_tab [' || to_char(l_temp_Tot_Bd_Amt_tab(jj)) || ']';
3264: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3265: pa_debug.g_err_stage := 'l_temp_Raw_Amt_Relieved_tab [' || to_char(l_temp_Raw_Amt_Relieved_tab(jj)) || ']';
3266: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3259: pa_debug.g_err_stage := 'no [' || to_char(jj) || ']';
3260: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3261: pa_debug.g_err_stage := 'l_temp_Tot_Raw_Amt_tab [' || l_temp_Tot_Raw_Amt_tab(jj) || ']';
3262: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3263: pa_debug.g_err_stage := 'l_temp_Tot_Bd_Amt_tab [' || to_char(l_temp_Tot_Bd_Amt_tab(jj)) || ']';
3264: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3265: pa_debug.g_err_stage := 'l_temp_Raw_Amt_Relieved_tab [' || to_char(l_temp_Raw_Amt_Relieved_tab(jj)) || ']';
3266: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3267: pa_debug.g_err_stage := 'l_temp_Bd_Amt_Relieved_tab [' || to_char(l_temp_Bd_Amt_Relieved_tab(jj)) || ']';
3260: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3261: pa_debug.g_err_stage := 'l_temp_Tot_Raw_Amt_tab [' || l_temp_Tot_Raw_Amt_tab(jj) || ']';
3262: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3263: pa_debug.g_err_stage := 'l_temp_Tot_Bd_Amt_tab [' || to_char(l_temp_Tot_Bd_Amt_tab(jj)) || ']';
3264: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3265: pa_debug.g_err_stage := 'l_temp_Raw_Amt_Relieved_tab [' || to_char(l_temp_Raw_Amt_Relieved_tab(jj)) || ']';
3266: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3267: pa_debug.g_err_stage := 'l_temp_Bd_Amt_Relieved_tab [' || to_char(l_temp_Bd_Amt_Relieved_tab(jj)) || ']';
3268: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3261: pa_debug.g_err_stage := 'l_temp_Tot_Raw_Amt_tab [' || l_temp_Tot_Raw_Amt_tab(jj) || ']';
3262: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3263: pa_debug.g_err_stage := 'l_temp_Tot_Bd_Amt_tab [' || to_char(l_temp_Tot_Bd_Amt_tab(jj)) || ']';
3264: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3265: pa_debug.g_err_stage := 'l_temp_Raw_Amt_Relieved_tab [' || to_char(l_temp_Raw_Amt_Relieved_tab(jj)) || ']';
3266: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3267: pa_debug.g_err_stage := 'l_temp_Bd_Amt_Relieved_tab [' || to_char(l_temp_Bd_Amt_Relieved_tab(jj)) || ']';
3268: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3269: pa_debug.g_err_stage := 'l_temp_compiled_multiplier_tab [' || to_char(l_temp_compiled_multiplier_tab(jj)) || ']';
3262: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3263: pa_debug.g_err_stage := 'l_temp_Tot_Bd_Amt_tab [' || to_char(l_temp_Tot_Bd_Amt_tab(jj)) || ']';
3264: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3265: pa_debug.g_err_stage := 'l_temp_Raw_Amt_Relieved_tab [' || to_char(l_temp_Raw_Amt_Relieved_tab(jj)) || ']';
3266: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3267: pa_debug.g_err_stage := 'l_temp_Bd_Amt_Relieved_tab [' || to_char(l_temp_Bd_Amt_Relieved_tab(jj)) || ']';
3268: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3269: pa_debug.g_err_stage := 'l_temp_compiled_multiplier_tab [' || to_char(l_temp_compiled_multiplier_tab(jj)) || ']';
3270: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3263: pa_debug.g_err_stage := 'l_temp_Tot_Bd_Amt_tab [' || to_char(l_temp_Tot_Bd_Amt_tab(jj)) || ']';
3264: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3265: pa_debug.g_err_stage := 'l_temp_Raw_Amt_Relieved_tab [' || to_char(l_temp_Raw_Amt_Relieved_tab(jj)) || ']';
3266: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3267: pa_debug.g_err_stage := 'l_temp_Bd_Amt_Relieved_tab [' || to_char(l_temp_Bd_Amt_Relieved_tab(jj)) || ']';
3268: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3269: pa_debug.g_err_stage := 'l_temp_compiled_multiplier_tab [' || to_char(l_temp_compiled_multiplier_tab(jj)) || ']';
3270: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3271: pa_debug.g_err_stage := 'l_temp_parent_bc_packet_id_tab [' || to_char(l_temp_parent_bc_packet_id_tab(jj)) || ']';
3264: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3265: pa_debug.g_err_stage := 'l_temp_Raw_Amt_Relieved_tab [' || to_char(l_temp_Raw_Amt_Relieved_tab(jj)) || ']';
3266: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3267: pa_debug.g_err_stage := 'l_temp_Bd_Amt_Relieved_tab [' || to_char(l_temp_Bd_Amt_Relieved_tab(jj)) || ']';
3268: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3269: pa_debug.g_err_stage := 'l_temp_compiled_multiplier_tab [' || to_char(l_temp_compiled_multiplier_tab(jj)) || ']';
3270: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3271: pa_debug.g_err_stage := 'l_temp_parent_bc_packet_id_tab [' || to_char(l_temp_parent_bc_packet_id_tab(jj)) || ']';
3272: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3265: pa_debug.g_err_stage := 'l_temp_Raw_Amt_Relieved_tab [' || to_char(l_temp_Raw_Amt_Relieved_tab(jj)) || ']';
3266: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3267: pa_debug.g_err_stage := 'l_temp_Bd_Amt_Relieved_tab [' || to_char(l_temp_Bd_Amt_Relieved_tab(jj)) || ']';
3268: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3269: pa_debug.g_err_stage := 'l_temp_compiled_multiplier_tab [' || to_char(l_temp_compiled_multiplier_tab(jj)) || ']';
3270: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3271: pa_debug.g_err_stage := 'l_temp_parent_bc_packet_id_tab [' || to_char(l_temp_parent_bc_packet_id_tab(jj)) || ']';
3272: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3273: pa_debug.g_err_stage := 'l_temp_expenditure_type_tab [' || l_temp_expenditure_type_tab(jj) || ']';
3266: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3267: pa_debug.g_err_stage := 'l_temp_Bd_Amt_Relieved_tab [' || to_char(l_temp_Bd_Amt_Relieved_tab(jj)) || ']';
3268: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3269: pa_debug.g_err_stage := 'l_temp_compiled_multiplier_tab [' || to_char(l_temp_compiled_multiplier_tab(jj)) || ']';
3270: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3271: pa_debug.g_err_stage := 'l_temp_parent_bc_packet_id_tab [' || to_char(l_temp_parent_bc_packet_id_tab(jj)) || ']';
3272: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3273: pa_debug.g_err_stage := 'l_temp_expenditure_type_tab [' || l_temp_expenditure_type_tab(jj) || ']';
3274: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3267: pa_debug.g_err_stage := 'l_temp_Bd_Amt_Relieved_tab [' || to_char(l_temp_Bd_Amt_Relieved_tab(jj)) || ']';
3268: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3269: pa_debug.g_err_stage := 'l_temp_compiled_multiplier_tab [' || to_char(l_temp_compiled_multiplier_tab(jj)) || ']';
3270: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3271: pa_debug.g_err_stage := 'l_temp_parent_bc_packet_id_tab [' || to_char(l_temp_parent_bc_packet_id_tab(jj)) || ']';
3272: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3273: pa_debug.g_err_stage := 'l_temp_expenditure_type_tab [' || l_temp_expenditure_type_tab(jj) || ']';
3274: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3275: pa_debug.g_err_stage := 'l_temp_comm_source_tab [' || l_temp_comm_source_tab(jj) || ']';
3268: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3269: pa_debug.g_err_stage := 'l_temp_compiled_multiplier_tab [' || to_char(l_temp_compiled_multiplier_tab(jj)) || ']';
3270: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3271: pa_debug.g_err_stage := 'l_temp_parent_bc_packet_id_tab [' || to_char(l_temp_parent_bc_packet_id_tab(jj)) || ']';
3272: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3273: pa_debug.g_err_stage := 'l_temp_expenditure_type_tab [' || l_temp_expenditure_type_tab(jj) || ']';
3274: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3275: pa_debug.g_err_stage := 'l_temp_comm_source_tab [' || l_temp_comm_source_tab(jj) || ']';
3276: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3269: pa_debug.g_err_stage := 'l_temp_compiled_multiplier_tab [' || to_char(l_temp_compiled_multiplier_tab(jj)) || ']';
3270: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3271: pa_debug.g_err_stage := 'l_temp_parent_bc_packet_id_tab [' || to_char(l_temp_parent_bc_packet_id_tab(jj)) || ']';
3272: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3273: pa_debug.g_err_stage := 'l_temp_expenditure_type_tab [' || l_temp_expenditure_type_tab(jj) || ']';
3274: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3275: pa_debug.g_err_stage := 'l_temp_comm_source_tab [' || l_temp_comm_source_tab(jj) || ']';
3276: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3277: END LOOP;
3270: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3271: pa_debug.g_err_stage := 'l_temp_parent_bc_packet_id_tab [' || to_char(l_temp_parent_bc_packet_id_tab(jj)) || ']';
3272: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3273: pa_debug.g_err_stage := 'l_temp_expenditure_type_tab [' || l_temp_expenditure_type_tab(jj) || ']';
3274: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3275: pa_debug.g_err_stage := 'l_temp_comm_source_tab [' || l_temp_comm_source_tab(jj) || ']';
3276: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3277: END LOOP;
3278:
3271: pa_debug.g_err_stage := 'l_temp_parent_bc_packet_id_tab [' || to_char(l_temp_parent_bc_packet_id_tab(jj)) || ']';
3272: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3273: pa_debug.g_err_stage := 'l_temp_expenditure_type_tab [' || l_temp_expenditure_type_tab(jj) || ']';
3274: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3275: pa_debug.g_err_stage := 'l_temp_comm_source_tab [' || l_temp_comm_source_tab(jj) || ']';
3276: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3277: END LOOP;
3278:
3279: /*=======================================+
3272: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3273: pa_debug.g_err_stage := 'l_temp_expenditure_type_tab [' || l_temp_expenditure_type_tab(jj) || ']';
3274: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3275: pa_debug.g_err_stage := 'l_temp_comm_source_tab [' || l_temp_comm_source_tab(jj) || ']';
3276: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3277: END LOOP;
3278:
3279: /*=======================================+
3280: | Append the contents of l_temp_ to the |
3304: l_summ_source_tab(j) := l_temp_comm_source_tab(temp_rec);
3305: END LOOP; -- temp records
3306: FOR jj IN l_summ_project_id_tab.FIRST .. l_summ_project_id_tab.LAST
3307: LOOP
3308: pa_debug.g_err_stage := 'no [' || to_char(jj) || ']';
3309: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3310:
3311: pa_debug.g_err_stage := 'l_summ_project_id_tab [' || to_char(l_summ_project_id_tab(jj)) || ']';
3312: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3305: END LOOP; -- temp records
3306: FOR jj IN l_summ_project_id_tab.FIRST .. l_summ_project_id_tab.LAST
3307: LOOP
3308: pa_debug.g_err_stage := 'no [' || to_char(jj) || ']';
3309: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3310:
3311: pa_debug.g_err_stage := 'l_summ_project_id_tab [' || to_char(l_summ_project_id_tab(jj)) || ']';
3312: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3313: pa_debug.g_err_stage := 'l_summ_task_id_tab [' || to_char(l_summ_task_id_tab(jj)) || ']';
3307: LOOP
3308: pa_debug.g_err_stage := 'no [' || to_char(jj) || ']';
3309: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3310:
3311: pa_debug.g_err_stage := 'l_summ_project_id_tab [' || to_char(l_summ_project_id_tab(jj)) || ']';
3312: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3313: pa_debug.g_err_stage := 'l_summ_task_id_tab [' || to_char(l_summ_task_id_tab(jj)) || ']';
3314: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3315: pa_debug.g_err_stage := 'l_summ_document_header_id_tab [' || to_char(l_summ_document_header_id_tab(jj)) || ']';
3308: pa_debug.g_err_stage := 'no [' || to_char(jj) || ']';
3309: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3310:
3311: pa_debug.g_err_stage := 'l_summ_project_id_tab [' || to_char(l_summ_project_id_tab(jj)) || ']';
3312: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3313: pa_debug.g_err_stage := 'l_summ_task_id_tab [' || to_char(l_summ_task_id_tab(jj)) || ']';
3314: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3315: pa_debug.g_err_stage := 'l_summ_document_header_id_tab [' || to_char(l_summ_document_header_id_tab(jj)) || ']';
3316: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3309: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3310:
3311: pa_debug.g_err_stage := 'l_summ_project_id_tab [' || to_char(l_summ_project_id_tab(jj)) || ']';
3312: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3313: pa_debug.g_err_stage := 'l_summ_task_id_tab [' || to_char(l_summ_task_id_tab(jj)) || ']';
3314: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3315: pa_debug.g_err_stage := 'l_summ_document_header_id_tab [' || to_char(l_summ_document_header_id_tab(jj)) || ']';
3316: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3317: pa_debug.g_err_stage := 'l_summ_document_line_id_tab [' || l_summ_document_line_id_tab(jj) || ']';
3310:
3311: pa_debug.g_err_stage := 'l_summ_project_id_tab [' || to_char(l_summ_project_id_tab(jj)) || ']';
3312: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3313: pa_debug.g_err_stage := 'l_summ_task_id_tab [' || to_char(l_summ_task_id_tab(jj)) || ']';
3314: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3315: pa_debug.g_err_stage := 'l_summ_document_header_id_tab [' || to_char(l_summ_document_header_id_tab(jj)) || ']';
3316: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3317: pa_debug.g_err_stage := 'l_summ_document_line_id_tab [' || l_summ_document_line_id_tab(jj) || ']';
3318: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3311: pa_debug.g_err_stage := 'l_summ_project_id_tab [' || to_char(l_summ_project_id_tab(jj)) || ']';
3312: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3313: pa_debug.g_err_stage := 'l_summ_task_id_tab [' || to_char(l_summ_task_id_tab(jj)) || ']';
3314: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3315: pa_debug.g_err_stage := 'l_summ_document_header_id_tab [' || to_char(l_summ_document_header_id_tab(jj)) || ']';
3316: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3317: pa_debug.g_err_stage := 'l_summ_document_line_id_tab [' || l_summ_document_line_id_tab(jj) || ']';
3318: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3319:
3312: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3313: pa_debug.g_err_stage := 'l_summ_task_id_tab [' || to_char(l_summ_task_id_tab(jj)) || ']';
3314: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3315: pa_debug.g_err_stage := 'l_summ_document_header_id_tab [' || to_char(l_summ_document_header_id_tab(jj)) || ']';
3316: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3317: pa_debug.g_err_stage := 'l_summ_document_line_id_tab [' || l_summ_document_line_id_tab(jj) || ']';
3318: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3319:
3320: ---------
3313: pa_debug.g_err_stage := 'l_summ_task_id_tab [' || to_char(l_summ_task_id_tab(jj)) || ']';
3314: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3315: pa_debug.g_err_stage := 'l_summ_document_header_id_tab [' || to_char(l_summ_document_header_id_tab(jj)) || ']';
3316: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3317: pa_debug.g_err_stage := 'l_summ_document_line_id_tab [' || l_summ_document_line_id_tab(jj) || ']';
3318: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3319:
3320: ---------
3321: pa_debug.g_err_stage := 'l_summ_tot_raw_amt_tab [' || to_char(l_summ_tot_raw_amt_tab(jj)) || ']';
3314: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3315: pa_debug.g_err_stage := 'l_summ_document_header_id_tab [' || to_char(l_summ_document_header_id_tab(jj)) || ']';
3316: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3317: pa_debug.g_err_stage := 'l_summ_document_line_id_tab [' || l_summ_document_line_id_tab(jj) || ']';
3318: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3319:
3320: ---------
3321: pa_debug.g_err_stage := 'l_summ_tot_raw_amt_tab [' || to_char(l_summ_tot_raw_amt_tab(jj)) || ']';
3322: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3317: pa_debug.g_err_stage := 'l_summ_document_line_id_tab [' || l_summ_document_line_id_tab(jj) || ']';
3318: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3319:
3320: ---------
3321: pa_debug.g_err_stage := 'l_summ_tot_raw_amt_tab [' || to_char(l_summ_tot_raw_amt_tab(jj)) || ']';
3322: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3323: pa_debug.g_err_stage := 'l_summ_tot_bd_amt_tab [' || to_char(l_summ_tot_bd_amt_tab(jj)) || ']';
3324: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3325: pa_debug.g_err_stage := 'l_summ_raw_amt_relieved_tab [' || to_char(l_summ_raw_amt_relieved_tab(jj)) || ']';
3318: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3319:
3320: ---------
3321: pa_debug.g_err_stage := 'l_summ_tot_raw_amt_tab [' || to_char(l_summ_tot_raw_amt_tab(jj)) || ']';
3322: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3323: pa_debug.g_err_stage := 'l_summ_tot_bd_amt_tab [' || to_char(l_summ_tot_bd_amt_tab(jj)) || ']';
3324: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3325: pa_debug.g_err_stage := 'l_summ_raw_amt_relieved_tab [' || to_char(l_summ_raw_amt_relieved_tab(jj)) || ']';
3326: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3319:
3320: ---------
3321: pa_debug.g_err_stage := 'l_summ_tot_raw_amt_tab [' || to_char(l_summ_tot_raw_amt_tab(jj)) || ']';
3322: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3323: pa_debug.g_err_stage := 'l_summ_tot_bd_amt_tab [' || to_char(l_summ_tot_bd_amt_tab(jj)) || ']';
3324: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3325: pa_debug.g_err_stage := 'l_summ_raw_amt_relieved_tab [' || to_char(l_summ_raw_amt_relieved_tab(jj)) || ']';
3326: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3327: pa_debug.g_err_stage := 'l_summ_bd_amt_relieved_tab [' || to_char(l_summ_bd_amt_relieved_tab(jj)) || ']';
3320: ---------
3321: pa_debug.g_err_stage := 'l_summ_tot_raw_amt_tab [' || to_char(l_summ_tot_raw_amt_tab(jj)) || ']';
3322: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3323: pa_debug.g_err_stage := 'l_summ_tot_bd_amt_tab [' || to_char(l_summ_tot_bd_amt_tab(jj)) || ']';
3324: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3325: pa_debug.g_err_stage := 'l_summ_raw_amt_relieved_tab [' || to_char(l_summ_raw_amt_relieved_tab(jj)) || ']';
3326: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3327: pa_debug.g_err_stage := 'l_summ_bd_amt_relieved_tab [' || to_char(l_summ_bd_amt_relieved_tab(jj)) || ']';
3328: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3321: pa_debug.g_err_stage := 'l_summ_tot_raw_amt_tab [' || to_char(l_summ_tot_raw_amt_tab(jj)) || ']';
3322: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3323: pa_debug.g_err_stage := 'l_summ_tot_bd_amt_tab [' || to_char(l_summ_tot_bd_amt_tab(jj)) || ']';
3324: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3325: pa_debug.g_err_stage := 'l_summ_raw_amt_relieved_tab [' || to_char(l_summ_raw_amt_relieved_tab(jj)) || ']';
3326: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3327: pa_debug.g_err_stage := 'l_summ_bd_amt_relieved_tab [' || to_char(l_summ_bd_amt_relieved_tab(jj)) || ']';
3328: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3329: pa_debug.g_err_stage := 'l_summ_compiled_multiplier_tab [' || to_char(l_summ_compiled_multiplier_tab(jj)) || ']';
3322: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3323: pa_debug.g_err_stage := 'l_summ_tot_bd_amt_tab [' || to_char(l_summ_tot_bd_amt_tab(jj)) || ']';
3324: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3325: pa_debug.g_err_stage := 'l_summ_raw_amt_relieved_tab [' || to_char(l_summ_raw_amt_relieved_tab(jj)) || ']';
3326: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3327: pa_debug.g_err_stage := 'l_summ_bd_amt_relieved_tab [' || to_char(l_summ_bd_amt_relieved_tab(jj)) || ']';
3328: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3329: pa_debug.g_err_stage := 'l_summ_compiled_multiplier_tab [' || to_char(l_summ_compiled_multiplier_tab(jj)) || ']';
3330: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3323: pa_debug.g_err_stage := 'l_summ_tot_bd_amt_tab [' || to_char(l_summ_tot_bd_amt_tab(jj)) || ']';
3324: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3325: pa_debug.g_err_stage := 'l_summ_raw_amt_relieved_tab [' || to_char(l_summ_raw_amt_relieved_tab(jj)) || ']';
3326: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3327: pa_debug.g_err_stage := 'l_summ_bd_amt_relieved_tab [' || to_char(l_summ_bd_amt_relieved_tab(jj)) || ']';
3328: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3329: pa_debug.g_err_stage := 'l_summ_compiled_multiplier_tab [' || to_char(l_summ_compiled_multiplier_tab(jj)) || ']';
3330: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3331: pa_debug.g_err_stage := 'l_summ_parent_bc_packet_id_tab [' || to_char(l_summ_parent_bc_packet_id_tab(jj)) || ']';
3324: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3325: pa_debug.g_err_stage := 'l_summ_raw_amt_relieved_tab [' || to_char(l_summ_raw_amt_relieved_tab(jj)) || ']';
3326: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3327: pa_debug.g_err_stage := 'l_summ_bd_amt_relieved_tab [' || to_char(l_summ_bd_amt_relieved_tab(jj)) || ']';
3328: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3329: pa_debug.g_err_stage := 'l_summ_compiled_multiplier_tab [' || to_char(l_summ_compiled_multiplier_tab(jj)) || ']';
3330: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3331: pa_debug.g_err_stage := 'l_summ_parent_bc_packet_id_tab [' || to_char(l_summ_parent_bc_packet_id_tab(jj)) || ']';
3332: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3325: pa_debug.g_err_stage := 'l_summ_raw_amt_relieved_tab [' || to_char(l_summ_raw_amt_relieved_tab(jj)) || ']';
3326: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3327: pa_debug.g_err_stage := 'l_summ_bd_amt_relieved_tab [' || to_char(l_summ_bd_amt_relieved_tab(jj)) || ']';
3328: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3329: pa_debug.g_err_stage := 'l_summ_compiled_multiplier_tab [' || to_char(l_summ_compiled_multiplier_tab(jj)) || ']';
3330: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3331: pa_debug.g_err_stage := 'l_summ_parent_bc_packet_id_tab [' || to_char(l_summ_parent_bc_packet_id_tab(jj)) || ']';
3332: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3333: pa_debug.g_err_stage := 'l_summ_expenditure_type_tab [' || l_summ_expenditure_type_tab(jj) || ']';
3326: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3327: pa_debug.g_err_stage := 'l_summ_bd_amt_relieved_tab [' || to_char(l_summ_bd_amt_relieved_tab(jj)) || ']';
3328: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3329: pa_debug.g_err_stage := 'l_summ_compiled_multiplier_tab [' || to_char(l_summ_compiled_multiplier_tab(jj)) || ']';
3330: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3331: pa_debug.g_err_stage := 'l_summ_parent_bc_packet_id_tab [' || to_char(l_summ_parent_bc_packet_id_tab(jj)) || ']';
3332: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3333: pa_debug.g_err_stage := 'l_summ_expenditure_type_tab [' || l_summ_expenditure_type_tab(jj) || ']';
3334: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3327: pa_debug.g_err_stage := 'l_summ_bd_amt_relieved_tab [' || to_char(l_summ_bd_amt_relieved_tab(jj)) || ']';
3328: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3329: pa_debug.g_err_stage := 'l_summ_compiled_multiplier_tab [' || to_char(l_summ_compiled_multiplier_tab(jj)) || ']';
3330: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3331: pa_debug.g_err_stage := 'l_summ_parent_bc_packet_id_tab [' || to_char(l_summ_parent_bc_packet_id_tab(jj)) || ']';
3332: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3333: pa_debug.g_err_stage := 'l_summ_expenditure_type_tab [' || l_summ_expenditure_type_tab(jj) || ']';
3334: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3335: pa_debug.g_err_stage := 'l_summ_source_tab [' || l_summ_source_tab(jj) || ']';
3328: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3329: pa_debug.g_err_stage := 'l_summ_compiled_multiplier_tab [' || to_char(l_summ_compiled_multiplier_tab(jj)) || ']';
3330: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3331: pa_debug.g_err_stage := 'l_summ_parent_bc_packet_id_tab [' || to_char(l_summ_parent_bc_packet_id_tab(jj)) || ']';
3332: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3333: pa_debug.g_err_stage := 'l_summ_expenditure_type_tab [' || l_summ_expenditure_type_tab(jj) || ']';
3334: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3335: pa_debug.g_err_stage := 'l_summ_source_tab [' || l_summ_source_tab(jj) || ']';
3336: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3329: pa_debug.g_err_stage := 'l_summ_compiled_multiplier_tab [' || to_char(l_summ_compiled_multiplier_tab(jj)) || ']';
3330: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3331: pa_debug.g_err_stage := 'l_summ_parent_bc_packet_id_tab [' || to_char(l_summ_parent_bc_packet_id_tab(jj)) || ']';
3332: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3333: pa_debug.g_err_stage := 'l_summ_expenditure_type_tab [' || l_summ_expenditure_type_tab(jj) || ']';
3334: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3335: pa_debug.g_err_stage := 'l_summ_source_tab [' || l_summ_source_tab(jj) || ']';
3336: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3337: END LOOP;
3330: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3331: pa_debug.g_err_stage := 'l_summ_parent_bc_packet_id_tab [' || to_char(l_summ_parent_bc_packet_id_tab(jj)) || ']';
3332: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3333: pa_debug.g_err_stage := 'l_summ_expenditure_type_tab [' || l_summ_expenditure_type_tab(jj) || ']';
3334: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3335: pa_debug.g_err_stage := 'l_summ_source_tab [' || l_summ_source_tab(jj) || ']';
3336: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3337: END LOOP;
3338: /*======================================================+
3331: pa_debug.g_err_stage := 'l_summ_parent_bc_packet_id_tab [' || to_char(l_summ_parent_bc_packet_id_tab(jj)) || ']';
3332: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3333: pa_debug.g_err_stage := 'l_summ_expenditure_type_tab [' || l_summ_expenditure_type_tab(jj) || ']';
3334: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3335: pa_debug.g_err_stage := 'l_summ_source_tab [' || l_summ_source_tab(jj) || ']';
3336: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3337: END LOOP;
3338: /*======================================================+
3339: | Note :- At this point all the needed summary records |
3332: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3333: pa_debug.g_err_stage := 'l_summ_expenditure_type_tab [' || l_summ_expenditure_type_tab(jj) || ']';
3334: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3335: pa_debug.g_err_stage := 'l_summ_source_tab [' || l_summ_source_tab(jj) || ']';
3336: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3337: END LOOP;
3338: /*======================================================+
3339: | Note :- At this point all the needed summary records |
3340: | needed to process this transaction will be available |
3345: /*=============================================+
3346: | Get the corresponding Raw summary record. |
3347: +=============================================*/
3348: /**??????????see how we can avoid hitting the cache if the summary record is available in the l_temp_.........*/
3349: pa_debug.write_file('Probing Summary Cache.');
3350: l_found := FALSE;
3351: FOR summ_rec IN l_summ_project_id_tab.FIRST .. l_summ_project_id_tab.LAST
3352: LOOP
3353: IF ( l_summ_project_id_tab(summ_rec) = l_project_id_tab(i) AND
3356: l_summ_document_line_id_tab(summ_rec) = l_document_line_id_tab(i) AND
3357: l_summ_parent_bc_packet_id_tab(summ_rec) IS NULL
3358: )
3359: THEN
3360: pa_debug.write_file('Found record in Summary Cache.');
3361: l_found := TRUE;
3362: i_summary := summ_rec;
3363: EXIT;
3364: END IF;
3365: END LOOP;
3366:
3367: IF ( NOT l_found )
3368: THEN
3369: pa_debug.g_err_stage := 'I just copied the summ records from DB to the cache. But now they are missing.. WIERD !!';
3370: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3371: l_rejn_code_tab(i) := 'PA_FC_NDF';
3372: RAISE USER_EXCEPTION;
3373: END IF;
3366:
3367: IF ( NOT l_found )
3368: THEN
3369: pa_debug.g_err_stage := 'I just copied the summ records from DB to the cache. But now they are missing.. WIERD !!';
3370: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3371: l_rejn_code_tab(i) := 'PA_FC_NDF';
3372: RAISE USER_EXCEPTION;
3373: END IF;
3374: END IF; -- summary record not found in cache.
3378: | |
3379: | Note :- ins_rec is the index for the plsql tables to be |
3380: | inserted into pa_bc_packets. |
3381: +=========================================================*/
3382: pa_debug.g_err_stage := 'Inserting Raw PO relieving record.';
3383: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3384: ins_rec := ins_rec + 1;
3385: copy_common_attributes( i ,ins_rec );
3386: /*===========================================================+
3379: | Note :- ins_rec is the index for the plsql tables to be |
3380: | inserted into pa_bc_packets. |
3381: +=========================================================*/
3382: pa_debug.g_err_stage := 'Inserting Raw PO relieving record.';
3383: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3384: ins_rec := ins_rec + 1;
3385: copy_common_attributes( i ,ins_rec );
3386: /*===========================================================+
3387: | Overriding what copy_common_attributes sets the value to. |
3389: +===========================================================*/
3390: l_ins_document_dist_id_tab(ins_rec) := -9999;
3391:
3392: BEGIN
3393: pa_debug.g_err_stage := 'ORACLE error selecting sequence';
3394: SELECT pa_bc_packets_s.NEXTVAL
3395: INTO l_ins_bc_packet_id_tab(ins_rec)
3396: FROM DUAL;
3397: EXCEPTION
3419: | Calculate the effective relieval amounts. |
3420: +==============================================*/
3421: l_cur_new_raw_amt_relieved := l_summ_raw_amt_relieved_tab(i_summary) +
3422: l_acct_raw_cost_tab(i);
3423: pa_debug.g_err_stage := 'commited raw [' ||
3424: to_char(l_summ_tot_raw_amt_tab(i_summary)) || '] old rlvd [' ||
3425: to_char(l_summ_raw_amt_relieved_tab(i_summary)) || '] arc [' ||
3426: to_char(l_acct_raw_cost_tab(i)) || '] new rlvd [' ||
3427: to_char(l_cur_new_raw_amt_relieved) || ']';
3424: to_char(l_summ_tot_raw_amt_tab(i_summary)) || '] old rlvd [' ||
3425: to_char(l_summ_raw_amt_relieved_tab(i_summary)) || '] arc [' ||
3426: to_char(l_acct_raw_cost_tab(i)) || '] new rlvd [' ||
3427: to_char(l_cur_new_raw_amt_relieved) || ']';
3428: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3429: /*====================================+
3430: | Do not relieve more than commited. |
3431: +====================================*/
3432: /*============================================================================+
3437: l_ins_entered_dr_tab(ins_rec) := (l_summ_tot_raw_amt_tab(i_summary) -
3438: l_summ_raw_amt_relieved_tab(i_summary)) * -1;
3439: l_ins_accounted_dr_tab(ins_rec) := l_ins_entered_dr_tab(ins_rec);
3440: l_summ_raw_amt_relieved_tab(i_summary) := l_summ_tot_raw_amt_tab(i_summary);
3441: pa_debug.g_err_stage := 'amt being relieved [' ||
3442: to_char(l_ins_entered_dr_tab(ins_rec)) || ']';
3443: ELSE
3444: l_ins_entered_dr_tab(ins_rec) := l_acct_raw_cost_tab(i) * -1;
3445: l_ins_accounted_dr_tab(ins_rec) := l_ins_entered_dr_tab(ins_rec);
3443: ELSE
3444: l_ins_entered_dr_tab(ins_rec) := l_acct_raw_cost_tab(i) * -1;
3445: l_ins_accounted_dr_tab(ins_rec) := l_ins_entered_dr_tab(ins_rec);
3446: l_summ_raw_amt_relieved_tab(i_summary) := l_cur_new_raw_amt_relieved;
3447: pa_debug.g_err_stage := 'amt being relieved [' ||
3448: to_char(l_ins_entered_dr_tab(ins_rec)) || ']';
3449: END IF;
3450:
3451: /*===============================================================+
3459: l_line_type_tab(i) <> 'I'
3460: )
3461: THEN
3462: ins_rec := ins_rec + 1;
3463: pa_debug.g_err_stage := 'Inserting Burd PO rec. Same line burd. ins_rec is [' || to_char(ins_rec) || ']';
3464: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3465: copy_common_attributes( i ,ins_rec );
3466: /*===========================================================+
3467: | Overriding what copy_common_attributes sets the value to. |
3460: )
3461: THEN
3462: ins_rec := ins_rec + 1;
3463: pa_debug.g_err_stage := 'Inserting Burd PO rec. Same line burd. ins_rec is [' || to_char(ins_rec) || ']';
3464: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3465: copy_common_attributes( i ,ins_rec );
3466: /*===========================================================+
3467: | Overriding what copy_common_attributes sets the value to. |
3468: | on Prithi's advice. |
3486: | to updated on the column Comm_Raw_Amt_Relieved. |
3487: +===========================================================*/
3488: l_cur_new_bd_amt_relieved := l_summ_bd_amt_relieved_tab(i_summary) +
3489: (l_acct_raw_cost_tab(i) * l_summ_compiled_multiplier_tab(i_summary));
3490: pa_debug.g_err_stage := 'commited bd [' ||
3491: to_char(l_summ_tot_bd_amt_tab(i_summary)) || '] old rlvd [' ||
3492: to_char(l_summ_bd_amt_relieved_tab(i_summary)) || '] bc [' ||
3493: to_char(l_acct_raw_cost_tab(i) * l_summ_compiled_multiplier_tab(i_summary))
3494: || '] new rlvd [' || to_char(l_cur_new_bd_amt_relieved) || ']';
3491: to_char(l_summ_tot_bd_amt_tab(i_summary)) || '] old rlvd [' ||
3492: to_char(l_summ_bd_amt_relieved_tab(i_summary)) || '] bc [' ||
3493: to_char(l_acct_raw_cost_tab(i) * l_summ_compiled_multiplier_tab(i_summary))
3494: || '] new rlvd [' || to_char(l_cur_new_bd_amt_relieved) || ']';
3495: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3496: /*====================================+
3497: | Do not relieve more than commited. |
3498: +====================================*/
3499: /*============================================================================+
3504: l_ins_entered_dr_tab(ins_rec) := (l_summ_tot_bd_amt_tab(i_summary) -
3505: l_summ_bd_amt_relieved_tab(i_summary)) * -1;
3506: l_ins_accounted_dr_tab(ins_rec) := l_ins_entered_dr_tab(ins_rec);
3507: l_summ_bd_amt_relieved_tab(i_summary) := l_summ_tot_bd_amt_tab(i_summary);
3508: pa_debug.g_err_stage := 'amt rlvd [' ||
3509: to_char(l_ins_entered_dr_tab(ins_rec)) || ']';
3510: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3511: ELSE
3512: l_ins_entered_dr_tab(ins_rec) := (l_acct_raw_cost_tab(i) *
3506: l_ins_accounted_dr_tab(ins_rec) := l_ins_entered_dr_tab(ins_rec);
3507: l_summ_bd_amt_relieved_tab(i_summary) := l_summ_tot_bd_amt_tab(i_summary);
3508: pa_debug.g_err_stage := 'amt rlvd [' ||
3509: to_char(l_ins_entered_dr_tab(ins_rec)) || ']';
3510: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3511: ELSE
3512: l_ins_entered_dr_tab(ins_rec) := (l_acct_raw_cost_tab(i) *
3513: l_summ_compiled_multiplier_tab(i_summary)) * -1;
3514: l_ins_accounted_dr_tab(ins_rec) := l_ins_entered_dr_tab(ins_rec);
3512: l_ins_entered_dr_tab(ins_rec) := (l_acct_raw_cost_tab(i) *
3513: l_summ_compiled_multiplier_tab(i_summary)) * -1;
3514: l_ins_accounted_dr_tab(ins_rec) := l_ins_entered_dr_tab(ins_rec);
3515: l_summ_bd_amt_relieved_tab(i_summary) := l_cur_new_bd_amt_relieved;
3516: pa_debug.g_err_stage := 'amt rlvd [' ||
3517: to_char(l_ins_entered_dr_tab(ins_rec)) || ']';
3518: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3519: END IF;
3520: END IF; -- Same line burdening
3514: l_ins_accounted_dr_tab(ins_rec) := l_ins_entered_dr_tab(ins_rec);
3515: l_summ_bd_amt_relieved_tab(i_summary) := l_cur_new_bd_amt_relieved;
3516: pa_debug.g_err_stage := 'amt rlvd [' ||
3517: to_char(l_ins_entered_dr_tab(ins_rec)) || ']';
3518: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3519: END IF;
3520: END IF; -- Same line burdening
3521: END IF; -- line num 1
3522:
3530: l_burden_amt_disp_method_tab(i) = 'D' AND
3531: l_line_type_tab(i) <> 'I'
3532: )
3533: THEN
3534: pa_debug.g_err_stage := 'Separate line burdening - hitting burdening datamodel';
3535: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3536: SELECT icc.expenditure_type
3537: ,cm.compiled_multiplier
3538: BULK COLLECT INTO
3531: l_line_type_tab(i) <> 'I'
3532: )
3533: THEN
3534: pa_debug.g_err_stage := 'Separate line burdening - hitting burdening datamodel';
3535: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3536: SELECT icc.expenditure_type
3537: ,cm.compiled_multiplier
3538: BULK COLLECT INTO
3539: l_txn_burden_exp_type_tab
3562: AND l_burden_sum_source_run_id_tab(i) = -9999
3563: AND l_burden_amt_disp_method_tab(i) = 'D'
3564: AND l_burden_cost_flag_tab(i) = 'Y'
3565: ;
3566: pa_debug.g_err_stage := 'This txn has [' || TO_CHAR(SQL%ROWCOUNT) || '] Burden Cost Code(s).';
3567: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3568: END IF; -- Separate line burdening
3569:
3570: /*=========================================================+
3563: AND l_burden_amt_disp_method_tab(i) = 'D'
3564: AND l_burden_cost_flag_tab(i) = 'Y'
3565: ;
3566: pa_debug.g_err_stage := 'This txn has [' || TO_CHAR(SQL%ROWCOUNT) || '] Burden Cost Code(s).';
3567: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3568: END IF; -- Separate line burdening
3569:
3570: /*=========================================================+
3571: | Relieve the PO commitment if first time distribution. |
3586: IF l_txn_burden_exp_type_tab.COUNT <> 0 THEN /* Bug 3974799 */
3587:
3588: FOR sep_burden IN l_txn_burden_exp_type_tab.FIRST .. l_txn_burden_exp_type_tab.LAST
3589: LOOP
3590: pa_debug.g_err_stage := 'et [' || l_txn_burden_exp_type_tab(sep_burden) || ']';
3591: pa_debug.write_file(pa_debug.g_err_stage);
3592: END LOOP;
3593:
3594: END IF; /* Bug 3974799 */
3587:
3588: FOR sep_burden IN l_txn_burden_exp_type_tab.FIRST .. l_txn_burden_exp_type_tab.LAST
3589: LOOP
3590: pa_debug.g_err_stage := 'et [' || l_txn_burden_exp_type_tab(sep_burden) || ']';
3591: pa_debug.write_file(pa_debug.g_err_stage);
3592: END LOOP;
3593:
3594: END IF; /* Bug 3974799 */
3595:
3602:
3603: IF l_txn_burden_exp_type_tab.COUNT <> 0 THEN /* Bug 3974799 */
3604: FOR sep_burden IN l_txn_burden_exp_type_tab.FIRST .. l_txn_burden_exp_type_tab.LAST
3605: LOOP
3606: pa_debug.g_err_stage := 'comparing summ et ['
3607: || l_summ_expenditure_type_tab(summ_line) || '] with txn et ['
3608: || l_txn_burden_exp_type_tab(sep_burden) || ']';
3609: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3610: IF ( l_summ_project_id_tab(summ_line) = l_project_id_tab(i) AND
3605: LOOP
3606: pa_debug.g_err_stage := 'comparing summ et ['
3607: || l_summ_expenditure_type_tab(summ_line) || '] with txn et ['
3608: || l_txn_burden_exp_type_tab(sep_burden) || ']';
3609: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3610: IF ( l_summ_project_id_tab(summ_line) = l_project_id_tab(i) AND
3611: l_summ_task_id_tab(summ_line) = l_task_id_tab(i) AND
3612: l_summ_document_header_id_tab(summ_line) = l_document_header_id_tab(i) AND
3613: l_summ_document_line_id_tab(summ_line) = l_document_line_id_tab(i) AND
3614: l_summ_expenditure_type_tab(summ_line) = l_txn_burden_exp_type_tab(sep_burden) AND
3615: l_summ_tot_bd_amt_tab(summ_line) <> 0
3616: )
3617: THEN
3618: pa_debug.g_err_stage := 'match';
3619: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3620: l_found := TRUE;
3621: EXIT; -- PA Burden cost codes loop
3622: ELSE
3615: l_summ_tot_bd_amt_tab(summ_line) <> 0
3616: )
3617: THEN
3618: pa_debug.g_err_stage := 'match';
3619: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3620: l_found := TRUE;
3621: EXIT; -- PA Burden cost codes loop
3622: ELSE
3623: pa_debug.g_err_stage := 'no match';
3619: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3620: l_found := TRUE;
3621: EXIT; -- PA Burden cost codes loop
3622: ELSE
3623: pa_debug.g_err_stage := 'no match';
3624: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3625: l_found := FALSE;
3626: END IF;
3627: END LOOP; -- PA burden cost code records
3620: l_found := TRUE;
3621: EXIT; -- PA Burden cost codes loop
3622: ELSE
3623: pa_debug.g_err_stage := 'no match';
3624: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3625: l_found := FALSE;
3626: END IF;
3627: END LOOP; -- PA burden cost code records
3628: END IF; -- l_summ_parent_bc_packet_id_tab(summ_line) IS NOT NULL
3637: THEN
3638: l_rejn_code_tab(i) := 'PA_TXN_COMM_BCC_NO_MATCH';
3639: /*stop the raw relieving line getting inserted*/
3640: l_ins_rejn_code_tab(l_i_raw_po_rec) := 'PA_TXN_COMM_BCC_NO_MATCH';
3641: pa_debug.g_err_stage := 'Matching BCC record missing. Rejecting';
3642: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3643: RAISE USER_EXCEPTION;
3644: END IF;
3645: /*=============================================+
3638: l_rejn_code_tab(i) := 'PA_TXN_COMM_BCC_NO_MATCH';
3639: /*stop the raw relieving line getting inserted*/
3640: l_ins_rejn_code_tab(l_i_raw_po_rec) := 'PA_TXN_COMM_BCC_NO_MATCH';
3641: pa_debug.g_err_stage := 'Matching BCC record missing. Rejecting';
3642: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3643: RAISE USER_EXCEPTION;
3644: END IF;
3645: /*=============================================+
3646: | Inserting Funds PO relieving Burden Record. |
3655: l_summ_tot_bd_amt_tab(summ_line) <> 0
3656: )
3657: THEN
3658: ins_rec := ins_rec + 1;
3659: pa_debug.g_err_stage := 'Inserting sep line PO relieving. ins_rec is [' || to_char(ins_rec) || ']';
3660: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3661: copy_common_attributes( i ,ins_rec );
3662: /*===========================================================+
3663: | Overriding what copy_common_attributes sets the value to. |
3656: )
3657: THEN
3658: ins_rec := ins_rec + 1;
3659: pa_debug.g_err_stage := 'Inserting sep line PO relieving. ins_rec is [' || to_char(ins_rec) || ']';
3660: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3661: copy_common_attributes( i ,ins_rec );
3662: /*===========================================================+
3663: | Overriding what copy_common_attributes sets the value to. |
3664: | on Prithi's advice. |
3707: +==============================*/
3708: IF( l_line_type_tab(i) <> 'I')
3709: THEN
3710: ins_rec := ins_rec + 1;
3711: pa_debug.g_err_stage := 'Inserting raw EXP record ins_rec is [' || to_char(ins_rec) || ']';
3712: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3713: copy_common_attributes( i ,ins_rec );
3714: BEGIN
3715: SELECT pa_bc_packets_s.NEXTVAL
3708: IF( l_line_type_tab(i) <> 'I')
3709: THEN
3710: ins_rec := ins_rec + 1;
3711: pa_debug.g_err_stage := 'Inserting raw EXP record ins_rec is [' || to_char(ins_rec) || ']';
3712: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3713: copy_common_attributes( i ,ins_rec );
3714: BEGIN
3715: SELECT pa_bc_packets_s.NEXTVAL
3716: INTO l_ins_bc_packet_id_tab(ins_rec)
3741: (l_line_num_reversed_tab(i) IS NOT NULL OR l_line_type_tab(i) = 'I')
3742: )
3743: THEN
3744: ins_rec := ins_rec + 1;
3745: pa_debug.g_err_stage := 'inserting burden same line exp record ins_rec is [' || to_char(ins_rec) || ']';
3746: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3747: copy_common_attributes( i ,ins_rec );
3748: BEGIN
3749: SELECT pa_bc_packets_s.NEXTVAL
3742: )
3743: THEN
3744: ins_rec := ins_rec + 1;
3745: pa_debug.g_err_stage := 'inserting burden same line exp record ins_rec is [' || to_char(ins_rec) || ']';
3746: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3747: copy_common_attributes( i ,ins_rec );
3748: BEGIN
3749: SELECT pa_bc_packets_s.NEXTVAL
3750: INTO l_ins_bc_packet_id_tab(ins_rec)
3779:
3780: FOR sep_burden IN l_txn_burden_exp_type_tab.FIRST .. l_txn_burden_exp_type_tab.LAST
3781: LOOP
3782: ins_rec := ins_rec + 1;
3783: pa_debug.write_file('inserting burden sep line exp record ins_rec is [' || to_char(ins_rec) || ']');
3784: copy_common_attributes( i ,ins_rec );
3785: BEGIN
3786: SELECT pa_bc_packets_s.NEXTVAL
3787: INTO l_ins_bc_packet_id_tab(ins_rec)
3816:
3817: EXCEPTION
3818: WHEN USER_EXCEPTION
3819: THEN
3820: pa_debug.g_err_stage := 'From User Exception handler' ;
3821: pa_debug.log_message(p_message => PA_DEBUG.g_err_stage);
3822: NULL;
3823: WHEN OTHERS
3824: THEN
3817: EXCEPTION
3818: WHEN USER_EXCEPTION
3819: THEN
3820: pa_debug.g_err_stage := 'From User Exception handler' ;
3821: pa_debug.log_message(p_message => PA_DEBUG.g_err_stage);
3822: NULL;
3823: WHEN OTHERS
3824: THEN
3825: RAISE;
3825: RAISE;
3826: END; -- anonymous block
3827: END LOOP; -- for all records
3828:
3829: pa_debug.g_err_stage := 'Before debug for loop ' ;
3830: pa_debug.log_message(p_message => PA_DEBUG.g_err_stage);
3831:
3832: IF ( l_ins_packet_id_tab.COUNT > 0 )
3833: THEN
3826: END; -- anonymous block
3827: END LOOP; -- for all records
3828:
3829: pa_debug.g_err_stage := 'Before debug for loop ' ;
3830: pa_debug.log_message(p_message => PA_DEBUG.g_err_stage);
3831:
3832: IF ( l_ins_packet_id_tab.COUNT > 0 )
3833: THEN
3834:
3833: THEN
3834:
3835: FOR ins_rec IN l_ins_packet_id_tab.FIRST .. l_ins_packet_id_tab.LAST
3836: LOOP
3837: pa_debug.g_err_stage := 'Before inserting record [' || to_char(ins_rec)
3838: || '] l_ins_packet_id_tab [' || to_char(l_ins_packet_id_tab(ins_rec))
3839: || '] l_ins_project_id_tab [' || to_char(l_ins_project_id_tab(ins_rec))
3840: || '] l_ins_task_id_tab [' || to_char(l_ins_task_id_tab(ins_rec))
3841: || '] l_ins_budget_version_id_tab [' || to_char(l_ins_budget_version_id_tab(ins_rec))
3849: || '] l_ins_je_source_name_tab [' || l_ins_je_source_name_tab(ins_rec)
3850: || '] l_ins_status_code_tab [' || l_ins_status_code_tab(ins_rec)
3851: || '] l_ins_document_type_tab [' || l_ins_document_type_tab(ins_rec)
3852: || ']';
3853: pa_debug.write_file(pa_debug.g_err_stage);
3854: pa_debug.g_err_stage := 'Before inserting record [' || to_char(ins_rec)
3855: || '] l_ins_funds_process_mode_tab [' || l_ins_funds_process_mode_tab(ins_rec)
3856: || '] l_ins_burden_cost_flag_tab [' || l_ins_burden_cost_flag_tab(ins_rec)
3857: || '] l_ins_expenditure_orgn_id_tab [' || to_char(l_ins_expenditure_orgn_id_tab(ins_rec))
3850: || '] l_ins_status_code_tab [' || l_ins_status_code_tab(ins_rec)
3851: || '] l_ins_document_type_tab [' || l_ins_document_type_tab(ins_rec)
3852: || ']';
3853: pa_debug.write_file(pa_debug.g_err_stage);
3854: pa_debug.g_err_stage := 'Before inserting record [' || to_char(ins_rec)
3855: || '] l_ins_funds_process_mode_tab [' || l_ins_funds_process_mode_tab(ins_rec)
3856: || '] l_ins_burden_cost_flag_tab [' || l_ins_burden_cost_flag_tab(ins_rec)
3857: || '] l_ins_expenditure_orgn_id_tab [' || to_char(l_ins_expenditure_orgn_id_tab(ins_rec))
3858: || '] l_ins_document_header_id_tab [' || to_char(l_ins_document_header_id_tab(ins_rec))
3861: || '] l_ins_txn_ccid_tab [' || to_char(l_ins_txn_ccid_tab(ins_rec))
3862: || '] l_ins_burden_cost_flag_tab [' || l_ins_burden_cost_flag_tab(ins_rec)
3863: || '] l_ins_balance_posted_flag_tab [' || l_ins_balance_posted_flag_tab(ins_rec)
3864: || ']';
3865: pa_debug.write_file(pa_debug.g_err_stage);
3866:
3867: pa_debug.g_err_stage := 'l_ins_accounted_dr_tab [' || to_char(l_ins_accounted_dr_tab(ins_rec)) || ']';
3868: pa_debug.write_file(pa_debug.g_err_stage);
3869: pa_debug.g_err_stage := 'l_ins_entered_dr_tab [' || to_char(l_ins_entered_dr_tab(ins_rec)) || ']';
3863: || '] l_ins_balance_posted_flag_tab [' || l_ins_balance_posted_flag_tab(ins_rec)
3864: || ']';
3865: pa_debug.write_file(pa_debug.g_err_stage);
3866:
3867: pa_debug.g_err_stage := 'l_ins_accounted_dr_tab [' || to_char(l_ins_accounted_dr_tab(ins_rec)) || ']';
3868: pa_debug.write_file(pa_debug.g_err_stage);
3869: pa_debug.g_err_stage := 'l_ins_entered_dr_tab [' || to_char(l_ins_entered_dr_tab(ins_rec)) || ']';
3870: pa_debug.write_file(pa_debug.g_err_stage);
3871: pa_debug.g_err_stage := 'l_ins_bc_packet_id_tab [' || to_char(l_ins_bc_packet_id_tab(ins_rec)) || ']';
3864: || ']';
3865: pa_debug.write_file(pa_debug.g_err_stage);
3866:
3867: pa_debug.g_err_stage := 'l_ins_accounted_dr_tab [' || to_char(l_ins_accounted_dr_tab(ins_rec)) || ']';
3868: pa_debug.write_file(pa_debug.g_err_stage);
3869: pa_debug.g_err_stage := 'l_ins_entered_dr_tab [' || to_char(l_ins_entered_dr_tab(ins_rec)) || ']';
3870: pa_debug.write_file(pa_debug.g_err_stage);
3871: pa_debug.g_err_stage := 'l_ins_bc_packet_id_tab [' || to_char(l_ins_bc_packet_id_tab(ins_rec)) || ']';
3872: pa_debug.write_file(pa_debug.g_err_stage);
3865: pa_debug.write_file(pa_debug.g_err_stage);
3866:
3867: pa_debug.g_err_stage := 'l_ins_accounted_dr_tab [' || to_char(l_ins_accounted_dr_tab(ins_rec)) || ']';
3868: pa_debug.write_file(pa_debug.g_err_stage);
3869: pa_debug.g_err_stage := 'l_ins_entered_dr_tab [' || to_char(l_ins_entered_dr_tab(ins_rec)) || ']';
3870: pa_debug.write_file(pa_debug.g_err_stage);
3871: pa_debug.g_err_stage := 'l_ins_bc_packet_id_tab [' || to_char(l_ins_bc_packet_id_tab(ins_rec)) || ']';
3872: pa_debug.write_file(pa_debug.g_err_stage);
3873: pa_debug.g_err_stage := 'l_ins_parent_bc_packet_id_tab [' || to_char(l_ins_parent_bc_packet_id_tab(ins_rec)) || ']';
3866:
3867: pa_debug.g_err_stage := 'l_ins_accounted_dr_tab [' || to_char(l_ins_accounted_dr_tab(ins_rec)) || ']';
3868: pa_debug.write_file(pa_debug.g_err_stage);
3869: pa_debug.g_err_stage := 'l_ins_entered_dr_tab [' || to_char(l_ins_entered_dr_tab(ins_rec)) || ']';
3870: pa_debug.write_file(pa_debug.g_err_stage);
3871: pa_debug.g_err_stage := 'l_ins_bc_packet_id_tab [' || to_char(l_ins_bc_packet_id_tab(ins_rec)) || ']';
3872: pa_debug.write_file(pa_debug.g_err_stage);
3873: pa_debug.g_err_stage := 'l_ins_parent_bc_packet_id_tab [' || to_char(l_ins_parent_bc_packet_id_tab(ins_rec)) || ']';
3874: pa_debug.write_file(pa_debug.g_err_stage);
3867: pa_debug.g_err_stage := 'l_ins_accounted_dr_tab [' || to_char(l_ins_accounted_dr_tab(ins_rec)) || ']';
3868: pa_debug.write_file(pa_debug.g_err_stage);
3869: pa_debug.g_err_stage := 'l_ins_entered_dr_tab [' || to_char(l_ins_entered_dr_tab(ins_rec)) || ']';
3870: pa_debug.write_file(pa_debug.g_err_stage);
3871: pa_debug.g_err_stage := 'l_ins_bc_packet_id_tab [' || to_char(l_ins_bc_packet_id_tab(ins_rec)) || ']';
3872: pa_debug.write_file(pa_debug.g_err_stage);
3873: pa_debug.g_err_stage := 'l_ins_parent_bc_packet_id_tab [' || to_char(l_ins_parent_bc_packet_id_tab(ins_rec)) || ']';
3874: pa_debug.write_file(pa_debug.g_err_stage);
3875: pa_debug.g_err_stage := 'l_ins_org_id_tab [' || to_char(l_ins_org_id_tab(ins_rec)) || ']';
3868: pa_debug.write_file(pa_debug.g_err_stage);
3869: pa_debug.g_err_stage := 'l_ins_entered_dr_tab [' || to_char(l_ins_entered_dr_tab(ins_rec)) || ']';
3870: pa_debug.write_file(pa_debug.g_err_stage);
3871: pa_debug.g_err_stage := 'l_ins_bc_packet_id_tab [' || to_char(l_ins_bc_packet_id_tab(ins_rec)) || ']';
3872: pa_debug.write_file(pa_debug.g_err_stage);
3873: pa_debug.g_err_stage := 'l_ins_parent_bc_packet_id_tab [' || to_char(l_ins_parent_bc_packet_id_tab(ins_rec)) || ']';
3874: pa_debug.write_file(pa_debug.g_err_stage);
3875: pa_debug.g_err_stage := 'l_ins_org_id_tab [' || to_char(l_ins_org_id_tab(ins_rec)) || ']';
3876: pa_debug.write_file(pa_debug.g_err_stage);
3869: pa_debug.g_err_stage := 'l_ins_entered_dr_tab [' || to_char(l_ins_entered_dr_tab(ins_rec)) || ']';
3870: pa_debug.write_file(pa_debug.g_err_stage);
3871: pa_debug.g_err_stage := 'l_ins_bc_packet_id_tab [' || to_char(l_ins_bc_packet_id_tab(ins_rec)) || ']';
3872: pa_debug.write_file(pa_debug.g_err_stage);
3873: pa_debug.g_err_stage := 'l_ins_parent_bc_packet_id_tab [' || to_char(l_ins_parent_bc_packet_id_tab(ins_rec)) || ']';
3874: pa_debug.write_file(pa_debug.g_err_stage);
3875: pa_debug.g_err_stage := 'l_ins_org_id_tab [' || to_char(l_ins_org_id_tab(ins_rec)) || ']';
3876: pa_debug.write_file(pa_debug.g_err_stage);
3877: pa_debug.g_err_stage := 'l_ins_exp_item_id_tab [' || to_char(l_ins_exp_item_id_tab(ins_rec)) || ']';
3870: pa_debug.write_file(pa_debug.g_err_stage);
3871: pa_debug.g_err_stage := 'l_ins_bc_packet_id_tab [' || to_char(l_ins_bc_packet_id_tab(ins_rec)) || ']';
3872: pa_debug.write_file(pa_debug.g_err_stage);
3873: pa_debug.g_err_stage := 'l_ins_parent_bc_packet_id_tab [' || to_char(l_ins_parent_bc_packet_id_tab(ins_rec)) || ']';
3874: pa_debug.write_file(pa_debug.g_err_stage);
3875: pa_debug.g_err_stage := 'l_ins_org_id_tab [' || to_char(l_ins_org_id_tab(ins_rec)) || ']';
3876: pa_debug.write_file(pa_debug.g_err_stage);
3877: pa_debug.g_err_stage := 'l_ins_exp_item_id_tab [' || to_char(l_ins_exp_item_id_tab(ins_rec)) || ']';
3878: pa_debug.write_file(pa_debug.g_err_stage);
3871: pa_debug.g_err_stage := 'l_ins_bc_packet_id_tab [' || to_char(l_ins_bc_packet_id_tab(ins_rec)) || ']';
3872: pa_debug.write_file(pa_debug.g_err_stage);
3873: pa_debug.g_err_stage := 'l_ins_parent_bc_packet_id_tab [' || to_char(l_ins_parent_bc_packet_id_tab(ins_rec)) || ']';
3874: pa_debug.write_file(pa_debug.g_err_stage);
3875: pa_debug.g_err_stage := 'l_ins_org_id_tab [' || to_char(l_ins_org_id_tab(ins_rec)) || ']';
3876: pa_debug.write_file(pa_debug.g_err_stage);
3877: pa_debug.g_err_stage := 'l_ins_exp_item_id_tab [' || to_char(l_ins_exp_item_id_tab(ins_rec)) || ']';
3878: pa_debug.write_file(pa_debug.g_err_stage);
3879: END LOOP;
3872: pa_debug.write_file(pa_debug.g_err_stage);
3873: pa_debug.g_err_stage := 'l_ins_parent_bc_packet_id_tab [' || to_char(l_ins_parent_bc_packet_id_tab(ins_rec)) || ']';
3874: pa_debug.write_file(pa_debug.g_err_stage);
3875: pa_debug.g_err_stage := 'l_ins_org_id_tab [' || to_char(l_ins_org_id_tab(ins_rec)) || ']';
3876: pa_debug.write_file(pa_debug.g_err_stage);
3877: pa_debug.g_err_stage := 'l_ins_exp_item_id_tab [' || to_char(l_ins_exp_item_id_tab(ins_rec)) || ']';
3878: pa_debug.write_file(pa_debug.g_err_stage);
3879: END LOOP;
3880: END IF;
3873: pa_debug.g_err_stage := 'l_ins_parent_bc_packet_id_tab [' || to_char(l_ins_parent_bc_packet_id_tab(ins_rec)) || ']';
3874: pa_debug.write_file(pa_debug.g_err_stage);
3875: pa_debug.g_err_stage := 'l_ins_org_id_tab [' || to_char(l_ins_org_id_tab(ins_rec)) || ']';
3876: pa_debug.write_file(pa_debug.g_err_stage);
3877: pa_debug.g_err_stage := 'l_ins_exp_item_id_tab [' || to_char(l_ins_exp_item_id_tab(ins_rec)) || ']';
3878: pa_debug.write_file(pa_debug.g_err_stage);
3879: END LOOP;
3880: END IF;
3881: /*==================================+
3874: pa_debug.write_file(pa_debug.g_err_stage);
3875: pa_debug.g_err_stage := 'l_ins_org_id_tab [' || to_char(l_ins_org_id_tab(ins_rec)) || ']';
3876: pa_debug.write_file(pa_debug.g_err_stage);
3877: pa_debug.g_err_stage := 'l_ins_exp_item_id_tab [' || to_char(l_ins_exp_item_id_tab(ins_rec)) || ']';
3878: pa_debug.write_file(pa_debug.g_err_stage);
3879: END LOOP;
3880: END IF;
3881: /*==================================+
3882: | Insert into pa_bc_packets. |
3886: * has to be figured out. ??????????????????
3887: */
3888: IF ( l_ins_packet_id_tab.COUNT > 0)
3889: THEN
3890: pa_debug.g_err_stage := 'Before inserting into pa_bc_pacets';
3891: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3892:
3893: pa_debug.g_err_stage := 'ORACLE error while Inserting PA_BC_PACKETS.' ;
3894: FORALL ins_rec IN l_ins_packet_id_tab.FIRST .. l_ins_packet_id_tab.LAST
3887: */
3888: IF ( l_ins_packet_id_tab.COUNT > 0)
3889: THEN
3890: pa_debug.g_err_stage := 'Before inserting into pa_bc_pacets';
3891: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3892:
3893: pa_debug.g_err_stage := 'ORACLE error while Inserting PA_BC_PACKETS.' ;
3894: FORALL ins_rec IN l_ins_packet_id_tab.FIRST .. l_ins_packet_id_tab.LAST
3895: INSERT
3889: THEN
3890: pa_debug.g_err_stage := 'Before inserting into pa_bc_pacets';
3891: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3892:
3893: pa_debug.g_err_stage := 'ORACLE error while Inserting PA_BC_PACKETS.' ;
3894: FORALL ins_rec IN l_ins_packet_id_tab.FIRST .. l_ins_packet_id_tab.LAST
3895: INSERT
3896: INTO pa_bc_packets( packet_id
3897: ,project_id
3983: END IF; --l_ins_packet_id_tab.COUNT > 0
3984:
3985: l_records_affected := SQL%ROWCOUNT;
3986:
3987: pa_debug.g_err_stage := 'Inserted [' || TO_CHAR(l_records_affected) ||
3988: '] Records into pa_bc_packets.';
3989: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3990:
3991: /*==========================+
3985: l_records_affected := SQL%ROWCOUNT;
3986:
3987: pa_debug.g_err_stage := 'Inserted [' || TO_CHAR(l_records_affected) ||
3988: '] Records into pa_bc_packets.';
3989: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3990:
3991: /*==========================+
3992: | Deleting plsql tables. |
3993: +==========================*/
3990:
3991: /*==========================+
3992: | Deleting plsql tables. |
3993: +==========================*/
3994: pa_debug.g_err_stage := 'Deleting ins plsql tables' ;
3995: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3996:
3997: l_ins_packet_id_tab.DELETE;
3998: l_ins_project_id_tab.DELETE;
3991: /*==========================+
3992: | Deleting plsql tables. |
3993: +==========================*/
3994: pa_debug.g_err_stage := 'Deleting ins plsql tables' ;
3995: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
3996:
3997: l_ins_packet_id_tab.DELETE;
3998: l_ins_project_id_tab.DELETE;
3999: l_ins_task_id_tab.DELETE;
4024:
4025: /*=========================+
4026: | Deleting Summary Cache. |
4027: +=========================*/
4028: pa_debug.g_err_stage := 'Deleting summary cache plsql tables' ;
4029: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
4030:
4031: l_summ_project_id_tab.DELETE;
4032: l_summ_task_id_tab.DELETE;
4025: /*=========================+
4026: | Deleting Summary Cache. |
4027: +=========================*/
4028: pa_debug.g_err_stage := 'Deleting summary cache plsql tables' ;
4029: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
4030:
4031: l_summ_project_id_tab.DELETE;
4032: l_summ_task_id_tab.DELETE;
4033: l_summ_document_header_id_tab.DELETE;
4041: l_summ_expenditure_type_tab.DELETE;
4042: l_summ_source_tab.DELETE;
4043:
4044: l_stage := l_proc_name || ': ' || to_char(500) || ': ';
4045: pa_debug.g_err_stage := 'Committing work!!' ;
4046: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
4047:
4048: COMMIT;
4049:
4042: l_summ_source_tab.DELETE;
4043:
4044: l_stage := l_proc_name || ': ' || to_char(500) || ': ';
4045: pa_debug.g_err_stage := 'Committing work!!' ;
4046: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
4047:
4048: COMMIT;
4049:
4050: pa_debug.g_err_stage := 'Leaving populate_pa_bc_packets_cwk.' ;
4046: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
4047:
4048: COMMIT;
4049:
4050: pa_debug.g_err_stage := 'Leaving populate_pa_bc_packets_cwk.' ;
4051: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
4052:
4053: pa_debug.reset_err_stack;
4054: EXCEPTION
4047:
4048: COMMIT;
4049:
4050: pa_debug.g_err_stage := 'Leaving populate_pa_bc_packets_cwk.' ;
4051: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
4052:
4053: pa_debug.reset_err_stack;
4054: EXCEPTION
4055: WHEN OTHERS
4049:
4050: pa_debug.g_err_stage := 'Leaving populate_pa_bc_packets_cwk.' ;
4051: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
4052:
4053: pa_debug.reset_err_stack;
4054: EXCEPTION
4055: WHEN OTHERS
4056: THEN
4057: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
4053: pa_debug.reset_err_stack;
4054: EXCEPTION
4055: WHEN OTHERS
4056: THEN
4057: pa_debug.write_file(l_stage || pa_debug.g_err_stage);
4058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4059: x_error_code := TO_CHAR(SQLCODE) || SQLERRM ;
4060: x_error_stage := l_stage ;
4061: RAISE;