[Home] [Help]
582:
583: -- curosr to check po record exists in packets before updating the summary record flag
584: cursor cur_potrxs IS
585: select 'Y'
586: from dual
587: where exists (select null
588: from pa_bc_packets pkt
589: where pkt.packet_id = p_packet_id
590: and pkt.document_type = 'PO'
637: ,l_expenditure_type varchar2
638: ,l_bd_disp_method varchar2
639: ,l_line_type varchar2 ) IS
640: select 'Y'
641: from dual
642: Where exists
643: (select null
644: from pa_bc_commitments_all comm
645: where comm.project_id = l_project_id
667: ,l_expenditure_type varchar2
668: ,l_bd_disp_method varchar2
669: ,l_line_type varchar2 ) IS
670: select 'Y'
671: from dual
672: where exists
673: (select null
674: from pa_bc_packets pkts1
675: where pkts1.document_line_id is NOT NULL
1109: l_packet_id number;
1110:
1111: CURSOR cur_packet IS
1112: SELECT gl_bc_packets_s.nextval
1113: FROM dual;
1114:
1115: l_request_id NUMBER := fnd_global.conc_request_id();
1116: l_program_id NUMBER := fnd_global.conc_program_id();
1117: l_program_application_id NUMBER:= fnd_global.prog_appl_id();
1827:
1828: -- Bug 5406690
1829: select pa_bc_packets_s.nextval
1830: into g_tab_bc_packet_id(p_new_rec_index)
1831: from dual;
1832:
1833: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
1834: pa_funds_control_pkg.log_message(p_msg_token1 => 'COPY_AP_RECORD - End');
1835: End if;
1992: SELECT DECODE(SIGN(p_variance),-1,0, p_variance) entered_dr,
1993: DECODE(SIGN(p_variance),-1,ABS(p_variance),0) entered_cr,
1994: DECODE(SIGN(p_base_variance),-1,0, p_base_variance) accounted_dr,
1995: DECODE(SIGN(p_base_variance),-1,ABS(p_base_variance),0) accounted_cr
1996: FROM dual;
1997:
1998: BEGIN
1999:
2000: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
2746: --R12 : Application of Prepayment matched to PO will not be fundschecked
2747: --Bug 5490378 : NONREC_TAX associated with prepay line should be filtered out
2748: AND NOT EXISTS
2749: ( SELECT 1
2750: FROM dual
2751: WHERE apd.line_type_lookup_code IN ('PREPAY','NONREC_TAX')
2752: AND apd.prepay_distribution_id IS NOT NULL
2753: AND apd.po_distribution_id IS NOT NULL)
2754: -- Bug 5562245 : As part of PSA bug 5563122 fix ,code logic has been modified such that
2814: AND apd.po_distribution_id IS NULL )
2815: OR apinv.invoice_type_lookup_code <> 'PREPAYMENT')
2816: AND NOT EXISTS
2817: ( SELECT 1
2818: FROM dual
2819: WHERE apd.line_type_lookup_code IN ('PREPAY','NONREC_TAX')
2820: AND apd.prepay_distribution_id IS NOT NULL
2821: AND apd.po_distribution_id IS NOT NULL)
2822: AND NOT EXISTS ( SELECT 1
3493: -- Bug 5406690
3494: FOR i IN 1..g_tab_doc_header_id.count LOOP
3495: select pa_bc_packets_s.nextval
3496: into g_tab_bc_packet_id(i)
3497: from dual;
3498: END LOOP;
3499:
3500: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
3501: pa_funds_control_pkg.log_message(p_msg_token1 => 'Number of records fetched from AP extract into plsql tables'||g_tab_doc_header_id.count);
4043: IF g_tab_set_of_books_id.count <> 0 THEN
4044:
4045: SELECT gl_bc_packets_s.nextval
4046: INTO l_packet_id
4047: FROM dual;
4048:
4049: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
4050: pa_funds_control_pkg.log_message(p_msg_token1 => 'l_packet_id = '||l_packet_id);
4051: End if;
4351: DECODE(g_tab_doc_type(i),'PO',g_tab_po_release_id(i),NULL),
4352: g_tab_enc_type_id(i),
4353: PA_FUNDS_CONTROL_UTILS.get_encum_type_id(g_tab_project_id(i),'STD')
4354: FROM
4355: dual
4356: WHERE g_tab_fck_reqd_flag(i) in ('R','Y')
4357: -- fck_reqd_flag R - year end rollover
4358: AND ( nvl(g_tab_status_code(i),'P') <> 'V'
4359: and nvl(g_tab_result_code(i),'P') <> 'P113'
8838: expend.incurred_by_person_id,
8839: exp.inventory_item_id),-1)
8840: UNION ALL
8841: SELECT l_doc_header_id_tbl(i),l_doc_distribution_id_tbl(i),l_expenditure_type_tbl(i)
8842: FROM dual
8843: WHERE l_cdl_line_type_tbl(i) ='D' )
8844: AND bc_cm.transfer_status_code in ('P','R','X')
8845: AND bc_cm.document_type = 'AP'
8846: AND bc_cm.burden_cost_flag = 'R'
8951: )
8952: CONNECT BY PRIOR peia.transferred_from_exp_item_id = peia.expenditure_item_id
8953: UNION ALL
8954: select l_Exp_Item_Id_tbl(i),l_expenditure_type_tbl(i)
8955: from dual
8956: where l_system_linkage_function_tbl(i) IN ('ST','OT','VI')
8957: AND l_cdl_line_type_tbl(i) ='D')
8958: and bc_cm.transfer_status_code in ('P','R','X')
8959: and bc_cm.document_type = 'PO'