[Home] [Help]
2395: END invoice_canc_or_paid;
2396:
2397: /* Inserts row into budgetary control interface table */
2398:
2399: PROCEDURE Insert_Interface_Row(p_cc_interface_rec IN igc_cc_interface%ROWTYPE, l_insert_return_status OUT NOCOPY VARCHAR2)
2400: IS
2401: BEGIN
2402: INSERT INTO igc_cc_interface (
2403: batch_line_num,
2398:
2399: PROCEDURE Insert_Interface_Row(p_cc_interface_rec IN igc_cc_interface%ROWTYPE, l_insert_return_status OUT NOCOPY VARCHAR2)
2400: IS
2401: BEGIN
2402: INSERT INTO igc_cc_interface (
2403: batch_line_num,
2404: cc_header_id,
2405: cc_version_num,
2406: cc_acct_line_id,
2529: l_insert_status OUT NOCOPY VARCHAR2
2530: )
2531: IS
2532:
2533: l_cc_interface_rec igc_cc_interface%ROWTYPE;
2534: l_insert_return_status VARCHAR2(1);
2535: E_RETURN_FAIL exception;
2536: l_ent_amt NUMBER;
2537: l_enc_amt NUMBER;
2640: l_cc_interface_rec.last_update_login := -1;
2641: l_cc_interface_rec.creation_date := sysdate;
2642: l_cc_interface_rec.created_by := -1;
2643:
2644: /*Bug No : 6341012. SLA Uptake. Event_id, Project_ida re newly added in IGC_CC_INTERFACE
2645: Encumbrance_type_id is not required*/
2646: l_cc_interface_rec.Event_Id := Null;
2647: l_cc_interface_rec.Project_line := 'N';
2648: l_cc_interface_rec.encumbrance_type_id := NULL;
2796: BEGIN
2797:
2798: SELECT SUM(NVL(igcci.cc_func_dr_amt,0))
2799: INTO l_dr_tran_amount
2800: FROM igc_cc_interface igcci
2801: WHERE
2802: igcci.cc_header_id = l_cc_header_id AND
2803: igcci.actual_flag = 'E' AND
2804: igcci.cc_det_pf_line_id IN (SELECT ccdpf.cc_det_pf_line_id
2816: BEGIN
2817:
2818: SELECT SUM(NVL(igcci.cc_func_cr_amt,0))
2819: INTO l_cr_tran_amount
2820: FROM igc_cc_interface igcci
2821: WHERE
2822: igcci.cc_header_id = l_cc_header_id AND
2823: igcci.actual_flag = 'E' AND
2824: igcci.cc_det_pf_line_id IN (SELECT ccdpf.cc_det_pf_line_id
2957: IF (l_old_rate < p_rate)
2958: THEN
2959: SELECT SUM(NVL(igcci.cc_func_dr_amt,0))
2960: INTO l_tran_amount
2961: FROM igc_cc_interface igcci
2962: WHERE
2963: igcci.cc_header_id = p_cc_headers_rec.cc_header_id AND
2964: igcci.actual_flag = 'E' AND
2965: cc_det_pf_line_id IN (SELECT ccdpf.cc_det_pf_line_id
2973: /* 6670549 The Select statement changed as we are entering debit amount as negative instead of positive credit amount
2974: SELECT SUM(NVL(igcci.cc_func_cr_amt,0)) */
2975: SELECT SUM(NVL(igcci.cc_func_dr_amt,0))
2976: INTO l_tran_amount
2977: FROM igc_cc_interface igcci
2978: WHERE
2979: igcci.cc_header_id = p_cc_headers_rec.cc_header_id AND
2980: igcci.actual_flag = 'E' AND
2981: cc_det_pf_line_id IN (SELECT ccdpf.cc_det_pf_line_id
3503: IF (l_cc_headers_rec.cc_type = 'R')
3504: THEN
3505: BEGIN
3506:
3507: DELETE igc_cc_interface
3508: WHERE cc_header_id = l_cc_headers_rec.parent_header_id AND
3509: actual_flag = 'E';
3510: EXCEPTION
3511: WHEN OTHERS
3516: COMMIT;
3517: END IF;
3518:
3519: -- Commented out the following IF caluse as we want all the records
3520: -- to be cleared out of of the IGC_CC_INTERFACE table.
3521: -- Bug 1916208, Bidisha S 2 Aug 2001
3522: -- IF (l_cc_headers_rec.cc_type <> 'R')
3523: -- THEN
3524: BEGIN
3522: -- IF (l_cc_headers_rec.cc_type <> 'R')
3523: -- THEN
3524: BEGIN
3525:
3526: DELETE igc_cc_interface
3527: WHERE cc_header_id = p_cc_header_id AND
3528: actual_flag = 'E';
3529: EXCEPTION
3530: WHEN OTHERS
3536: THEN
3537: -- Delete all the child releases.
3538: BEGIN
3539:
3540: DELETE igc_cc_interface
3541: WHERE cc_header_id IN (SELECT cc_header_id
3542: FROM igc_cc_headers
3543: WHERE parent_header_id = p_cc_header_id )
3544: AND actual_flag = 'E';
3726: IF (l_cc_headers_rec.cc_type = 'R')
3727: THEN
3728: SELECT count(*)
3729: INTO l_interface_row_count
3730: FROM igc_cc_interface
3731: WHERE cc_header_id = l_cc_headers_rec.parent_header_id;
3732: END IF;
3733:
3734: IF (l_cc_headers_rec.cc_type <> 'R')
3734: IF (l_cc_headers_rec.cc_type <> 'R')
3735: THEN
3736: SELECT count(*)
3737: INTO l_interface_row_count
3738: FROM igc_cc_interface
3739: WHERE cc_header_id = p_cc_header_id;
3740: END IF;
3741:
3742: SAVEPOINT Execute_Budgetary_Ctrl4;