[Home] [Help]
1087: -- ----------------------------------------------------------------------------------------------------
1088: -- -------------------------------------------------------------------------
1089: -- create_burden_adjustments : Function creates burden adjusmtent entry in gms_bc_packets
1090: -- -------------------------------------------------------------------------
1091: PROCEDURE create_burden_adjustments(p_rec_log gms_burden_adjustments_log%ROWTYPE,
1092: p_project_id pa_projects_all.project_id%type,
1093: p_task_id pa_tasks.task_id%type,
1094: p_expenditure_item_date gms_bc_packets.expenditure_item_date%type,
1095: p_expenditure_org_id gms_bc_packets.expenditure_organization_id%type,
1098: p_ind_compiled_set_id gms_bc_packets.ind_compiled_set_id%type
1099: ) IS
1100: PRAGMA AUTONOMOUS_TRANSACTION; -- R12 Funds Management Uptake : Made this an autonomous procedure.
1101:
1102: x_rec_log gms_burden_adjustments_log%ROWTYPE ;
1103: l_top_task_id gms_bc_packets.top_task_id%type;
1104: l_parent_resource_id gms_bc_packets.parent_resource_id%type;
1105: l_budget_version_id gms_bc_packets.budget_version_id%type;
1106:
1657: x_doc_dist_id NUMBER ;
1658: x_hdr_id NUMBER ;
1659: x_we_are_done BOOLEAN ;
1660: x_doc_type varchar2(3) ;
1661: x_rec_log gms_burden_adjustments_log%ROWTYPE ;
1662: x_adj_allowed NUMBER ;
1663: l_calling_seq varchar2(30) ;
1664: C_doc_ADJ c_adj_rec ;
1665: adj_rec commitRecTyp ;
1949: x_diff NUMBER ;
1950: X_done BOOLEAN ;
1951: X_doc_ADJ c_adj_rec ;
1952: C_REC commitRecTyp ;
1953: X_rec_log gms_burden_adjustments_log%ROWTYPE ;
1954: x_adj_balance NUMBER ;
1955: l_calling_seq varchar2(30) ;
1956:
1957: BEGIN
2350: req_adj_amount NUMBER ;
2351: bc_pkt_rec bc_packets%rowtype;
2352: req_burden NUMBER ;
2353: x_dummy NUMBER ;
2354: x_rec_log gms_burden_adjustments_log%ROWTYPE ;
2355:
2356: CURSOR C_req is
2357: SELECT adl.burdenable_raw_cost burden_amount,
2358: adl.adl_line_num,
2510: x_dummy NUMBER ;
2511: po_adj_amount NUMBER ;
2512: x_adjustment_id NUMBER ;
2513:
2514: x_rec_log gms_burden_adjustments_log%ROWTYPE ;
2515: bc_pkt_rec bc_packets%rowtype;
2516:
2517: cursor po_dist_records is
2518: select nvl(adl.burdenable_raw_cost,0) ,
2653: x_enc_burden NUMBER ;
2654: enc_adj_amount NUMBER ;
2655: burden_raw_cost number;
2656:
2657: x_rec_log gms_burden_adjustments_log%ROWTYPE ;
2658: bc_pkt_rec bc_packets%rowtype;
2659:
2660: cursor ENC_record is
2661: select nvl(adl.burdenable_raw_cost,0) ,
2743: x_adj_amount NUMBER ;
2744: x_dummy NUMBER ;
2745: x_line_num NUMBER ;
2746: x_adjustment_id NUMBER ;
2747: x_rec_log gms_burden_adjustments_log%ROWTYPE ;
2748:
2749: cursor AP_ZERO_INVOICE is
2750: select nvl(apd.base_amount,apd.amount) amount , --Bug 2472802
2751: nvl(adl.burdenable_raw_cost,0) burden,
2894: x_dummy NUMBER ;
2895: burden_raw_cost number;
2896: AP_adj_amount NUMBER ;
2897: x_adj_amount NUMBER ;
2898: x_rec_log gms_burden_adjustments_log%ROWTYPE ;
2899: bc_pkt_rec bc_packets%rowtype;
2900: AP_adjustment BOOLEAN ;
2901: x_AP_TYPE VARCHAR2(20) ;
2902: x_credit BOOLEAN ;
3451: x_line_num NUMBER ;
3452: x_dummy NUMBER ;
3453: burden_raw_cost number;
3454: exp_adj_amount NUMBER ;
3455: x_rec_log gms_burden_adjustments_log%ROWTYPE ;
3456: bc_pkt_rec bc_packets%rowtype;
3457: exp_adjustment BOOLEAN ;
3458:
3459: -- =================================================================================
3649: -- Variable to hold stage
3650: x_stage number(2);
3651:
3652: -- --------------------------------------------------------------+
3653: x_rec_log gms_burden_adjustments_log%ROWTYPE ;
3654: x_doc_adj c_adj_rec ;
3655: c_rec commitRecTyp ;
3656: x_temp NUMBER ;
3657: x_adjustment_id NUMBER ;