[Home] [Help]
820: -- ----------------------------------------------------------------------------------------------------
821: -- -------------------------------------------------------------------------
822: -- create_burden_adjustments : Function creates burden adjusmtent entry in gms_bc_packets
823: -- -------------------------------------------------------------------------
824: PROCEDURE create_burden_adjustments(p_rec_log gms_burden_adjustments_log%ROWTYPE,
825: p_project_id pa_projects_all.project_id%type,
826: p_task_id pa_tasks.task_id%type,
827: p_expenditure_item_date gms_bc_packets.expenditure_item_date%type,
828: p_expenditure_org_id gms_bc_packets.expenditure_organization_id%type,
831: p_ind_compiled_set_id gms_bc_packets.ind_compiled_set_id%type
832: ) IS
833: PRAGMA AUTONOMOUS_TRANSACTION; -- R12 Funds Management Uptake : Made this an autonomous procedure.
834:
835: x_rec_log gms_burden_adjustments_log%ROWTYPE ;
836: l_top_task_id gms_bc_packets.top_task_id%type;
837: l_parent_resource_id gms_bc_packets.parent_resource_id%type;
838: l_budget_version_id gms_bc_packets.budget_version_id%type;
839:
1390: x_doc_dist_id NUMBER ;
1391: x_hdr_id NUMBER ;
1392: x_we_are_done BOOLEAN ;
1393: x_doc_type varchar2(3) ;
1394: x_rec_log gms_burden_adjustments_log%ROWTYPE ;
1395: x_adj_allowed NUMBER ;
1396: l_calling_seq varchar2(30) ;
1397: C_doc_ADJ c_adj_rec ;
1398: adj_rec commitRecTyp ;
1682: x_diff NUMBER ;
1683: X_done BOOLEAN ;
1684: X_doc_ADJ c_adj_rec ;
1685: C_REC commitRecTyp ;
1686: X_rec_log gms_burden_adjustments_log%ROWTYPE ;
1687: x_adj_balance NUMBER ;
1688: l_calling_seq varchar2(30) ;
1689:
1690: BEGIN
2083: req_adj_amount NUMBER ;
2084: bc_pkt_rec bc_packets%rowtype;
2085: req_burden NUMBER ;
2086: x_dummy NUMBER ;
2087: x_rec_log gms_burden_adjustments_log%ROWTYPE ;
2088:
2089: CURSOR C_req is
2090: SELECT adl.burdenable_raw_cost burden_amount,
2091: adl.adl_line_num,
2243: x_dummy NUMBER ;
2244: po_adj_amount NUMBER ;
2245: x_adjustment_id NUMBER ;
2246:
2247: x_rec_log gms_burden_adjustments_log%ROWTYPE ;
2248: bc_pkt_rec bc_packets%rowtype;
2249:
2250: cursor po_dist_records is
2251: select nvl(adl.burdenable_raw_cost,0) ,
2386: x_enc_burden NUMBER ;
2387: enc_adj_amount NUMBER ;
2388: burden_raw_cost number;
2389:
2390: x_rec_log gms_burden_adjustments_log%ROWTYPE ;
2391: bc_pkt_rec bc_packets%rowtype;
2392:
2393: cursor ENC_record is
2394: select nvl(adl.burdenable_raw_cost,0) ,
2476: x_adj_amount NUMBER ;
2477: x_dummy NUMBER ;
2478: x_line_num NUMBER ;
2479: x_adjustment_id NUMBER ;
2480: x_rec_log gms_burden_adjustments_log%ROWTYPE ;
2481:
2482: cursor AP_ZERO_INVOICE is
2483: select nvl(apd.base_amount,apd.amount) amount , --Bug 2472802
2484: nvl(adl.burdenable_raw_cost,0) burden,
2594: x_dummy NUMBER ;
2595: burden_raw_cost number;
2596: AP_adj_amount NUMBER ;
2597: x_adj_amount NUMBER ;
2598: x_rec_log gms_burden_adjustments_log%ROWTYPE ;
2599: bc_pkt_rec bc_packets%rowtype;
2600: AP_adjustment BOOLEAN ;
2601: x_AP_TYPE VARCHAR2(20) ;
2602: x_credit BOOLEAN ;
3087: x_line_num NUMBER ;
3088: x_dummy NUMBER ;
3089: burden_raw_cost number;
3090: exp_adj_amount NUMBER ;
3091: x_rec_log gms_burden_adjustments_log%ROWTYPE ;
3092: bc_pkt_rec bc_packets%rowtype;
3093: exp_adjustment BOOLEAN ;
3094:
3095: -- =================================================================================
3285: -- Variable to hold stage
3286: x_stage number(2);
3287:
3288: -- --------------------------------------------------------------+
3289: x_rec_log gms_burden_adjustments_log%ROWTYPE ;
3290: x_doc_adj c_adj_rec ;
3291: c_rec commitRecTyp ;
3292: x_temp NUMBER ;
3293: x_adjustment_id NUMBER ;