[Home] [Help]
567:
568: -- curosr to check po record exists in packets before updating the summary record flag
569: cursor cur_potrxs IS
570: select 'Y'
571: from dual
572: where exists (select null
573: from pa_bc_packets pkt
574: where pkt.packet_id = p_packet_id
575: and pkt.document_type = 'PO'
622: ,l_expenditure_type varchar2
623: ,l_bd_disp_method varchar2
624: ,l_line_type varchar2 ) IS
625: select 'Y'
626: from dual
627: Where exists
628: (select null
629: from pa_bc_commitments_all comm
630: where comm.project_id = l_project_id
652: ,l_expenditure_type varchar2
653: ,l_bd_disp_method varchar2
654: ,l_line_type varchar2 ) IS
655: select 'Y'
656: from dual
657: where exists
658: (select null
659: from pa_bc_packets pkts1
660: where pkts1.document_line_id is NOT NULL
1094: l_packet_id number;
1095:
1096: CURSOR cur_packet IS
1097: SELECT gl_bc_packets_s.nextval
1098: FROM dual;
1099:
1100: l_request_id NUMBER := fnd_global.conc_request_id();
1101: l_program_id NUMBER := fnd_global.conc_program_id();
1102: l_program_application_id NUMBER:= fnd_global.prog_appl_id();
1781:
1782: -- Bug 5406690
1783: select pa_bc_packets_s.nextval
1784: into g_tab_bc_packet_id(p_new_rec_index)
1785: from dual;
1786:
1787: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
1788: pa_funds_control_pkg.log_message(p_msg_token1 => 'COPY_AP_RECORD - End');
1789: End if;
1946: SELECT DECODE(SIGN(p_variance),-1,0, p_variance) entered_dr,
1947: DECODE(SIGN(p_variance),-1,ABS(p_variance),0) entered_cr,
1948: DECODE(SIGN(p_base_variance),-1,0, p_base_variance) accounted_dr,
1949: DECODE(SIGN(p_base_variance),-1,ABS(p_base_variance),0) accounted_cr
1950: FROM dual;
1951:
1952: BEGIN
1953:
1954: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
2699: --R12 : Application of Prepayment matched to PO will not be fundschecked
2700: --Bug 5490378 : NONREC_TAX associated with prepay line should be filtered out
2701: AND NOT EXISTS
2702: ( SELECT 1
2703: FROM dual
2704: WHERE apd.line_type_lookup_code IN ('PREPAY','NONREC_TAX')
2705: AND apd.prepay_distribution_id IS NOT NULL
2706: AND apd.po_distribution_id IS NOT NULL)
2707: -- Bug 5562245 : As part of PSA bug 5563122 fix ,code logic has been modified such that
3214: -- Bug 5406690
3215: FOR i IN 1..g_tab_doc_header_id.count LOOP
3216: select pa_bc_packets_s.nextval
3217: into g_tab_bc_packet_id(i)
3218: from dual;
3219: END LOOP;
3220:
3221: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
3222: 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);
3758: IF g_tab_set_of_books_id.count <> 0 THEN
3759:
3760: SELECT gl_bc_packets_s.nextval
3761: INTO l_packet_id
3762: FROM dual;
3763:
3764: IF pa_funds_control_pkg.g_debug_mode = 'Y' THEN
3765: pa_funds_control_pkg.log_message(p_msg_token1 => 'l_packet_id = '||l_packet_id);
3766: End if;
4066: DECODE(g_tab_doc_type(i),'PO',g_tab_po_release_id(i),NULL),
4067: g_tab_enc_type_id(i),
4068: PA_FUNDS_CONTROL_UTILS.get_encum_type_id(g_tab_project_id(i),'STD')
4069: FROM
4070: dual
4071: WHERE g_tab_fck_reqd_flag(i) in ('R','Y')
4072: -- fck_reqd_flag R - year end rollover
4073: AND ( nvl(g_tab_status_code(i),'P') <> 'V'
4074: and nvl(g_tab_result_code(i),'P') <> 'P113'
8457: expend.incurred_by_person_id,
8458: exp.inventory_item_id),-1)
8459: UNION ALL
8460: SELECT l_doc_header_id_tbl(i),l_doc_distribution_id_tbl(i),l_expenditure_type_tbl(i)
8461: FROM dual
8462: WHERE l_cdl_line_type_tbl(i) ='D' )
8463: AND bc_cm.transfer_status_code in ('P','R','X')
8464: AND bc_cm.document_type = 'AP'
8465: AND bc_cm.burden_cost_flag = 'R'
8570: )
8571: CONNECT BY PRIOR peia.transferred_from_exp_item_id = peia.expenditure_item_id
8572: UNION ALL
8573: select l_Exp_Item_Id_tbl(i),l_expenditure_type_tbl(i)
8574: from dual
8575: where l_system_linkage_function_tbl(i) IN ('ST','OT','VI')
8576: AND l_cdl_line_type_tbl(i) ='D')
8577: and bc_cm.transfer_status_code in ('P','R','X')
8578: and bc_cm.document_type = 'PO'