[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;
505: order by enc.encumbrance_item_id desc; -- Bug 3697483, changed order by
506: END IF ;
507:
508: IF g_debug = 'Y' THEN
509: gms_error_pkg.gms_debug (g_error_procedure_name||':End','C');
510: END IF;
511: END open_ref_cursor ;
512:
513: -- ----------------------------------------------
594:
595: BEGIN
596: g_error_procedure_name := 'proc_get_award_exp_total';
597: IF g_debug = 'Y' THEN
598: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
599: END IF;
600:
601: x_calc_zero_limit := FALSE ;
602:
718: x_rec_award_exp_tot.AP_burdenable_cost ;
719:
720:
721: IF g_debug = 'Y' THEN
722: 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');
723: END IF;
724:
725: EXCEPTION
726: WHEN RESOURCE_BUSY THEN
724:
725: EXCEPTION
726: WHEN RESOURCE_BUSY THEN
727: IF g_debug = 'Y' THEN
728: gms_error_pkg.gms_debug (g_error_procedure_name||':Resource Busy Exception','C');
729: END IF;
730: -- We couldn't acquire the locks at this time so
731: -- We need to abort the processing and have the
732: -- stataus Failed .
745: END IF ;
746:
747: g_dummy := SQLERRM;
748: IF g_debug = 'Y' THEN
749: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
750: END IF;
751:
752: RAISE ;
753: WHEN others then
751:
752: RAISE ;
753: WHEN others then
754: IF g_debug = 'Y' THEN
755: gms_error_pkg.gms_debug (g_error_procedure_name||':When Others Exception','C');
756: END IF;
757:
758: IF get_burden_cost_limit%ISOPEN THEN
759: CLOSE get_burden_cost_limit ;
768: END IF ;
769:
770: g_dummy := SQLERRM;
771: IF g_debug = 'Y' THEN
772: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
773: END IF;
774:
775: RAISE ;
776: END PROC_GET_AWARD_EXP_TOTAL ;
842: BEGIN
843:
844: g_error_procedure_name := 'create_burden_adjustments';
845: IF g_debug = 'Y' THEN
846: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
847: END IF;
848:
849: x_rec_log := p_rec_log ;
850: x_rec_log.last_update_date := SYSDATE ;
1004:
1005: x_tot_burden:= x_tot_burden + nvl(p_rec_log.adj_burdenable_amount,0) ;
1006:
1007: IF g_debug = 'Y' THEN
1008: gms_error_pkg.gms_debug (g_error_procedure_name||':End','C');
1009: END IF;
1010:
1011: COMMIT; -- R12 Funds Management Uptake : Made this an autonomous procedure.
1012:
1014: When others then
1015:
1016: g_dummy := SQLERRM;
1017: IF g_debug = 'Y' THEN
1018: gms_error_pkg.gms_debug (g_error_procedure_name||':'||l_stage||';'||g_dummy,'C');
1019: END IF;
1020:
1021: RAISE ;
1022: END create_burden_adjustments;
1057: WHEN OTHERS THEN
1058:
1059: g_dummy := SQLERRM;
1060: IF g_debug = 'Y' THEN
1061: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
1062: END IF;
1063:
1064: RAISE ;
1065: END get_prev_unposted_adj ;
1419: BEGIN
1420:
1421: g_error_procedure_name := 'create_adjplus_log';
1422: IF g_debug = 'Y' THEN
1423: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
1424: END IF;
1425:
1426: x_adjusted_amount := 0;
1427: x_dummy := 0 ;
1434: -- The pattern of adjustment used is last in
1435: -- 1st to be adjusted. LIFO.
1436: -- ----------------------------------------------
1437: IF g_debug = 'Y' THEN
1438: 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');
1439: END IF;
1440:
1441:
1442: -- ----------------------------------------------------
1483: into x_adj_allowed
1484: from dual ;
1485:
1486: IF g_debug = 'Y' THEN
1487: gms_error_pkg.gms_debug (g_error_procedure_name||':x_adj_allowed:'||x_adj_allowed,'C');
1488: END IF;
1489:
1490: -- Change request : 2982977
1491: IF NVL( x_adj_allowed, 0) <> 0 THEN
1663: WHEN others then
1664:
1665: g_dummy := SQLERRM;
1666: IF g_debug = 'Y' THEN
1667: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
1668: END IF;
1669:
1670: RAISE ;
1671: END create_adjplus_log ;
1690: BEGIN
1691:
1692: g_error_procedure_name := 'self_adjustment';
1693: IF g_debug = 'Y' THEN
1694: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
1695: END IF;
1696:
1697: x_adj_balance := 0 ;
1698: l_calling_seq := 'SELF_ADJUSTMENT' ;
1854: WHEN others THEN
1855:
1856: g_dummy := SQLERRM;
1857: IF g_debug = 'Y' THEN
1858: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
1859: END IF;
1860:
1861: RAISE ;
1862: END SELF_ADJUSTMENT ;
1918: WHEN others then
1919:
1920: g_dummy := SQLERRM;
1921: IF g_debug = 'Y' THEN
1922: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
1923: END IF;
1924:
1925: RAISE ;
1926: END DERIVE_ADJ_AMOUNT ;
1976: when others then
1977:
1978: g_dummy := SQLERRM;
1979: IF g_debug = 'Y' THEN
1980: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
1981: END IF;
1982:
1983: raise ;
1984: END UPDATE_BC_PACKET ;
1992: BEGIN
1993:
1994: g_error_procedure_name := 'common_logic';
1995: IF g_debug = 'Y' THEN
1996: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
1997: END IF;
1998:
1999: x_burden := 0 ;
2000: x_dummy := 0 ;
2000: x_dummy := 0 ;
2001: p_adj_amount := 0 ;
2002:
2003: IF g_debug = 'Y' THEN
2004: gms_error_pkg.gms_debug (g_error_procedure_name||':p_pkt_amount:'||p_pkt_amount||';'||'p_raw_cost:'||p_raw_cost,'C');
2005: END IF;
2006:
2007: IF p_pkt_amount > 0 THEN
2008:
2065: when others then
2066:
2067: g_dummy := SQLERRM;
2068: IF g_debug = 'Y' THEN
2069: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
2070: END IF;
2071:
2072: raise ;
2073: END COMMON_LOGIC ;
2100: BEGIN
2101:
2102: g_error_procedure_name := 'calc_req_burden';
2103: IF g_debug = 'Y' THEN
2104: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
2105: END IF;
2106:
2107: x_line_num := 0;
2108: req_adj_amount := 0 ;
2223: when others then
2224:
2225: g_dummy := SQLERRM;
2226: IF g_debug = 'Y' THEN
2227: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
2228: END IF;
2229:
2230: Raise ;
2231: END CALC_REQ_BURDEN;
2260:
2261: BEGIN
2262: g_error_procedure_name := 'calc_po_burden';
2263: IF g_debug = 'Y' THEN
2264: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
2265: END IF;
2266:
2267: X_po_dist_id := 0 ;
2268: x_line_num := 0 ;
2368: when others then
2369:
2370: g_dummy := SQLERRM;
2371: IF g_debug = 'Y' THEN
2372: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
2373: END IF;
2374:
2375: Raise ;
2376: END CALC_PO_BURDEN ;
2403:
2404: BEGIN
2405: g_error_procedure_name := 'calc_enc_burden';
2406: IF g_debug = 'Y' THEN
2407: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
2408: END IF;
2409:
2410: x_line_num := 0;
2411: bc_pkt_rec := p_record ;
2462: WHEN others THEN
2463:
2464: g_dummy := SQLERRM;
2465: IF g_debug = 'Y' THEN
2466: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
2467: END IF;
2468:
2469: RAISE ;
2470: END CALC_ENC_BURDEN ;
2515:
2516: BEGIN
2517: g_error_procedure_name := 'net_zero_ap';
2518: IF g_debug = 'Y' THEN
2519: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
2520: END IF;
2521:
2522: x_run_total := 0 ;
2523: x_adj_amount := 0 ;
2577: When others then
2578:
2579: g_dummy := SQLERRM;
2580: IF g_debug = 'Y' THEN
2581: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
2582: END IF;
2583:
2584: RAISE ;
2585: END NET_ZERO_AP ;
2701:
2702: BEGIN
2703: g_error_procedure_name := 'calc_ap_burden';
2704: IF g_debug = 'Y' THEN
2705: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
2706: END IF;
2707:
2708: bc_pkt_rec := p_record ;
2709: bc_pkt_rec.entered_cr := nvl(bc_pkt_rec.entered_cr,0) ;
3004: WHEN others THEN
3005:
3006: g_dummy := SQLERRM;
3007: IF g_debug = 'Y' THEN
3008: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
3009: END IF;
3010:
3011: RAISE ;
3012: END CALC_AP_burden;
3021:
3022: BEGIN
3023: g_error_procedure_name := 'calc_fab_burden';
3024: IF g_debug = 'Y' THEN
3025: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
3026: END IF;
3027:
3028: bc_pkt_rec := p_record ;
3029: bc_pkt_rec.entered_cr := nvl(bc_pkt_rec.entered_cr,0) ;
3073: WHEN others THEN
3074:
3075: g_dummy := SQLERRM;
3076: IF g_debug = 'Y' THEN
3077: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
3078: END IF;
3079:
3080: RAISE ;
3081: END CALC_FAB_burden ;
3101:
3102: BEGIN
3103: g_error_procedure_name := 'calc_exp_burden';
3104: IF g_debug = 'Y' THEN
3105: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
3106: END IF;
3107:
3108: bc_pkt_rec := p_record ;
3109: bc_pkt_rec.entered_cr := nvl(bc_pkt_rec.entered_cr,0) ;
3158: x_rec_award_exp_tot.EXP_burdenable_cost,
3159: exp_adj_amount ) ;
3160:
3161: IF g_debug = 'Y' THEN
3162: gms_error_pkg.gms_debug (g_error_procedure_name||':common logic->burden_raw_cost:'||burden_raw_cost||';'||'exp_adj_amount:'||exp_adj_amount,'C');
3163: END IF;
3164:
3165: /* =================================================================
3166: -- Bug : 2557041 - Added for IP check funds Enhancement
3227: WHEN others THEN
3228:
3229: g_dummy := SQLERRM;
3230: IF g_debug = 'Y' THEN
3231: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
3232: END IF;
3233:
3234: RAISE ;
3235: END CALC_EXP_burden;
3338:
3339: Begin
3340: g_error_procedure_name := 'Maximize_burden';
3341: IF g_debug = 'Y' THEN
3342: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
3343: END IF;
3344: -- ------------------------------------------------------------------+
3345: -- Maximizing common logic
3346: -- ------------------------------------------------------------------+
3355: loop
3356: -- Savepoint
3357: SAVEPOINT RECONCILE1;
3358: IF g_debug = 'Y' THEN
3359: gms_error_pkg.gms_debug (g_error_procedure_name||':Maximize:award/exp:'||x.award_id||';'||x.expenditure_type,'C');
3360: END IF;
3361: -- Cursor and variable defined at package level ..
3362: Open c_lock_burden_summary(x.award_id,x.expenditure_type);
3363: fetch c_lock_burden_summary into l_lock_burden_summary;
3368: g_error_procedure_name := 'Maximize_burden';
3369: -- need to re-initalize g_error_procedure_name
3370:
3371: IF g_debug = 'Y' THEN
3372: 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');
3373: END IF;
3374:
3375: -- Check if there is any maximizing scope
3376: If (x_award_exp_limit <= x_tot_burden) -- burden.cost v/s idc limit
3377: OR
3378: (x_tot_raw <= x_tot_burden) -- burden.cost v/s raw.cost
3379: then
3380: IF g_debug = 'Y' THEN
3381: gms_error_pkg.gms_debug (g_error_procedure_name||':No maximization reqd. as burden already maximized','C');
3382: END IF;
3383: -- No maximizing required
3384:
3385: GOTO END_OF_PROCESS;
3391: -- case idc:75, raw:80 and burden:70 , x_avail_burden_amt = 5
3392: x_avail_burden_amt := least(x_award_exp_limit,x_tot_raw) - x_tot_burden;
3393:
3394: IF g_debug = 'Y' THEN
3395: gms_error_pkg.gms_debug (g_error_procedure_name||':x_avail_burden_amt:'||x_avail_burden_amt,'C');
3396: END IF;
3397:
3398: -- If nothing to apply then no maximizing required.
3399: If x_avail_burden_amt <= 0 then
3398: -- If nothing to apply then no maximizing required.
3399: If x_avail_burden_amt <= 0 then
3400: -- No maximizing required
3401: IF g_debug = 'Y' THEN
3402: gms_error_pkg.gms_debug (g_error_procedure_name||':No maximization reqd. as no burden left to maximize','C');
3403: END IF;
3404:
3405: GOTO END_OF_PROCESS;
3406: End If;
3433: End If;
3434: End loop; -- Bcpkt record loop
3435:
3436: IF g_debug = 'Y' THEN
3437: gms_error_pkg.gms_debug (g_error_procedure_name||':After max. packet,x_avail_burden_amt:'||x_avail_burden_amt,'C');
3438: END IF;
3439:
3440: If x_avail_burden_amt = 0 then
3441: -- No maximizing required
3439:
3440: If x_avail_burden_amt = 0 then
3441: -- No maximizing required
3442: IF g_debug = 'Y' THEN
3443: 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');
3444: END IF;
3445:
3446: GOTO END_OF_PROCESS;
3447: End If;
3465: If x_doc_adj%notfound THEN
3466: -- A.1 if no AP records exist .. exit out for award/exp type ..
3467: IF g_debug = 'Y' THEN
3468: g_error_procedure_name := 'Maximize_Burden';
3469: gms_error_pkg.gms_debug (g_error_procedure_name||':No AP txns. to maximize - Exiting, Burden available to max:'||x_avail_burden_amt,'C');
3470: END IF;
3471:
3472: Close x_doc_adj ;
3473: exit ;
3474: End If;
3475:
3476: g_error_procedure_name := 'Maximize_Burden';
3477: IF g_debug = 'Y' THEN
3478: 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');
3479: END IF;
3480:
3481: -- A.2 Check if its a NET zero AP .
3482: Open AP_ZERO_INVOICE(c_rec.header_id,x.award_id,x.expenditure_type);
3484: Close AP_ZERO_INVOICE ;
3485:
3486: If x_temp = 0 THEN
3487: IF g_debug = 'Y' THEN
3488: gms_error_pkg.gms_debug (g_error_procedure_name||':Skipping AP txns:net zero AP','C');
3489: END IF;
3490:
3491: GOTO SKIP_THIS;
3492: End If;
3491: GOTO SKIP_THIS;
3492: End If;
3493:
3494: IF g_debug = 'Y' THEN
3495: gms_error_pkg.gms_debug (g_error_procedure_name||':After Net Zero Check','C');
3496: END IF;
3497:
3498: -- A.3 What is the burden amount that can be updated on this transaction ..
3499: If (c_rec.amount - c_rec.burden) >= x_avail_burden_amt then
3506: -- Only a portion of the available burden can be updated on this txn.
3507: End If;
3508:
3509: IF g_debug = 'Y' THEN
3510: gms_error_pkg.gms_debug (g_error_procedure_name||':X_burden_amt_to_update_on_txn:'||X_burden_amt_to_update_on_txn,'C');
3511: END IF;
3512:
3513: -- A.4 Get burden_calculation_seq (adjustment_id) and set values (Common)
3514: select gms_adjustments_id_s.NEXTVAL
3532: x_rec_log.creation_date := sysdate;
3533: x_rec_log.last_update_login := -1;
3534:
3535: IF g_debug = 'Y' THEN
3536: 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');
3537: END IF;
3538:
3539: -- A.5 Get bcpkt transaction that caused this burden maximization
3540: For z in c_bcpkts_max(x.award_id,x.expenditure_type)
3565: End if;
3566: End Loop; -- bcpkt loop
3567:
3568: IF g_debug = 'Y' THEN
3569: 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');
3570: END IF;
3571:
3572: If X_burden_amt_to_update_on_txn <> 0 then
3573: -- A.8 There are no records in bcpkts that can account for the available
3589:
3590: End If;
3591:
3592: IF g_debug = 'Y' THEN
3593: 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');
3594: END IF;
3595:
3596: IF g_debug = 'Y' THEN
3597: gms_error_pkg.gms_debug (g_error_procedure_name||':After all bckpt:x_avail_burden_amt:'||x_avail_burden_amt,'C');
3593: 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');
3594: END IF;
3595:
3596: IF g_debug = 'Y' THEN
3597: gms_error_pkg.gms_debug (g_error_procedure_name||':After all bckpt:x_avail_burden_amt:'||x_avail_burden_amt,'C');
3598: END IF;
3599:
3600: -- A.10 No more burden available to maximize, go to next award/exp type ..
3601: -- else continue with the next AP transaction
3620: Exception
3621: When no_data_found then
3622: g_dummy := SQLERRM;
3623: IF g_debug = 'Y' THEN
3624: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
3625: END IF;
3626:
3627: If x_stage < 30 then
3628: ROLLBACK TO RECONCILE1;
3634: When others then
3635:
3636: g_dummy := SQLERRM;
3637: IF g_debug = 'Y' THEN
3638: gms_error_pkg.gms_debug (g_error_procedure_name||':'||g_dummy,'C');
3639: END IF;
3640:
3641: If x_stage < 30 then
3642: ROLLBACK TO RECONCILE1;
3686:
3687: BEGIN
3688:
3689: IF g_debug = 'Y' THEN
3690: gms_error_pkg.gms_debug ('UPDATE_BC_PKT_BRC_BVID_STATUS' ||': Start'||l_count,'C');
3691: END IF;
3692:
3693: IF p_action = g_update_brc THEN
3694:
3692:
3693: IF p_action = g_update_brc THEN
3694:
3695: IF g_debug = 'Y' THEN
3696: gms_error_pkg.gms_debug ('UPDATE_BC_PKT_BRC_BVID_STATUS'||': Burdenable Raw cost update :','C');
3697: END IF;
3698:
3699: /* --------------------------------------------------------------------
3700: -- This update will take care of 3 scenarios:
3748:
3749: l_count := SQL%ROWCOUNT;
3750:
3751: IF g_debug = 'Y' THEN
3752: gms_error_pkg.gms_debug ('UPDATE_BC_PKT_BRC_BVID_STATUS'||':Burdenable raw Cost Updated on :'||l_count||' records','C');
3753: END IF;
3754:
3755: ELSIF p_action = g_update_status THEN
3756:
3754:
3755: ELSIF p_action = g_update_status THEN
3756:
3757: IF g_debug = 'Y' THEN
3758: gms_error_pkg.gms_debug ('UPDATE_BC_PKT_BRC_BVID_STATUS'||': Result Code update :','C');
3759: END IF;
3760:
3761: update gms_bc_packets
3762: set result_code = x_result_code
3766:
3767: l_count := SQL%ROWCOUNT;
3768:
3769: IF g_debug = 'Y' THEN
3770: gms_error_pkg.gms_debug ('UPDATE_BC_PKT_BRC_BVID_STATUS'||':result code '||x_result_code||' Updated on :'||l_count||' records','C');
3771: END IF;
3772:
3773:
3774: If p_full_mode_failure = 'Y' then -- Encumbrance : PO/AP/REQ
3779:
3780: l_count := SQL%ROWCOUNT;
3781:
3782: IF g_debug = 'Y' THEN
3783: gms_error_pkg.gms_debug ('UPDATE_BC_PKT_BRC_BVID_STATUS'||':F65 (full mode failure) Updated on :'||l_count||' records','C');
3784: END IF;
3785:
3786: END IF;
3787:
3792: -- checks for gms_bc_packet trasnactions that has a baselined budget only
3793: -- during summarization ...
3794:
3795: IF g_debug = 'Y' THEN
3796: gms_error_pkg.gms_debug ('UPDATE_BC_PKT_BRC_BVID_STATUS'||': Budget version Id update :','C');
3797: END IF;
3798:
3799: Update gms_bc_packets bcp
3800: set bcp.budget_version_id = (select gbv.budget_version_id
3818: and bcp.expenditure_type = p_expenditure_type
3819: and bcp.budget_version_id is null);
3820:
3821: IF g_debug = 'Y' THEN
3822: 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');
3823: END IF;
3824:
3825: x_result_code := 'F';
3826:
3835:
3836: If p_full_mode_failure = 'Y' then -- Encumbrance : PO/AP/REQ
3837:
3838: IF g_debug = 'Y' THEN
3839: gms_error_pkg.gms_debug ('UPDATE_BC_PKT_BRC_BVID_STATUS'||':Budget version id failure: Full mode failure','C');
3840: END IF;
3841:
3842: Update gms_bc_packets
3843: set status_code = decode(p_mode,'C','F','R'),
3857:
3858: EXCEPTION
3859: when others then
3860: IF g_debug = 'Y' THEN
3861: gms_error_pkg.gms_debug ('UPDATE_BC_PKT_BRC_BVID_STATUS'||':When Others Exception','C');
3862: END IF;
3863:
3864: raise;
3865: END update_bc_pkt_brc_bvid_status;
3915: g_update_status := 'UPDATE-STATUS';
3916: g_update_bvid := 'UPDATE-BVID';
3917: g_update_brc := 'UPDATE-BRC';
3918:
3919: gms_error_pkg.set_debug_context;
3920:
3921: IF g_debug = 'Y' THEN
3922: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
3923: END IF;
3918:
3919: gms_error_pkg.set_debug_context;
3920:
3921: IF g_debug = 'Y' THEN
3922: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
3923: END IF;
3924:
3925: SAVEPOINT SAVE_CALC_PROCESS ;
3926: X_err_stage := 'STG_13_STR' ;
4157:
4158: IF NOT ( g_actual_flag ='E' AND p_mode <> 'E') THEN -- For AP/PO/REQ records
4159:
4160: IF g_debug = 'Y' THEN
4161: gms_error_pkg.gms_debug (g_error_procedure_name||':Call Maximize_burden','C');
4162: END IF;
4163:
4164: Maximize_burden(x_packet_id);
4165: --PROC_RECONCILE_DOCUMENT(x_packet_id);
4168:
4169: X_err_stage := 'STG_21_END' ;
4170:
4171: IF g_debug = 'Y' THEN
4172: gms_error_pkg.gms_debug (g_error_procedure_name||':End','C');
4173: END IF;
4174:
4175: return TRUE;
4176:
4252: BEGIN
4253: g_error_program_name := 'Gms_cost_plus_extn';
4254: g_error_procedure_name := 'Update_source_burden_raw_cost' ;
4255:
4256: gms_error_pkg.gms_debug (g_error_procedure_name||':Start','C');
4257:
4258: -- Kept this code in a loop operation as burden posted_flag needs to be updated
4259: -- on records that has been posted to ADL (critical update) ..
4260: -- If update fails, fail packet, packet failed as if any adjsuting line fails then
4325: END IF ;
4326:
4327: END LOOP;
4328:
4329: gms_error_pkg.gms_debug (g_error_procedure_name||':End','C');
4330:
4331: RETURN TRUE;
4332:
4333: EXCEPTION
4333: EXCEPTION
4334: When Others then
4335: l_error:= SUBSTR(SQLERRM,1,1000);
4336:
4337: gms_error_pkg.gms_debug ('***********'||g_error_procedure_name||':FAILURE:'||l_error,'C');
4338:
4339: ROLLBACK TO POST_BURDEN;
4340:
4341: Update gms_bc_packets