[Home] [Help]
1066: l_api_name CONSTANT VARCHAR2(30) := 'Insert_Lines_Into_BCP';
1067: l_api_version CONSTANT NUMBER := 1.0;
1068:
1069: l_period_name VARCHAR2(15);
1070: l_packetid GL_bc_packets.packet_id%TYPE;
1071: l_return_status VARCHAR2(10);
1072: l_session_id number(38);
1073: l_serial_id number(38);
1074:
1073: l_serial_id number(38);
1074:
1075: CURSOR l_packet_csr
1076: IS
1077: SELECT gl_bc_packets_s.nextval
1078: FROM dual;
1079: PRAGMA autonomous_transaction;
1080:
1081: /* 5148282 made this api as autonomous transaction
1088: FROM v$session s,v$process p
1089: WHERE s.paddr = p.addr
1090: AND audsid = USERENV('SESSIONID');
1091:
1092: INSERT INTO gl_bc_packets
1093: (packet_id,
1094: ledger_id, -- Bug#4310411
1095: je_source_name,
1096: je_category_name,
1293:
1294:
1295: CURSOR l_packet_csr
1296: IS
1297: SELECT gl_bc_packets_s.nextval
1298: FROM dual;
1299:
1300: l_packetid GL_bc_packets.packet_id%TYPE;
1301:
1296: IS
1297: SELECT gl_bc_packets_s.nextval
1298: FROM dual;
1299:
1300: l_packetid GL_bc_packets.packet_id%TYPE;
1301:
1302: BEGIN
1303:
1304: IF g_budgetary_control = 'Y' THEN
1303:
1304: IF g_budgetary_control = 'Y' THEN
1305: -- FOR GL_BC_PACKATES route.
1306:
1307: -- the following code insert the data in GL_BC_PACKETS
1308: -- and calls the funds checker in reserve mode
1309: commit; -- this has to be there before calling the autonomous commit
1310: IF p_called_from = 'C' THEN
1311:
1338: AND rownum = 1;
1339: -- Bug 3029168 End
1340:
1341: /* Bug 5148282 moved the following logic from Insert_Lines_Into_BCP
1342: as inserts into gl_bc_packets is done as autonomous transaction */
1343: OPEN l_ws_period_csr;
1344: LOOP
1345:
1346: FETCH l_ws_period_csr INTO l_period_name;