[Home] [Help]
1254: g_pa_fc_com_rec_tab( l_index ).last_update_login := FND_GLOBAL.login_id;
1255:
1256: END IF; -- Commitment Budget
1257:
1258: -- Set variables for Standard Budget.
1259: IF p_budget_type = 'GL'
1260: THEN
1261: g_pa_fc_pay_rec_tab( l_index ).packet_id := g_bc_packet_id_pay;
1262: g_pa_fc_pay_rec_tab( l_index ).ext_budget_type := 'GL';
1339: 'Exp Org ' || g_pa_fc_pay_rec_tab( l_index ).expenditure_organization_id);
1340: END IF;
1341: -- bug 3199488, end block
1342:
1343: END IF; -- Standard Budget.
1344:
1345: END populate_pa_table;
1346:
1347: -- Bug 2871052, Bidisha S End
1476: g_pa_fc_pay_rec_tab.DELETE;
1477:
1478: -- Generate 2 gl bc packet sequence
1479: -- 1 packet will contain all the records for the commitment budget
1480: -- The other packet will contain all records for the standard budget.
1481: OPEN c_cur_packet;
1482: FETCH c_cur_packet INTO g_bc_packet_id_com;
1483: CLOSE c_cur_packet;
1484:
2041: END IF;
2042: END IF ; -- PA funds check required in CBC budget
2043:
2044: -- If the funds check in commitment budget was successfull
2045: -- then call the PA funds checker for the standard budget.
2046: IF g_pa_sb_funds_check_required
2047: AND l_pa_cb_funds_check_pass
2048: THEN
2049: l_pa_sb_funds_check_pass := TRUE;
2050: -- IF g_debug_flag = 'Y'
2051: -- THEN
2052: -- Output_Debug('Calling PA_cc_enc_import_fck.Load_pkts for ' ||
2053: -- ' packet id '|| to_char( g_bc_packet_id_pay) ||
2054: -- ' for standard budget');
2055: -- END IF;
2056:
2057: -- bug 3199488, start block
2058: IF (l_state_level >= l_debug_level) THEN
2058: IF (l_state_level >= l_debug_level) THEN
2059: FND_LOG.STRING(l_state_level, 'igc.plsql.igc_cc_open_interface_pkg.header_interface_main.Msg6',
2060: 'Calling PA_cc_enc_import_fck.Load_pkts for ' ||
2061: ' packet id '|| to_char( g_bc_packet_id_pay) ||
2062: ' for standard budget');
2063: END IF;
2064: -- bug 3199488, end block
2065:
2066: -- Call PA API to insert rows in pa_bc_packets
2078: -- IF g_debug_flag = 'Y'
2079: -- THEN
2080: -- Output_Debug('Calling PA_cc_enc_import_fck.Pa_enc_import_fck for ' ||
2081: -- ' packet id '|| to_char( g_bc_packet_id_pay) ||
2082: -- ' for standard budget');
2083: -- END IF;
2084:
2085: -- bug 3199488, start block
2086: IF (l_state_level >= l_debug_level) THEN
2086: IF (l_state_level >= l_debug_level) THEN
2087: FND_LOG.STRING(l_state_level, 'igc.plsql.igc_cc_open_interface_pkg.header_interface_main.Msg7',
2088: 'Calling PA_cc_enc_import_fck.Pa_enc_import_fck for ' ||
2089: ' packet id '|| to_char( g_bc_packet_id_pay) ||
2090: ' for standard budget');
2091: END IF;
2092: -- bug 3199488, end block
2093:
2094: -- Call PA Funds checker for all payment records.
2111: -- THEN
2112: -- Output_Debug('PA_cc_enc_import_fck.Pa_enc_import_fck ' ||
2113: -- ' failed for packet id '||
2114: -- to_char( g_bc_packet_id_pay) ||
2115: -- ' for standard budget with error - ' ||
2116: -- l_error_msg);
2117: -- END IF;
2118:
2119: -- bug 3199488, start block
2121: FND_LOG.STRING(l_state_level, 'igc.plsql.igc_cc_open_interface_pkg.header_interface_main.Msg8',
2122: 'PA_cc_enc_import_fck.Pa_enc_import_fck ' ||
2123: ' failed for packet id '||
2124: to_char( g_bc_packet_id_pay) ||
2125: ' for standard budget with error - ' ||
2126: l_error_msg);
2127: END IF;
2128: -- bug 3199488, end block
2129:
2149: -- THEN
2150: -- Output_Debug('PA_cc_enc_import_fck.Load_Pkt ' ||
2151: -- ' failed for packet id '||
2152: -- to_char( g_bc_packet_id_pay) ||
2153: -- ' for standard budget with error - ' ||
2154: -- l_error_msg);
2155: -- END IF;
2156:
2157: -- bug 3199488, start block
2159: FND_LOG.STRING(l_state_level, 'igc.plsql.igc_cc_open_interface_pkg.header_interface_main.Msg9',
2160: 'PA_cc_enc_import_fck.Load_Pkt ' ||
2161: ' failed for packet id '||
2162: to_char( g_bc_packet_id_pay) ||
2163: ' for standard budget with error - ' ||
2164: l_error_msg);
2165: END IF;
2166: -- bug 3199488, end block
2167:
2176: l_current_set_of_books_id,
2177: l_msg_buf,
2178: l_error_status);
2179: END IF;
2180: END IF; -- PA funds check required in Standard Budget
2181:
2182: -- Check if any of the funds check failed.
2183: -- If so, records need to be updated accordingly
2184: IF NOT l_pa_cb_funds_check_pass
2257: -- IF g_debug_flag = 'Y'
2258: -- THEN
2259: -- Output_Debug('Calling PA_cc_enc_import_fck.Pa_enc_import_fck_tieback for ' ||
2260: -- ' packet id '|| to_char( g_bc_packet_id_pay) ||
2261: -- ' for standard budget');
2262: -- END IF;
2263:
2264: -- bug 3199488, start block
2265: IF (l_state_level >= l_debug_level) THEN
2265: IF (l_state_level >= l_debug_level) THEN
2266: FND_LOG.STRING(l_state_level, 'igc.plsql.igc_cc_open_interface_pkg.header_interface_main.Msg12',
2267: 'Calling PA_cc_enc_import_fck.Pa_enc_import_fck_tieback for ' ||
2268: ' packet id '|| to_char( g_bc_packet_id_pay) ||
2269: ' for standard budget');
2270: END IF;
2271: -- bug 3199488, end block
2272:
2273: PA_CC_enc_import_fck.Pa_enc_import_fck_tieback
2310: l_current_set_of_books_id,
2311: l_msg_buf,
2312: l_error_status);
2313: END IF;
2314: END IF ; -- Call API to tie back Standard budget
2315: END IF ; -- call PA funds checker , Bug 2871052
2316:
2317: -- Submit the request for running the errors report.
2318: /*Bug No : 6341012. MOAC Uptake. Set ORG_ID before submitting request */
3559: -- CC is already encumbered,
3560: -- Confirmed CCs are being encumbered))
3561: -- And (CC acct line is attached to a project
3562: -- And project is budgetary controlled)
3563: -- And cc is of type Cover or Standard
3564: -- Bug 2871052
3565: IF g_cc_bc_enable_flag = 'Y'
3566: AND ((g_cc_state = 'PR'
3567: AND l_interface_acct_line_record.CC_Acct_Encmbrnc_Status = 'P'
3902: WHEN TOO_MANY_ROWS THEN NULL;
3903: END;
3904:
3905: -- Validate that the withheld amount exists only for
3906: -- Standard CC's.
3907: -- 2043221, Bidisha , 24 Oct 2001
3908: IF UPPER(P_CC_Type) <> 'S'
3909: AND Nvl(P_CC_Ent_Withheld_Amt,0) <> 0
3910: THEN
4607: ELSE -- Insert was successfull.
4608: -- The insert into igc_cc_acct_lines has been sucessfull
4609: -- Call procedure to populate PLSQL table for PA
4610: -- The call should be made -
4611: -- If budgetary control is enabled in the standard budget
4612: -- And ((CC is provisIonal,
4613: -- CC is already encumbered,
4614: -- Provisional CCs are being encumbered)
4615: -- Or (CC is confirmed,
4616: -- CC is already encumbered,
4617: -- Confirmed CCs are being encumbered))
4618: -- And (CC acct line is attached to a project
4619: -- And project is budgetary controlled)
4620: -- And cc is of type Cover or Standard
4621: -- Bug 2871052
4622: IF g_sbc_enable_flag = 'Y'
4623: AND ((g_cc_state = 'PR' AND l_interface_det_pf_record.CC_Det_PF_Encmbrnc_Status = 'P')
4624: /* Bug No : 6341012. SLA uptake. cc_flags no more exists AND g_cc_prov_encmbrnc_flag = 'Y' */
4631: p_mode => 'S' ))
4632: THEN
4633: g_pa_sb_funds_check_required := TRUE;
4634:
4635: -- Call procedure to populate PA tables for the standard budget
4636: populate_pa_table
4637: (p_budget_type => 'GL',
4638: p_cc_header_id => p_header_id,
4639: p_cc_acct_line_id => NULL,