[Home] [Help]
201: l_choice NUMBER ;
202: BEGIN
203: g_error_procedure_name := 'open_ref_cursor';
204: IF g_debug = 'Y' THEN
205: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
206: END IF;
207:
208: IF p_calling_seq = 'MAXIMIZE_BURDEN' THEN
209: l_choice := 1;
772: order by enc.encumbrance_item_id desc; -- Bug 3697483, changed order by
773: END IF ;
774:
775: IF g_debug = 'Y' THEN
776: gms_error_pkg.gms_debug (g_error_procedure_name||':End','C');
777: END IF;
778: END open_ref_cursor ;
779:
780: -- ----------------------------------------------
861:
862: BEGIN
863: g_error_procedure_name := 'proc_get_award_exp_total';
864: IF g_debug = 'Y' THEN
865: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
866: END IF;
867:
868: x_calc_zero_limit := FALSE ;
869:
985: x_rec_award_exp_tot.AP_burdenable_cost ;
986:
987:
988: IF g_debug = 'Y' THEN
989: gms_error_pkg.gms_debug (g_error_procedure_name||':x_tot_raw:'||x_tot_raw||';'||'x_tot_burden:'||x_tot_burden||';'||'x_cmt_tot_burden:'||x_cmt_tot_burden,'C');
990: END IF;
991:
992: EXCEPTION
993: WHEN RESOURCE_BUSY THEN
991:
992: EXCEPTION
993: WHEN RESOURCE_BUSY THEN
994: IF g_debug = 'Y' THEN
995: gms_error_pkg.gms_debug (g_error_procedure_name||':Resource Busy Exception','C');
996: END IF;
997: -- We couldn't acquire the locks at this time so
998: -- We need to abort the processing and have the
999: -- stataus Failed .
1012: END IF ;
1013:
1014: g_dummy := SQLERRM;
1015: IF g_debug = 'Y' THEN
1016: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
1017: END IF;
1018:
1019: RAISE ;
1020: WHEN others then
1018:
1019: RAISE ;
1020: WHEN others then
1021: IF g_debug = 'Y' THEN
1022: gms_error_pkg.gms_debug (g_error_procedure_name||':When Others Exception','C');
1023: END IF;
1024:
1025: IF get_burden_cost_limit%ISOPEN THEN
1026: CLOSE get_burden_cost_limit ;
1035: END IF ;
1036:
1037: g_dummy := SQLERRM;
1038: IF g_debug = 'Y' THEN
1039: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
1040: END IF;
1041:
1042: RAISE ;
1043: END PROC_GET_AWARD_EXP_TOTAL ;
1109: BEGIN
1110:
1111: g_error_procedure_name := 'create_burden_adjustments';
1112: IF g_debug = 'Y' THEN
1113: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
1114: END IF;
1115:
1116: x_rec_log := p_rec_log ;
1117: x_rec_log.last_update_date := SYSDATE ;
1271:
1272: x_tot_burden:= x_tot_burden + nvl(p_rec_log.adj_burdenable_amount,0) ;
1273:
1274: IF g_debug = 'Y' THEN
1275: gms_error_pkg.gms_debug (g_error_procedure_name||':End','C');
1276: END IF;
1277:
1278: COMMIT; -- R12 Funds Management Uptake : Made this an autonomous procedure.
1279:
1281: When others then
1282:
1283: g_dummy := SQLERRM;
1284: IF g_debug = 'Y' THEN
1285: gms_error_pkg.gms_debug (g_error_procedure_name||':'||l_stage||';'||g_dummy,'C');
1286: END IF;
1287:
1288: RAISE ;
1289: END create_burden_adjustments;
1324: WHEN OTHERS THEN
1325:
1326: g_dummy := SQLERRM;
1327: IF g_debug = 'Y' THEN
1328: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
1329: END IF;
1330:
1331: RAISE ;
1332: END get_prev_unposted_adj ;
1686: BEGIN
1687:
1688: g_error_procedure_name := 'create_adjplus_log';
1689: IF g_debug = 'Y' THEN
1690: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
1691: END IF;
1692:
1693: x_adjusted_amount := 0;
1694: x_dummy := 0 ;
1701: -- The pattern of adjustment used is last in
1702: -- 1st to be adjusted. LIFO.
1703: -- ----------------------------------------------
1704: IF g_debug = 'Y' THEN
1705: gms_error_pkg.gms_debug (g_error_procedure_name||':p_doc_type:'||p_doc_type||';'||'x_dist_id:'||x_dist_id||';'||'p_adj_amount:'||p_adj_amount,'C');
1706: END IF;
1707:
1708:
1709: -- ----------------------------------------------------
1750: into x_adj_allowed
1751: from dual ;
1752:
1753: IF g_debug = 'Y' THEN
1754: gms_error_pkg.gms_debug (g_error_procedure_name||':x_adj_allowed:'||x_adj_allowed,'C');
1755: END IF;
1756:
1757: -- Change request : 2982977
1758: IF NVL( x_adj_allowed, 0) <> 0 THEN
1930: WHEN others then
1931:
1932: g_dummy := SQLERRM;
1933: IF g_debug = 'Y' THEN
1934: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
1935: END IF;
1936:
1937: RAISE ;
1938: END create_adjplus_log ;
1957: BEGIN
1958:
1959: g_error_procedure_name := 'self_adjustment';
1960: IF g_debug = 'Y' THEN
1961: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
1962: END IF;
1963:
1964: x_adj_balance := 0 ;
1965: l_calling_seq := 'SELF_ADJUSTMENT' ;
2121: WHEN others THEN
2122:
2123: g_dummy := SQLERRM;
2124: IF g_debug = 'Y' THEN
2125: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
2126: END IF;
2127:
2128: RAISE ;
2129: END SELF_ADJUSTMENT ;
2185: WHEN others then
2186:
2187: g_dummy := SQLERRM;
2188: IF g_debug = 'Y' THEN
2189: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
2190: END IF;
2191:
2192: RAISE ;
2193: END DERIVE_ADJ_AMOUNT ;
2243: when others then
2244:
2245: g_dummy := SQLERRM;
2246: IF g_debug = 'Y' THEN
2247: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
2248: END IF;
2249:
2250: raise ;
2251: END UPDATE_BC_PACKET ;
2259: BEGIN
2260:
2261: g_error_procedure_name := 'common_logic';
2262: IF g_debug = 'Y' THEN
2263: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
2264: END IF;
2265:
2266: x_burden := 0 ;
2267: x_dummy := 0 ;
2267: x_dummy := 0 ;
2268: p_adj_amount := 0 ;
2269:
2270: IF g_debug = 'Y' THEN
2271: gms_error_pkg.gms_debug (g_error_procedure_name||':p_pkt_amount:'||p_pkt_amount||';'||'p_raw_cost:'||p_raw_cost,'C');
2272: END IF;
2273:
2274: IF p_pkt_amount > 0 THEN
2275:
2332: when others then
2333:
2334: g_dummy := SQLERRM;
2335: IF g_debug = 'Y' THEN
2336: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
2337: END IF;
2338:
2339: raise ;
2340: END COMMON_LOGIC ;
2367: BEGIN
2368:
2369: g_error_procedure_name := 'calc_req_burden';
2370: IF g_debug = 'Y' THEN
2371: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
2372: END IF;
2373:
2374: x_line_num := 0;
2375: req_adj_amount := 0 ;
2490: when others then
2491:
2492: g_dummy := SQLERRM;
2493: IF g_debug = 'Y' THEN
2494: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
2495: END IF;
2496:
2497: Raise ;
2498: END CALC_REQ_BURDEN;
2527:
2528: BEGIN
2529: g_error_procedure_name := 'calc_po_burden';
2530: IF g_debug = 'Y' THEN
2531: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
2532: END IF;
2533:
2534: X_po_dist_id := 0 ;
2535: x_line_num := 0 ;
2635: when others then
2636:
2637: g_dummy := SQLERRM;
2638: IF g_debug = 'Y' THEN
2639: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
2640: END IF;
2641:
2642: Raise ;
2643: END CALC_PO_BURDEN ;
2670:
2671: BEGIN
2672: g_error_procedure_name := 'calc_enc_burden';
2673: IF g_debug = 'Y' THEN
2674: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
2675: END IF;
2676:
2677: x_line_num := 0;
2678: bc_pkt_rec := p_record ;
2729: WHEN others THEN
2730:
2731: g_dummy := SQLERRM;
2732: IF g_debug = 'Y' THEN
2733: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
2734: END IF;
2735:
2736: RAISE ;
2737: END CALC_ENC_BURDEN ;
2815:
2816: BEGIN
2817: g_error_procedure_name := 'net_zero_ap';
2818: IF g_debug = 'Y' THEN
2819: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
2820: END IF;
2821:
2822: x_run_total := 0 ;
2823: x_adj_amount := 0 ;
2877: When others then
2878:
2879: g_dummy := SQLERRM;
2880: IF g_debug = 'Y' THEN
2881: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
2882: END IF;
2883:
2884: RAISE ;
2885: END NET_ZERO_AP ;
3065:
3066: BEGIN
3067: g_error_procedure_name := 'calc_ap_burden';
3068: IF g_debug = 'Y' THEN
3069: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
3070: END IF;
3071:
3072: bc_pkt_rec := p_record ;
3073: bc_pkt_rec.entered_cr := nvl(bc_pkt_rec.entered_cr,0) ;
3368: WHEN others THEN
3369:
3370: g_dummy := SQLERRM;
3371: IF g_debug = 'Y' THEN
3372: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
3373: END IF;
3374:
3375: RAISE ;
3376: END CALC_AP_burden;
3385:
3386: BEGIN
3387: g_error_procedure_name := 'calc_fab_burden';
3388: IF g_debug = 'Y' THEN
3389: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
3390: END IF;
3391:
3392: bc_pkt_rec := p_record ;
3393: bc_pkt_rec.entered_cr := nvl(bc_pkt_rec.entered_cr,0) ;
3437: WHEN others THEN
3438:
3439: g_dummy := SQLERRM;
3440: IF g_debug = 'Y' THEN
3441: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
3442: END IF;
3443:
3444: RAISE ;
3445: END CALC_FAB_burden ;
3465:
3466: BEGIN
3467: g_error_procedure_name := 'calc_exp_burden';
3468: IF g_debug = 'Y' THEN
3469: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
3470: END IF;
3471:
3472: bc_pkt_rec := p_record ;
3473: bc_pkt_rec.entered_cr := nvl(bc_pkt_rec.entered_cr,0) ;
3522: x_rec_award_exp_tot.EXP_burdenable_cost,
3523: exp_adj_amount ) ;
3524:
3525: IF g_debug = 'Y' THEN
3526: gms_error_pkg.gms_debug (g_error_procedure_name||':common logic->burden_raw_cost:'||burden_raw_cost||';'||'exp_adj_amount:'||exp_adj_amount,'C');
3527: END IF;
3528:
3529: /* =================================================================
3530: -- Bug : 2557041 - Added for IP check funds Enhancement
3591: WHEN others THEN
3592:
3593: g_dummy := SQLERRM;
3594: IF g_debug = 'Y' THEN
3595: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
3596: END IF;
3597:
3598: RAISE ;
3599: END CALC_EXP_burden;
3702:
3703: Begin
3704: g_error_procedure_name := 'Maximize_burden';
3705: IF g_debug = 'Y' THEN
3706: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
3707: END IF;
3708: -- ------------------------------------------------------------------+
3709: -- Maximizing common logic
3710: -- ------------------------------------------------------------------+
3719: loop
3720: -- Savepoint
3721: SAVEPOINT RECONCILE1;
3722: IF g_debug = 'Y' THEN
3723: gms_error_pkg.gms_debug (g_error_procedure_name||':Maximize:award/exp:'||x.award_id||';'||x.expenditure_type,'C');
3724: END IF;
3725: -- Cursor and variable defined at package level ..
3726: Open c_lock_burden_summary(x.award_id,x.expenditure_type);
3727: fetch c_lock_burden_summary into l_lock_burden_summary;
3732: g_error_procedure_name := 'Maximize_burden';
3733: -- need to re-initalize g_error_procedure_name
3734:
3735: IF g_debug = 'Y' THEN
3736: gms_error_pkg.gms_debug (g_error_procedure_name||':x_award_exp_limit:'||x_award_exp_limit||';'||'x_tot_burden:'||x_tot_burden||';'||'x_tot_raw:'||x_tot_raw,'C');
3737: END IF;
3738:
3739: -- Check if there is any maximizing scope
3740: If (x_award_exp_limit <= x_tot_burden) -- burden.cost v/s idc limit
3741: OR
3742: (x_tot_raw <= x_tot_burden) -- burden.cost v/s raw.cost
3743: then
3744: IF g_debug = 'Y' THEN
3745: gms_error_pkg.gms_debug (g_error_procedure_name||':No maximization reqd. as burden already maximized','C');
3746: END IF;
3747: -- No maximizing required
3748:
3749: GOTO END_OF_PROCESS;
3755: -- case idc:75, raw:80 and burden:70 , x_avail_burden_amt = 5
3756: x_avail_burden_amt := least(x_award_exp_limit,x_tot_raw) - x_tot_burden;
3757:
3758: IF g_debug = 'Y' THEN
3759: gms_error_pkg.gms_debug (g_error_procedure_name||':x_avail_burden_amt:'||x_avail_burden_amt,'C');
3760: END IF;
3761:
3762: -- If nothing to apply then no maximizing required.
3763: If x_avail_burden_amt <= 0 then
3762: -- If nothing to apply then no maximizing required.
3763: If x_avail_burden_amt <= 0 then
3764: -- No maximizing required
3765: IF g_debug = 'Y' THEN
3766: gms_error_pkg.gms_debug (g_error_procedure_name||':No maximization reqd. as no burden left to maximize','C');
3767: END IF;
3768:
3769: GOTO END_OF_PROCESS;
3770: End If;
3797: End If;
3798: End loop; -- Bcpkt record loop
3799:
3800: IF g_debug = 'Y' THEN
3801: gms_error_pkg.gms_debug (g_error_procedure_name||':After max. packet,x_avail_burden_amt:'||x_avail_burden_amt,'C');
3802: END IF;
3803:
3804: If x_avail_burden_amt = 0 then
3805: -- No maximizing required
3803:
3804: If x_avail_burden_amt = 0 then
3805: -- No maximizing required
3806: IF g_debug = 'Y' THEN
3807: gms_error_pkg.gms_debug (g_error_procedure_name||':Packet maximized,No further maximization reqd. as x_avail_burden_amt:'||x_avail_burden_amt,'C');
3808: END IF;
3809:
3810: GOTO END_OF_PROCESS;
3811: End If;
3829: If x_doc_adj%notfound THEN
3830: -- A.1 if no AP records exist .. exit out for award/exp type ..
3831: IF g_debug = 'Y' THEN
3832: g_error_procedure_name := 'Maximize_Burden';
3833: gms_error_pkg.gms_debug (g_error_procedure_name||':No AP txns. to maximize - Exiting, Burden available to max:'||x_avail_burden_amt,'C');
3834: END IF;
3835:
3836: Close x_doc_adj ;
3837: exit ;
3838: End If;
3839:
3840: g_error_procedure_name := 'Maximize_Burden';
3841: IF g_debug = 'Y' THEN
3842: gms_error_pkg.gms_debug (g_error_procedure_name||':AP txns:header_id,raw.cost,burden.cost:'||c_rec.header_id||';'||c_rec.amount||';'||c_rec.burden,'C');
3843: END IF;
3844:
3845: -- A.2 Check if its a NET zero AP .
3846: Open AP_ZERO_INVOICE(c_rec.header_id,x.award_id,x.expenditure_type);
3848: Close AP_ZERO_INVOICE ;
3849:
3850: If x_temp = 0 THEN
3851: IF g_debug = 'Y' THEN
3852: gms_error_pkg.gms_debug (g_error_procedure_name||':Skipping AP txns:net zero AP','C');
3853: END IF;
3854:
3855: GOTO SKIP_THIS;
3856: End If;
3855: GOTO SKIP_THIS;
3856: End If;
3857:
3858: IF g_debug = 'Y' THEN
3859: gms_error_pkg.gms_debug (g_error_procedure_name||':After Net Zero Check','C');
3860: END IF;
3861:
3862: -- A.3 What is the burden amount that can be updated on this transaction ..
3863: If (c_rec.amount - c_rec.burden) >= x_avail_burden_amt then
3870: -- Only a portion of the available burden can be updated on this txn.
3871: End If;
3872:
3873: IF g_debug = 'Y' THEN
3874: gms_error_pkg.gms_debug (g_error_procedure_name||':X_burden_amt_to_update_on_txn:'||X_burden_amt_to_update_on_txn,'C');
3875: END IF;
3876:
3877: -- A.4 Get burden_calculation_seq (adjustment_id) and set values (Common)
3878: select gms_adjustments_id_s.NEXTVAL
3896: x_rec_log.creation_date := sysdate;
3897: x_rec_log.last_update_login := -1;
3898:
3899: IF g_debug = 'Y' THEN
3900: gms_error_pkg.gms_debug (g_error_procedure_name||':before loop:X_burden_amt_to_update_on_txn:'||X_burden_amt_to_update_on_txn,'C');
3901: END IF;
3902:
3903: -- A.5 Get bcpkt transaction that caused this burden maximization
3904: For z in c_bcpkts_max(x.award_id,x.expenditure_type)
3929: End if;
3930: End Loop; -- bcpkt loop
3931:
3932: IF g_debug = 'Y' THEN
3933: gms_error_pkg.gms_debug (g_error_procedure_name||':After loop:X_burden_amt_to_update_on_txn:'||X_burden_amt_to_update_on_txn,'C');
3934: END IF;
3935:
3936: If X_burden_amt_to_update_on_txn <> 0 then
3937: -- A.8 There are no records in bcpkts that can account for the available
3953:
3954: End If;
3955:
3956: IF g_debug = 'Y' THEN
3957: gms_error_pkg.gms_debug (g_error_procedure_name||':After all bckpt:X_burden_amt_to_update_on_txn:'||X_burden_amt_to_update_on_txn,'C');
3958: END IF;
3959:
3960: IF g_debug = 'Y' THEN
3961: gms_error_pkg.gms_debug (g_error_procedure_name||':After all bckpt:x_avail_burden_amt:'||x_avail_burden_amt,'C');
3957: gms_error_pkg.gms_debug (g_error_procedure_name||':After all bckpt:X_burden_amt_to_update_on_txn:'||X_burden_amt_to_update_on_txn,'C');
3958: END IF;
3959:
3960: IF g_debug = 'Y' THEN
3961: gms_error_pkg.gms_debug (g_error_procedure_name||':After all bckpt:x_avail_burden_amt:'||x_avail_burden_amt,'C');
3962: END IF;
3963:
3964: -- A.10 No more burden available to maximize, go to next award/exp type ..
3965: -- else continue with the next AP transaction
3984: Exception
3985: When no_data_found then
3986: g_dummy := SQLERRM;
3987: IF g_debug = 'Y' THEN
3988: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
3989: END IF;
3990:
3991: If x_stage < 30 then
3992: ROLLBACK TO RECONCILE1;
3998: When others then
3999:
4000: g_dummy := SQLERRM;
4001: IF g_debug = 'Y' THEN
4002: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
4003: END IF;
4004:
4005: If x_stage < 30 then
4006: ROLLBACK TO RECONCILE1;
4051:
4052: BEGIN
4053:
4054: IF g_debug = 'Y' THEN
4055: gms_error_pkg.gms_debug ('UPDATE_BC_PKT_BRC_BVID_STATUS' ||': Start'||l_count,'C');
4056: END IF;
4057:
4058: IF p_action = g_update_brc THEN
4059:
4057:
4058: IF p_action = g_update_brc THEN
4059:
4060: IF g_debug = 'Y' THEN
4061: gms_error_pkg.gms_debug ('UPDATE_BC_PKT_BRC_BVID_STATUS'||': Burdenable Raw cost update :','C');
4062: END IF;
4063:
4064: /* --------------------------------------------------------------------
4065: -- This update will take care of 3 scenarios:
4089: AND status_code in ('P','I');
4090:
4091: l_count := SQL%ROWCOUNT;
4092:
4093: gms_error_pkg.gms_debug ('UPDATE_BC_PKT_BRC_BVID_STATUS'||'Burden Calculation Sequence Updated on :'||l_count||' records with packet id '||p_packet_id,'C');
4094:
4095: /*bug 11845832:End Adding the abve update statement for burden calculation seq*/
4096:
4097:
4130:
4131: l_count := SQL%ROWCOUNT;
4132:
4133: IF g_debug = 'Y' THEN
4134: gms_error_pkg.gms_debug ('UPDATE_BC_PKT_BRC_BVID_STATUS'||':Burdenable raw Cost Updated on :'||l_count||' records','C');
4135: END IF;
4136:
4137: ELSIF p_action = g_update_status THEN
4138:
4136:
4137: ELSIF p_action = g_update_status THEN
4138:
4139: IF g_debug = 'Y' THEN
4140: gms_error_pkg.gms_debug ('UPDATE_BC_PKT_BRC_BVID_STATUS'||': Result Code update :','C');
4141: END IF;
4142:
4143: update gms_bc_packets
4144: set result_code = x_result_code
4148:
4149: l_count := SQL%ROWCOUNT;
4150:
4151: IF g_debug = 'Y' THEN
4152: gms_error_pkg.gms_debug ('UPDATE_BC_PKT_BRC_BVID_STATUS'||':result code '||x_result_code||' Updated on :'||l_count||' records','C');
4153: END IF;
4154:
4155:
4156: If p_full_mode_failure = 'Y' then -- Encumbrance : PO/AP/REQ
4161:
4162: l_count := SQL%ROWCOUNT;
4163:
4164: IF g_debug = 'Y' THEN
4165: gms_error_pkg.gms_debug ('UPDATE_BC_PKT_BRC_BVID_STATUS'||':F65 (full mode failure) Updated on :'||l_count||' records','C');
4166: END IF;
4167:
4168: END IF;
4169:
4174: -- checks for gms_bc_packet trasnactions that has a baselined budget only
4175: -- during summarization ...
4176:
4177: IF g_debug = 'Y' THEN
4178: gms_error_pkg.gms_debug ('UPDATE_BC_PKT_BRC_BVID_STATUS'||': Budget version Id update :','C');
4179: END IF;
4180:
4181: Update gms_bc_packets bcp
4182: set bcp.budget_version_id = (select gbv.budget_version_id
4200: and bcp.expenditure_type = p_expenditure_type
4201: and bcp.budget_version_id is null);
4202:
4203: IF g_debug = 'Y' THEN
4204: gms_error_pkg.gms_debug ('UPDATE_BC_PKT_BRC_BVID_STATUS'||':Budget version id failure: Award,Exp.type:'||p_award_id||';'||p_expenditure_type,'C');
4205: END IF;
4206:
4207: x_result_code := 'F';
4208:
4217:
4218: If p_full_mode_failure = 'Y' then -- Encumbrance : PO/AP/REQ
4219:
4220: IF g_debug = 'Y' THEN
4221: gms_error_pkg.gms_debug ('UPDATE_BC_PKT_BRC_BVID_STATUS'||':Budget version id failure: Full mode failure','C');
4222: END IF;
4223:
4224: Update gms_bc_packets
4225: set status_code = decode(p_mode,'C','F','R'),
4239:
4240: EXCEPTION
4241: when others then
4242: IF g_debug = 'Y' THEN
4243: gms_error_pkg.gms_debug ('UPDATE_BC_PKT_BRC_BVID_STATUS'||':When Others Exception','C');
4244: END IF;
4245:
4246: raise;
4247: END update_bc_pkt_brc_bvid_status;
4297: g_update_status := 'UPDATE-STATUS';
4298: g_update_bvid := 'UPDATE-BVID';
4299: g_update_brc := 'UPDATE-BRC';
4300:
4301: gms_error_pkg.set_debug_context;
4302:
4303: IF g_debug = 'Y' THEN
4304: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
4305: END IF;
4300:
4301: gms_error_pkg.set_debug_context;
4302:
4303: IF g_debug = 'Y' THEN
4304: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
4305: END IF;
4306:
4307: SAVEPOINT SAVE_CALC_PROCESS ;
4308: X_err_stage := 'STG_13_STR' ;
4539:
4540: IF NOT ( g_actual_flag ='E' AND p_mode <> 'E') THEN -- For AP/PO/REQ records
4541:
4542: IF g_debug = 'Y' THEN
4543: gms_error_pkg.gms_debug (g_error_procedure_name||':Call Maximize_burden','C');
4544: END IF;
4545:
4546: Maximize_burden(x_packet_id);
4547: --PROC_RECONCILE_DOCUMENT(x_packet_id);
4550:
4551: X_err_stage := 'STG_21_END' ;
4552:
4553: IF g_debug = 'Y' THEN
4554: gms_error_pkg.gms_debug (g_error_procedure_name||':End','C');
4555: END IF;
4556:
4557: return TRUE;
4558:
4634: BEGIN
4635: g_error_program_name := 'Gms_cost_plus_extn';
4636: g_error_procedure_name := 'Update_source_burden_raw_cost' ;
4637:
4638: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
4639:
4640: -- Kept this code in a loop operation as burden posted_flag needs to be updated
4641: -- on records that has been posted to ADL (critical update) ..
4642: -- If update fails, fail packet, packet failed as if any adjsuting line fails then
4715: END IF ;
4716:
4717: END LOOP;
4718:
4719: gms_error_pkg.gms_debug (g_error_procedure_name||':End','C');
4720:
4721: RETURN TRUE;
4722:
4723: EXCEPTION
4723: EXCEPTION
4724: When Others then
4725: l_error:= SUBSTR(SQLERRM,1,1000);
4726:
4727: gms_error_pkg.gms_debug ('***********'||g_error_procedure_name||':FAILURE:'||l_error,'C');
4728:
4729: ROLLBACK TO POST_BURDEN;
4730:
4731: Update gms_bc_packets