172: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' Calling GL check_interface_status ');
173:
174: check_interface_status('GL', p_adj_sum_batch_name);
175: end if;
176: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' Calling transfer_to_gl_interface for p_adj_sum_batch_name: '||p_adj_sum_batch_name);
177:
178: transfer_to_gl_interface(p_adj_sum_batch_name,
179: p_business_group_id,
180: p_set_of_books_id,
174: check_interface_status('GL', p_adj_sum_batch_name);
175: end if;
176: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' Calling transfer_to_gl_interface for p_adj_sum_batch_name: '||p_adj_sum_batch_name);
177:
178: transfer_to_gl_interface(p_adj_sum_batch_name,
179: p_business_group_id,
180: p_set_of_books_id,
181: l_return_status);
182:
1175: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','INSERT_INTO_SUMMARY_LINES');
1176: p_return_status := fnd_api.g_ret_sts_unexp_error;
1177: END;
1178:
1179: ------------------------ GL INTERFACE --------------------------------------------------
1180:
1181: PROCEDURE transfer_to_gl_interface(p_adj_sum_batch_name IN VARCHAR2,
1182: p_business_group_id IN NUMBER,
1183: p_set_of_books_id IN NUMBER,
1177: END;
1178:
1179: ------------------------ GL INTERFACE --------------------------------------------------
1180:
1181: PROCEDURE transfer_to_gl_interface(p_adj_sum_batch_name IN VARCHAR2,
1182: p_business_group_id IN NUMBER,
1183: p_set_of_books_id IN NUMBER,
1184: p_return_status OUT NOCOPY VARCHAR2) IS
1185:
1212: AND gl_phase = 'Summarize_GL_Lines'
1213: AND run_id = g_run_id;
1214:
1215:
1216: CURSOR gl_interface_cursor(p_payroll_control_id IN NUMBER) IS
1217: SELECT psl.summary_line_id,
1218: psl.source_code,
1219: psl.effective_date,
1220: psl.accounting_date, --- added for 3108109
1259: AND psl.gl_code_combination_id IS NOT NULL
1260: AND psl.payroll_control_id = p_payroll_control_id;
1261:
1262: gl_batch_rec gl_batch_cursor%ROWTYPE;
1263: gl_interface_rec gl_interface_cursor%ROWTYPE;
1264: -- l_sob_id NUMBER(15) := FND_PROFILE.VALUE('PSP_SET_OF_BOOKS');
1265: l_sob_id NUMBER(15) := p_set_of_books_id;
1266: l_user_je_source_name VARCHAR2(25);
1267: l_user_je_category_name VARCHAR2(25);
1316: WHERE pal.payroll_control_id = gl_batch_rec.payroll_control_id
1317: AND rownum = 1); --Bug 2133056 removed distinct and replace batch_name with payroll_control_id
1318:
1319: BEGIN
1320: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' Entering transfer_to_gl_interface ');
1321:
1322:
1323: -- get the source name
1324: get_gl_je_sources(l_user_je_source_name,
1344: close pc_batch_cur;
1345: exit;
1346: end if;
1347: -- get the group_id. Moved the group id out of payroll control id loop. Bug 1977939
1348: SELECT gl_interface_control_s.nextval
1349: INTO l_group_id
1350: FROM DUAL;
1351:
1352: l_rec_count := 0; -- MOVED this stmt, from inside the payroll control loop id Bug 1977939.
1407: IF gl_batch_rec.source_type = 'A' THEN
1408: l_reference4 := 'LD ADJUSTMENTS DISTRIBUTION';
1409: END IF;
1410:
1411: OPEN gl_interface_cursor(gl_batch_rec.payroll_control_id);
1412: LOOP
1413: FETCH gl_interface_cursor INTO gl_interface_rec;
1414: IF gl_interface_cursor%NOTFOUND THEN
1415: CLOSE gl_interface_cursor;
1409: END IF;
1410:
1411: OPEN gl_interface_cursor(gl_batch_rec.payroll_control_id);
1412: LOOP
1413: FETCH gl_interface_cursor INTO gl_interface_rec;
1414: IF gl_interface_cursor%NOTFOUND THEN
1415: CLOSE gl_interface_cursor;
1416: EXIT;
1417: END IF;
1410:
1411: OPEN gl_interface_cursor(gl_batch_rec.payroll_control_id);
1412: LOOP
1413: FETCH gl_interface_cursor INTO gl_interface_rec;
1414: IF gl_interface_cursor%NOTFOUND THEN
1415: CLOSE gl_interface_cursor;
1416: EXIT;
1417: END IF;
1418: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' gl_interface_cursor count: '||gl_interface_cursor%rowcount);
1411: OPEN gl_interface_cursor(gl_batch_rec.payroll_control_id);
1412: LOOP
1413: FETCH gl_interface_cursor INTO gl_interface_rec;
1414: IF gl_interface_cursor%NOTFOUND THEN
1415: CLOSE gl_interface_cursor;
1416: EXIT;
1417: END IF;
1418: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' gl_interface_cursor count: '||gl_interface_cursor%rowcount);
1419:
1414: IF gl_interface_cursor%NOTFOUND THEN
1415: CLOSE gl_interface_cursor;
1416: EXIT;
1417: END IF;
1418: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' gl_interface_cursor count: '||gl_interface_cursor%rowcount);
1419:
1420:
1421: --l_batch_cnt := l_batch_cnt + 1; commented for Bug 1977939
1422:
1420:
1421: --l_batch_cnt := l_batch_cnt + 1; commented for Bug 1977939
1422:
1423: l_rec_count := l_rec_count + 1;
1424: IF gl_interface_rec.dr_cr_flag = 'D' THEN
1425: l_entered_dr := gl_interface_rec.summary_amount;
1426: l_entered_cr := NULL;
1427: ELSIF gl_interface_rec.dr_cr_flag = 'C' THEN
1428: l_entered_dr := NULL;
1421: --l_batch_cnt := l_batch_cnt + 1; commented for Bug 1977939
1422:
1423: l_rec_count := l_rec_count + 1;
1424: IF gl_interface_rec.dr_cr_flag = 'D' THEN
1425: l_entered_dr := gl_interface_rec.summary_amount;
1426: l_entered_cr := NULL;
1427: ELSIF gl_interface_rec.dr_cr_flag = 'C' THEN
1428: l_entered_dr := NULL;
1429: l_entered_cr := gl_interface_rec.summary_amount;
1423: l_rec_count := l_rec_count + 1;
1424: IF gl_interface_rec.dr_cr_flag = 'D' THEN
1425: l_entered_dr := gl_interface_rec.summary_amount;
1426: l_entered_cr := NULL;
1427: ELSIF gl_interface_rec.dr_cr_flag = 'C' THEN
1428: l_entered_dr := NULL;
1429: l_entered_cr := gl_interface_rec.summary_amount;
1430: END IF;
1431:
1425: l_entered_dr := gl_interface_rec.summary_amount;
1426: l_entered_cr := NULL;
1427: ELSIF gl_interface_rec.dr_cr_flag = 'C' THEN
1428: l_entered_dr := NULL;
1429: l_entered_cr := gl_interface_rec.summary_amount;
1430: END IF;
1431:
1432: -- Corrected currency_code reference and introduced exchange_rate_type and conversion_date for bug fix 2916848
1433: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' Calling insert_into_gl_interface ');
1429: l_entered_cr := gl_interface_rec.summary_amount;
1430: END IF;
1431:
1432: -- Corrected currency_code reference and introduced exchange_rate_type and conversion_date for bug fix 2916848
1433: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' Calling insert_into_gl_interface ');
1434:
1435: insert_into_gl_interface(
1436: L_SOB_ID,GL_INTERFACE_REC.EFFECTIVE_DATE, gl_batch_rec.currency_code,
1437: L_USER_JE_CATEGORY_NAME,L_USER_JE_SOURCE_NAME,L_ENCUMBRANCE_TYPE_ID,
1431:
1432: -- Corrected currency_code reference and introduced exchange_rate_type and conversion_date for bug fix 2916848
1433: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' Calling insert_into_gl_interface ');
1434:
1435: insert_into_gl_interface(
1436: L_SOB_ID,GL_INTERFACE_REC.EFFECTIVE_DATE, gl_batch_rec.currency_code,
1437: L_USER_JE_CATEGORY_NAME,L_USER_JE_SOURCE_NAME,L_ENCUMBRANCE_TYPE_ID,
1438: GL_INTERFACE_REC.GL_CODE_COMBINATION_ID,L_ENTERED_DR,L_ENTERED_CR,
1439: L_GROUP_ID,L_REFERENCE1,L_REFERENCE1,L_REFERENCE4,
1432: -- Corrected currency_code reference and introduced exchange_rate_type and conversion_date for bug fix 2916848
1433: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' Calling insert_into_gl_interface ');
1434:
1435: insert_into_gl_interface(
1436: L_SOB_ID,GL_INTERFACE_REC.EFFECTIVE_DATE, gl_batch_rec.currency_code,
1437: L_USER_JE_CATEGORY_NAME,L_USER_JE_SOURCE_NAME,L_ENCUMBRANCE_TYPE_ID,
1438: GL_INTERFACE_REC.GL_CODE_COMBINATION_ID,L_ENTERED_DR,L_ENTERED_CR,
1439: L_GROUP_ID,L_REFERENCE1,L_REFERENCE1,L_REFERENCE4,
1440: GL_INTERFACE_REC.SUMMARY_LINE_ID,L_REFERENCE4,
1434:
1435: insert_into_gl_interface(
1436: L_SOB_ID,GL_INTERFACE_REC.EFFECTIVE_DATE, gl_batch_rec.currency_code,
1437: L_USER_JE_CATEGORY_NAME,L_USER_JE_SOURCE_NAME,L_ENCUMBRANCE_TYPE_ID,
1438: GL_INTERFACE_REC.GL_CODE_COMBINATION_ID,L_ENTERED_DR,L_ENTERED_CR,
1439: L_GROUP_ID,L_REFERENCE1,L_REFERENCE1,L_REFERENCE4,
1440: GL_INTERFACE_REC.SUMMARY_LINE_ID,L_REFERENCE4,
1441: GL_INTERFACE_REC.ATTRIBUTE1,GL_INTERFACE_REC.ATTRIBUTE2,
1442: GL_INTERFACE_REC.ATTRIBUTE3,GL_INTERFACE_REC.ATTRIBUTE4,
1436: L_SOB_ID,GL_INTERFACE_REC.EFFECTIVE_DATE, gl_batch_rec.currency_code,
1437: L_USER_JE_CATEGORY_NAME,L_USER_JE_SOURCE_NAME,L_ENCUMBRANCE_TYPE_ID,
1438: GL_INTERFACE_REC.GL_CODE_COMBINATION_ID,L_ENTERED_DR,L_ENTERED_CR,
1439: L_GROUP_ID,L_REFERENCE1,L_REFERENCE1,L_REFERENCE4,
1440: GL_INTERFACE_REC.SUMMARY_LINE_ID,L_REFERENCE4,
1441: GL_INTERFACE_REC.ATTRIBUTE1,GL_INTERFACE_REC.ATTRIBUTE2,
1442: GL_INTERFACE_REC.ATTRIBUTE3,GL_INTERFACE_REC.ATTRIBUTE4,
1443: GL_INTERFACE_REC.ATTRIBUTE5,GL_INTERFACE_REC.ATTRIBUTE6,
1444: GL_INTERFACE_REC.ATTRIBUTE7,GL_INTERFACE_REC.ATTRIBUTE8,
1437: L_USER_JE_CATEGORY_NAME,L_USER_JE_SOURCE_NAME,L_ENCUMBRANCE_TYPE_ID,
1438: GL_INTERFACE_REC.GL_CODE_COMBINATION_ID,L_ENTERED_DR,L_ENTERED_CR,
1439: L_GROUP_ID,L_REFERENCE1,L_REFERENCE1,L_REFERENCE4,
1440: GL_INTERFACE_REC.SUMMARY_LINE_ID,L_REFERENCE4,
1441: GL_INTERFACE_REC.ATTRIBUTE1,GL_INTERFACE_REC.ATTRIBUTE2,
1442: GL_INTERFACE_REC.ATTRIBUTE3,GL_INTERFACE_REC.ATTRIBUTE4,
1443: GL_INTERFACE_REC.ATTRIBUTE5,GL_INTERFACE_REC.ATTRIBUTE6,
1444: GL_INTERFACE_REC.ATTRIBUTE7,GL_INTERFACE_REC.ATTRIBUTE8,
1445: GL_INTERFACE_REC.ATTRIBUTE9,GL_INTERFACE_REC.ATTRIBUTE10,
1438: GL_INTERFACE_REC.GL_CODE_COMBINATION_ID,L_ENTERED_DR,L_ENTERED_CR,
1439: L_GROUP_ID,L_REFERENCE1,L_REFERENCE1,L_REFERENCE4,
1440: GL_INTERFACE_REC.SUMMARY_LINE_ID,L_REFERENCE4,
1441: GL_INTERFACE_REC.ATTRIBUTE1,GL_INTERFACE_REC.ATTRIBUTE2,
1442: GL_INTERFACE_REC.ATTRIBUTE3,GL_INTERFACE_REC.ATTRIBUTE4,
1443: GL_INTERFACE_REC.ATTRIBUTE5,GL_INTERFACE_REC.ATTRIBUTE6,
1444: GL_INTERFACE_REC.ATTRIBUTE7,GL_INTERFACE_REC.ATTRIBUTE8,
1445: GL_INTERFACE_REC.ATTRIBUTE9,GL_INTERFACE_REC.ATTRIBUTE10,
1446: GL_INTERFACE_REC.ATTRIBUTE11,GL_INTERFACE_REC.ATTRIBUTE12,
1439: L_GROUP_ID,L_REFERENCE1,L_REFERENCE1,L_REFERENCE4,
1440: GL_INTERFACE_REC.SUMMARY_LINE_ID,L_REFERENCE4,
1441: GL_INTERFACE_REC.ATTRIBUTE1,GL_INTERFACE_REC.ATTRIBUTE2,
1442: GL_INTERFACE_REC.ATTRIBUTE3,GL_INTERFACE_REC.ATTRIBUTE4,
1443: GL_INTERFACE_REC.ATTRIBUTE5,GL_INTERFACE_REC.ATTRIBUTE6,
1444: GL_INTERFACE_REC.ATTRIBUTE7,GL_INTERFACE_REC.ATTRIBUTE8,
1445: GL_INTERFACE_REC.ATTRIBUTE9,GL_INTERFACE_REC.ATTRIBUTE10,
1446: GL_INTERFACE_REC.ATTRIBUTE11,GL_INTERFACE_REC.ATTRIBUTE12,
1447: GL_INTERFACE_REC.ATTRIBUTE13,GL_INTERFACE_REC.ATTRIBUTE14,
1440: GL_INTERFACE_REC.SUMMARY_LINE_ID,L_REFERENCE4,
1441: GL_INTERFACE_REC.ATTRIBUTE1,GL_INTERFACE_REC.ATTRIBUTE2,
1442: GL_INTERFACE_REC.ATTRIBUTE3,GL_INTERFACE_REC.ATTRIBUTE4,
1443: GL_INTERFACE_REC.ATTRIBUTE5,GL_INTERFACE_REC.ATTRIBUTE6,
1444: GL_INTERFACE_REC.ATTRIBUTE7,GL_INTERFACE_REC.ATTRIBUTE8,
1445: GL_INTERFACE_REC.ATTRIBUTE9,GL_INTERFACE_REC.ATTRIBUTE10,
1446: GL_INTERFACE_REC.ATTRIBUTE11,GL_INTERFACE_REC.ATTRIBUTE12,
1447: GL_INTERFACE_REC.ATTRIBUTE13,GL_INTERFACE_REC.ATTRIBUTE14,
1448: GL_INTERFACE_REC.ATTRIBUTE15,GL_INTERFACE_REC.ATTRIBUTE16,
1441: GL_INTERFACE_REC.ATTRIBUTE1,GL_INTERFACE_REC.ATTRIBUTE2,
1442: GL_INTERFACE_REC.ATTRIBUTE3,GL_INTERFACE_REC.ATTRIBUTE4,
1443: GL_INTERFACE_REC.ATTRIBUTE5,GL_INTERFACE_REC.ATTRIBUTE6,
1444: GL_INTERFACE_REC.ATTRIBUTE7,GL_INTERFACE_REC.ATTRIBUTE8,
1445: GL_INTERFACE_REC.ATTRIBUTE9,GL_INTERFACE_REC.ATTRIBUTE10,
1446: GL_INTERFACE_REC.ATTRIBUTE11,GL_INTERFACE_REC.ATTRIBUTE12,
1447: GL_INTERFACE_REC.ATTRIBUTE13,GL_INTERFACE_REC.ATTRIBUTE14,
1448: GL_INTERFACE_REC.ATTRIBUTE15,GL_INTERFACE_REC.ATTRIBUTE16,
1449: GL_INTERFACE_REC.ATTRIBUTE17,GL_INTERFACE_REC.ATTRIBUTE18,
1442: GL_INTERFACE_REC.ATTRIBUTE3,GL_INTERFACE_REC.ATTRIBUTE4,
1443: GL_INTERFACE_REC.ATTRIBUTE5,GL_INTERFACE_REC.ATTRIBUTE6,
1444: GL_INTERFACE_REC.ATTRIBUTE7,GL_INTERFACE_REC.ATTRIBUTE8,
1445: GL_INTERFACE_REC.ATTRIBUTE9,GL_INTERFACE_REC.ATTRIBUTE10,
1446: GL_INTERFACE_REC.ATTRIBUTE11,GL_INTERFACE_REC.ATTRIBUTE12,
1447: GL_INTERFACE_REC.ATTRIBUTE13,GL_INTERFACE_REC.ATTRIBUTE14,
1448: GL_INTERFACE_REC.ATTRIBUTE15,GL_INTERFACE_REC.ATTRIBUTE16,
1449: GL_INTERFACE_REC.ATTRIBUTE17,GL_INTERFACE_REC.ATTRIBUTE18,
1450: GL_INTERFACE_REC.ATTRIBUTE19,GL_INTERFACE_REC.ATTRIBUTE20,
1443: GL_INTERFACE_REC.ATTRIBUTE5,GL_INTERFACE_REC.ATTRIBUTE6,
1444: GL_INTERFACE_REC.ATTRIBUTE7,GL_INTERFACE_REC.ATTRIBUTE8,
1445: GL_INTERFACE_REC.ATTRIBUTE9,GL_INTERFACE_REC.ATTRIBUTE10,
1446: GL_INTERFACE_REC.ATTRIBUTE11,GL_INTERFACE_REC.ATTRIBUTE12,
1447: GL_INTERFACE_REC.ATTRIBUTE13,GL_INTERFACE_REC.ATTRIBUTE14,
1448: GL_INTERFACE_REC.ATTRIBUTE15,GL_INTERFACE_REC.ATTRIBUTE16,
1449: GL_INTERFACE_REC.ATTRIBUTE17,GL_INTERFACE_REC.ATTRIBUTE18,
1450: GL_INTERFACE_REC.ATTRIBUTE19,GL_INTERFACE_REC.ATTRIBUTE20,
1451: GL_INTERFACE_REC.ATTRIBUTE21,GL_INTERFACE_REC.ATTRIBUTE22,
1444: GL_INTERFACE_REC.ATTRIBUTE7,GL_INTERFACE_REC.ATTRIBUTE8,
1445: GL_INTERFACE_REC.ATTRIBUTE9,GL_INTERFACE_REC.ATTRIBUTE10,
1446: GL_INTERFACE_REC.ATTRIBUTE11,GL_INTERFACE_REC.ATTRIBUTE12,
1447: GL_INTERFACE_REC.ATTRIBUTE13,GL_INTERFACE_REC.ATTRIBUTE14,
1448: GL_INTERFACE_REC.ATTRIBUTE15,GL_INTERFACE_REC.ATTRIBUTE16,
1449: GL_INTERFACE_REC.ATTRIBUTE17,GL_INTERFACE_REC.ATTRIBUTE18,
1450: GL_INTERFACE_REC.ATTRIBUTE19,GL_INTERFACE_REC.ATTRIBUTE20,
1451: GL_INTERFACE_REC.ATTRIBUTE21,GL_INTERFACE_REC.ATTRIBUTE22,
1452: GL_INTERFACE_REC.ATTRIBUTE23,GL_INTERFACE_REC.ATTRIBUTE24,
1445: GL_INTERFACE_REC.ATTRIBUTE9,GL_INTERFACE_REC.ATTRIBUTE10,
1446: GL_INTERFACE_REC.ATTRIBUTE11,GL_INTERFACE_REC.ATTRIBUTE12,
1447: GL_INTERFACE_REC.ATTRIBUTE13,GL_INTERFACE_REC.ATTRIBUTE14,
1448: GL_INTERFACE_REC.ATTRIBUTE15,GL_INTERFACE_REC.ATTRIBUTE16,
1449: GL_INTERFACE_REC.ATTRIBUTE17,GL_INTERFACE_REC.ATTRIBUTE18,
1450: GL_INTERFACE_REC.ATTRIBUTE19,GL_INTERFACE_REC.ATTRIBUTE20,
1451: GL_INTERFACE_REC.ATTRIBUTE21,GL_INTERFACE_REC.ATTRIBUTE22,
1452: GL_INTERFACE_REC.ATTRIBUTE23,GL_INTERFACE_REC.ATTRIBUTE24,
1453: GL_INTERFACE_REC.ATTRIBUTE25,GL_INTERFACE_REC.ATTRIBUTE26,
1446: GL_INTERFACE_REC.ATTRIBUTE11,GL_INTERFACE_REC.ATTRIBUTE12,
1447: GL_INTERFACE_REC.ATTRIBUTE13,GL_INTERFACE_REC.ATTRIBUTE14,
1448: GL_INTERFACE_REC.ATTRIBUTE15,GL_INTERFACE_REC.ATTRIBUTE16,
1449: GL_INTERFACE_REC.ATTRIBUTE17,GL_INTERFACE_REC.ATTRIBUTE18,
1450: GL_INTERFACE_REC.ATTRIBUTE19,GL_INTERFACE_REC.ATTRIBUTE20,
1451: GL_INTERFACE_REC.ATTRIBUTE21,GL_INTERFACE_REC.ATTRIBUTE22,
1452: GL_INTERFACE_REC.ATTRIBUTE23,GL_INTERFACE_REC.ATTRIBUTE24,
1453: GL_INTERFACE_REC.ATTRIBUTE25,GL_INTERFACE_REC.ATTRIBUTE26,
1454: GL_INTERFACE_REC.ATTRIBUTE27,GL_INTERFACE_REC.ATTRIBUTE28,
1447: GL_INTERFACE_REC.ATTRIBUTE13,GL_INTERFACE_REC.ATTRIBUTE14,
1448: GL_INTERFACE_REC.ATTRIBUTE15,GL_INTERFACE_REC.ATTRIBUTE16,
1449: GL_INTERFACE_REC.ATTRIBUTE17,GL_INTERFACE_REC.ATTRIBUTE18,
1450: GL_INTERFACE_REC.ATTRIBUTE19,GL_INTERFACE_REC.ATTRIBUTE20,
1451: GL_INTERFACE_REC.ATTRIBUTE21,GL_INTERFACE_REC.ATTRIBUTE22,
1452: GL_INTERFACE_REC.ATTRIBUTE23,GL_INTERFACE_REC.ATTRIBUTE24,
1453: GL_INTERFACE_REC.ATTRIBUTE25,GL_INTERFACE_REC.ATTRIBUTE26,
1454: GL_INTERFACE_REC.ATTRIBUTE27,GL_INTERFACE_REC.ATTRIBUTE28,
1455: GL_INTERFACE_REC.ATTRIBUTE29,GL_INTERFACE_REC.ATTRIBUTE30,
1448: GL_INTERFACE_REC.ATTRIBUTE15,GL_INTERFACE_REC.ATTRIBUTE16,
1449: GL_INTERFACE_REC.ATTRIBUTE17,GL_INTERFACE_REC.ATTRIBUTE18,
1450: GL_INTERFACE_REC.ATTRIBUTE19,GL_INTERFACE_REC.ATTRIBUTE20,
1451: GL_INTERFACE_REC.ATTRIBUTE21,GL_INTERFACE_REC.ATTRIBUTE22,
1452: GL_INTERFACE_REC.ATTRIBUTE23,GL_INTERFACE_REC.ATTRIBUTE24,
1453: GL_INTERFACE_REC.ATTRIBUTE25,GL_INTERFACE_REC.ATTRIBUTE26,
1454: GL_INTERFACE_REC.ATTRIBUTE27,GL_INTERFACE_REC.ATTRIBUTE28,
1455: GL_INTERFACE_REC.ATTRIBUTE29,GL_INTERFACE_REC.ATTRIBUTE30,
1456: gl_interface_rec.exchange_rate_type,
1449: GL_INTERFACE_REC.ATTRIBUTE17,GL_INTERFACE_REC.ATTRIBUTE18,
1450: GL_INTERFACE_REC.ATTRIBUTE19,GL_INTERFACE_REC.ATTRIBUTE20,
1451: GL_INTERFACE_REC.ATTRIBUTE21,GL_INTERFACE_REC.ATTRIBUTE22,
1452: GL_INTERFACE_REC.ATTRIBUTE23,GL_INTERFACE_REC.ATTRIBUTE24,
1453: GL_INTERFACE_REC.ATTRIBUTE25,GL_INTERFACE_REC.ATTRIBUTE26,
1454: GL_INTERFACE_REC.ATTRIBUTE27,GL_INTERFACE_REC.ATTRIBUTE28,
1455: GL_INTERFACE_REC.ATTRIBUTE29,GL_INTERFACE_REC.ATTRIBUTE30,
1456: gl_interface_rec.exchange_rate_type,
1457: GL_INTERFACE_REC.accounting_date, --- added for 3108109
1450: GL_INTERFACE_REC.ATTRIBUTE19,GL_INTERFACE_REC.ATTRIBUTE20,
1451: GL_INTERFACE_REC.ATTRIBUTE21,GL_INTERFACE_REC.ATTRIBUTE22,
1452: GL_INTERFACE_REC.ATTRIBUTE23,GL_INTERFACE_REC.ATTRIBUTE24,
1453: GL_INTERFACE_REC.ATTRIBUTE25,GL_INTERFACE_REC.ATTRIBUTE26,
1454: GL_INTERFACE_REC.ATTRIBUTE27,GL_INTERFACE_REC.ATTRIBUTE28,
1455: GL_INTERFACE_REC.ATTRIBUTE29,GL_INTERFACE_REC.ATTRIBUTE30,
1456: gl_interface_rec.exchange_rate_type,
1457: GL_INTERFACE_REC.accounting_date, --- added for 3108109
1458: L_RETURN_STATUS);
1451: GL_INTERFACE_REC.ATTRIBUTE21,GL_INTERFACE_REC.ATTRIBUTE22,
1452: GL_INTERFACE_REC.ATTRIBUTE23,GL_INTERFACE_REC.ATTRIBUTE24,
1453: GL_INTERFACE_REC.ATTRIBUTE25,GL_INTERFACE_REC.ATTRIBUTE26,
1454: GL_INTERFACE_REC.ATTRIBUTE27,GL_INTERFACE_REC.ATTRIBUTE28,
1455: GL_INTERFACE_REC.ATTRIBUTE29,GL_INTERFACE_REC.ATTRIBUTE30,
1456: gl_interface_rec.exchange_rate_type,
1457: GL_INTERFACE_REC.accounting_date, --- added for 3108109
1458: L_RETURN_STATUS);
1459:
1452: GL_INTERFACE_REC.ATTRIBUTE23,GL_INTERFACE_REC.ATTRIBUTE24,
1453: GL_INTERFACE_REC.ATTRIBUTE25,GL_INTERFACE_REC.ATTRIBUTE26,
1454: GL_INTERFACE_REC.ATTRIBUTE27,GL_INTERFACE_REC.ATTRIBUTE28,
1455: GL_INTERFACE_REC.ATTRIBUTE29,GL_INTERFACE_REC.ATTRIBUTE30,
1456: gl_interface_rec.exchange_rate_type,
1457: GL_INTERFACE_REC.accounting_date, --- added for 3108109
1458: L_RETURN_STATUS);
1459:
1460: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1453: GL_INTERFACE_REC.ATTRIBUTE25,GL_INTERFACE_REC.ATTRIBUTE26,
1454: GL_INTERFACE_REC.ATTRIBUTE27,GL_INTERFACE_REC.ATTRIBUTE28,
1455: GL_INTERFACE_REC.ATTRIBUTE29,GL_INTERFACE_REC.ATTRIBUTE30,
1456: gl_interface_rec.exchange_rate_type,
1457: GL_INTERFACE_REC.accounting_date, --- added for 3108109
1458: L_RETURN_STATUS);
1459:
1460: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1461: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1471:
1472: -- Commented for bug 9543455
1473: /* begin
1474: FND_STATS.Gather_Table_Stats (ownname => 'GL',
1475: tabname => 'GL_INTERFACE');
1476: -- percent => 10,
1477: -- tmode => 'TEMPORARY');
1478: -- Above two parameters commented out for bug fix 2476829
1479:
1482: null;
1483:
1484: end;*/
1485:
1486: -- insert into gl_interface_control
1487: SELECT GL_JOURNAL_IMPORT_S.NEXTVAL
1488: INTO l_int_run_id
1489: FROM DUAL;
1490:
1487: SELECT GL_JOURNAL_IMPORT_S.NEXTVAL
1488: INTO l_int_run_id
1489: FROM DUAL;
1490:
1491: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' Calling insert_into_gl_interface ');
1492:
1493: insert into gl_interface_control(
1494: je_source_name,
1495: status,
1489: FROM DUAL;
1490:
1491: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' Calling insert_into_gl_interface ');
1492:
1493: insert into gl_interface_control(
1494: je_source_name,
1495: status,
1496: interface_run_id,
1497: group_id,
1547: --
1548: p_return_status := fnd_api.g_ret_sts_success;
1549: EXCEPTION
1550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1551: g_error_api_path := 'TRANSFER_TO_GL_INTERFACE:'||g_error_api_path;
1552: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','TRANSFER_TO_GL_INTERFACE');
1553: p_return_status := fnd_api.g_ret_sts_unexp_error;
1554:
1555: WHEN RETURN_BACK THEN
1548: p_return_status := fnd_api.g_ret_sts_success;
1549: EXCEPTION
1550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1551: g_error_api_path := 'TRANSFER_TO_GL_INTERFACE:'||g_error_api_path;
1552: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','TRANSFER_TO_GL_INTERFACE');
1553: p_return_status := fnd_api.g_ret_sts_unexp_error;
1554:
1555: WHEN RETURN_BACK THEN
1556: p_return_status := fnd_api.g_ret_sts_success;
1555: WHEN RETURN_BACK THEN
1556: p_return_status := fnd_api.g_ret_sts_success;
1557:
1558: WHEN OTHERS THEN
1559: g_error_api_path := 'TRANSFER_TO_GL_INTERFACE:'||g_error_api_path;
1560: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','TRANSFER_TO_GL_INTERFACE');
1561: p_return_status := fnd_api.g_ret_sts_unexp_error;
1562: END;
1563:
1556: p_return_status := fnd_api.g_ret_sts_success;
1557:
1558: WHEN OTHERS THEN
1559: g_error_api_path := 'TRANSFER_TO_GL_INTERFACE:'||g_error_api_path;
1560: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','TRANSFER_TO_GL_INTERFACE');
1561: p_return_status := fnd_api.g_ret_sts_unexp_error;
1562: END;
1563:
1564: ---------------------- GET_GL_JE_SOURCES --------------------------------------------------
1715: --
1716: l_status VARCHAR2(50);
1717: l_reference6 VARCHAR2(100);
1718: --
1719: l_cnt_gl_interface NUMBER;
1720: l_summary_line_id NUMBER(10);
1721: l_gl_project_flag VARCHAR2(1);
1722: l_reversal_ac_failed VARCHAR2(1) := 'N';
1723: l_summary_amount NUMBER;
1753: AND PPC.source_type = 'A'
1754: AND PSL.group_id IS NOT NULL
1755: AND rownum =1; -- Removed max function on group_id and introduced rownum=1 Bug 2133056
1756:
1757: CURSOR gl_interface_group_cur IS
1758: SELECT count(*)
1759: FROM gl_interface
1760: WHERE group_id = l_group_id
1761: AND set_of_books_id = p_set_of_books_id
1755: AND rownum =1; -- Removed max function on group_id and introduced rownum=1 Bug 2133056
1756:
1757: CURSOR gl_interface_group_cur IS
1758: SELECT count(*)
1759: FROM gl_interface
1760: WHERE group_id = l_group_id
1761: AND set_of_books_id = p_set_of_books_id
1762: AND user_je_source_name = 'OLD';
1763:
1761: AND set_of_books_id = p_set_of_books_id
1762: AND user_je_source_name = 'OLD';
1763:
1764: -- Bug 2133056: Changes related to handle situation of GL import leaving some xface recs in 'NEW'
1765: CURSOR gl_interface_status_cur IS
1766: SELECT count(*)
1767: FROM gl_interface
1768: WHERE group_id = l_group_id
1769: AND user_je_source_name = 'OLD'
1763:
1764: -- Bug 2133056: Changes related to handle situation of GL import leaving some xface recs in 'NEW'
1765: CURSOR gl_interface_status_cur IS
1766: SELECT count(*)
1767: FROM gl_interface
1768: WHERE group_id = l_group_id
1769: AND user_je_source_name = 'OLD'
1770: AND status = 'NEW';
1771: l_status_new integer;
1794: END IF;
1795: CLOSE summary_group_cur;
1796:
1797: /* Bug 2133056: to handle situation of GL import left lines untouched */
1798: OPEN gl_interface_status_cur;
1799: FETCH gl_interface_status_cur INTO l_status_new;
1800: IF (gl_interface_status_cur%NOTFOUND) THEN
1801: CLOSE gl_interface_status_cur;
1802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1795: CLOSE summary_group_cur;
1796:
1797: /* Bug 2133056: to handle situation of GL import left lines untouched */
1798: OPEN gl_interface_status_cur;
1799: FETCH gl_interface_status_cur INTO l_status_new;
1800: IF (gl_interface_status_cur%NOTFOUND) THEN
1801: CLOSE gl_interface_status_cur;
1802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1803: END IF;
1796:
1797: /* Bug 2133056: to handle situation of GL import left lines untouched */
1798: OPEN gl_interface_status_cur;
1799: FETCH gl_interface_status_cur INTO l_status_new;
1800: IF (gl_interface_status_cur%NOTFOUND) THEN
1801: CLOSE gl_interface_status_cur;
1802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1803: END IF;
1804: CLOSE gl_interface_status_cur;
1797: /* Bug 2133056: to handle situation of GL import left lines untouched */
1798: OPEN gl_interface_status_cur;
1799: FETCH gl_interface_status_cur INTO l_status_new;
1800: IF (gl_interface_status_cur%NOTFOUND) THEN
1801: CLOSE gl_interface_status_cur;
1802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1803: END IF;
1804: CLOSE gl_interface_status_cur;
1805:
1800: IF (gl_interface_status_cur%NOTFOUND) THEN
1801: CLOSE gl_interface_status_cur;
1802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1803: END IF;
1804: CLOSE gl_interface_status_cur;
1805:
1806: if l_status_new > 0 then
1807: update psp_payroll_controls
1808: set gl_phase = 'Summarize_GL_Lines'
1812: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' updating psp_payroll_controls gl_phase to
1813: Summarize_GL_Lines for batch_name: '||pc_batch_rec.batch_name||' count: '||sql%rowcount);
1814:
1815:
1816: delete from gl_interface
1817: where group_id = l_group_id
1818: and user_je_source_name = 'OLD';
1819: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' deleted from gl_interface count: '||sql%rowcount);
1820:
1815:
1816: delete from gl_interface
1817: where group_id = l_group_id
1818: and user_je_source_name = 'OLD';
1819: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' deleted from gl_interface count: '||sql%rowcount);
1820:
1821:
1822: delete from gl_interface_control
1823: where group_id = l_group_id
1818: and user_je_source_name = 'OLD';
1819: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' deleted from gl_interface count: '||sql%rowcount);
1820:
1821:
1822: delete from gl_interface_control
1823: where group_id = l_group_id
1824: and je_source_name = 'OLD';
1825: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' deleted from gl_interface count: '||sql%rowcount);
1826:
1821:
1822: delete from gl_interface_control
1823: where group_id = l_group_id
1824: and je_source_name = 'OLD';
1825: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' deleted from gl_interface count: '||sql%rowcount);
1826:
1827:
1828: commit;
1829:
1849:
1850: -- Replaced the earlier 'select stmt.' code with new 'cursor' code for bug fix 1765678
1851:
1852:
1853: OPEN gl_interface_group_cur;
1854: FETCH gl_interface_group_cur INTO l_cnt_gl_interface;
1855: IF (gl_interface_group_cur%NOTFOUND) THEN
1856: CLOSE gl_interface_group_cur;
1857: g_error_api_path := 'GL_TIE_BACK:'||g_error_api_path;
1850: -- Replaced the earlier 'select stmt.' code with new 'cursor' code for bug fix 1765678
1851:
1852:
1853: OPEN gl_interface_group_cur;
1854: FETCH gl_interface_group_cur INTO l_cnt_gl_interface;
1855: IF (gl_interface_group_cur%NOTFOUND) THEN
1856: CLOSE gl_interface_group_cur;
1857: g_error_api_path := 'GL_TIE_BACK:'||g_error_api_path;
1858: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GL_TIE_BACK');
1851:
1852:
1853: OPEN gl_interface_group_cur;
1854: FETCH gl_interface_group_cur INTO l_cnt_gl_interface;
1855: IF (gl_interface_group_cur%NOTFOUND) THEN
1856: CLOSE gl_interface_group_cur;
1857: g_error_api_path := 'GL_TIE_BACK:'||g_error_api_path;
1858: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GL_TIE_BACK');
1859: p_return_status := fnd_api.g_ret_sts_unexp_error;
1852:
1853: OPEN gl_interface_group_cur;
1854: FETCH gl_interface_group_cur INTO l_cnt_gl_interface;
1855: IF (gl_interface_group_cur%NOTFOUND) THEN
1856: CLOSE gl_interface_group_cur;
1857: g_error_api_path := 'GL_TIE_BACK:'||g_error_api_path;
1858: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GL_TIE_BACK');
1859: p_return_status := fnd_api.g_ret_sts_unexp_error;
1860: EXIT;
1858: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GL_TIE_BACK');
1859: p_return_status := fnd_api.g_ret_sts_unexp_error;
1860: EXIT;
1861: END IF;
1862: CLOSE gl_interface_group_cur;
1863:
1864: IF l_cnt_gl_interface > 0 THEN
1865:
1866:
1860: EXIT;
1861: END IF;
1862: CLOSE gl_interface_group_cur;
1863:
1864: IF l_cnt_gl_interface > 0 THEN
1865:
1866:
1867: fnd_message.set_name('PSP','PSP_ADJ_GL_FAILED');
1868: get_the_batch_details(pc_batch_rec.batch_name, l_return_status);
1873: -- Uncommented the following code as the code would fail if more than one GL batch fails along bug fix 1828519
1874: close gl_tie_back_cur;
1875: exit;
1876:
1877: ELSIF l_cnt_gl_interface = 0 THEN
1878: OPEN gl_tie_back_success_cur(l_group_id,gl_tie_back_rec.payroll_control_id); --Added control id for 2133056
1879: l_dr_summary_amount := 0; --- Bug 2133056, initialized the amounts
1880: l_cr_summary_amount := 0;
1881: LOOP
2188: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GL_BALANCE_TRANSACTION');
2189: p_return_status := fnd_api.g_ret_sts_unexp_error;
2190: END;
2191:
2192: ------------------ INSERT INTO GL INTERFACE -----------------------------------------------
2193:
2194: PROCEDURE insert_into_gl_interface(
2195: P_SET_OF_BOOKS_ID IN NUMBER,
2196: P_ACCOUNTING_DATE IN DATE,
2190: END;
2191:
2192: ------------------ INSERT INTO GL INTERFACE -----------------------------------------------
2193:
2194: PROCEDURE insert_into_gl_interface(
2195: P_SET_OF_BOOKS_ID IN NUMBER,
2196: P_ACCOUNTING_DATE IN DATE,
2197: P_CURRENCY_CODE IN VARCHAR2,
2198: P_USER_JE_CATEGORY_NAME IN VARCHAR2,
2241: P_CURRENCY_CONVERSION_DATE IN DATE, -- Introduced for bug fix 2916848
2242: P_RETURN_STATUS OUT NOCOPY VARCHAR2) IS
2243: l_msg_id number(9);
2244: BEGIN
2245: INSERT INTO GL_INTERFACE(
2246: STATUS,
2247: SET_OF_BOOKS_ID,
2248: ACCOUNTING_DATE,
2249: CURRENCY_CODE,
2351: --
2352: p_return_status := fnd_api.g_ret_sts_success;
2353: EXCEPTION
2354: WHEN OTHERS THEN
2355: g_error_api_path := 'INSERT_INTO_GL_INTERFACE:'||g_error_api_path;
2356: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','INSERT_INTO_GL_INTERFACE');
2357: p_return_status := fnd_api.g_ret_sts_unexp_error;
2358: END;
2359:
2352: p_return_status := fnd_api.g_ret_sts_success;
2353: EXCEPTION
2354: WHEN OTHERS THEN
2355: g_error_api_path := 'INSERT_INTO_GL_INTERFACE:'||g_error_api_path;
2356: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','INSERT_INTO_GL_INTERFACE');
2357: p_return_status := fnd_api.g_ret_sts_unexp_error;
2358: END;
2359:
2360: -------------------- CREATE GMS SUM LINES -----------------------------------------------
4590: END IF;
4591:
4592: -- Used the group_id parameter, instead of deriving it from summary lines table: Bug 2133056
4593: -- Removed all other deletion of gl tables, because of bug 2133056 fix.
4594: delete from gl_interface
4595: where user_je_source_name = l_user_je_source_name
4596: and group_id = p_group_id ;
4597:
4598: --- Added this stmt for Bug 2133056
4595: where user_je_source_name = l_user_je_source_name
4596: and group_id = p_group_id ;
4597:
4598: --- Added this stmt for Bug 2133056
4599: delete from gl_interface_control
4600: where je_source_name = l_user_je_source_name
4601: and group_id = p_group_id;
4602:
4603: end if;
4687: FROM psp_summary_lines
4688: WHERE payroll_control_id = payroll_control_rec.payroll_control_id
4689: AND group_id IS NOT NULL;
4690:
4691: CURSOR gl_interface_status_cur IS
4692: SELECT count(*)
4693: FROM gl_interface
4694: WHERE group_id = l_group_id
4695: AND user_je_source_name = 'OLD'
4689: AND group_id IS NOT NULL;
4690:
4691: CURSOR gl_interface_status_cur IS
4692: SELECT count(*)
4693: FROM gl_interface
4694: WHERE group_id = l_group_id
4695: AND user_je_source_name = 'OLD'
4696: AND status = 'NEW';
4697:
4743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4744: END IF;
4745: CLOSE summary_group_cur;
4746:
4747: OPEN gl_interface_status_cur;
4748: FETCH gl_interface_status_cur INTO l_status_new;
4749: IF (gl_interface_status_cur%NOTFOUND) THEN
4750: CLOSE gl_interface_status_cur;
4751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4744: END IF;
4745: CLOSE summary_group_cur;
4746:
4747: OPEN gl_interface_status_cur;
4748: FETCH gl_interface_status_cur INTO l_status_new;
4749: IF (gl_interface_status_cur%NOTFOUND) THEN
4750: CLOSE gl_interface_status_cur;
4751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4752: END IF;
4745: CLOSE summary_group_cur;
4746:
4747: OPEN gl_interface_status_cur;
4748: FETCH gl_interface_status_cur INTO l_status_new;
4749: IF (gl_interface_status_cur%NOTFOUND) THEN
4750: CLOSE gl_interface_status_cur;
4751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4752: END IF;
4753: CLOSE gl_interface_status_cur;
4746:
4747: OPEN gl_interface_status_cur;
4748: FETCH gl_interface_status_cur INTO l_status_new;
4749: IF (gl_interface_status_cur%NOTFOUND) THEN
4750: CLOSE gl_interface_status_cur;
4751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4752: END IF;
4753: CLOSE gl_interface_status_cur;
4754:
4749: IF (gl_interface_status_cur%NOTFOUND) THEN
4750: CLOSE gl_interface_status_cur;
4751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4752: END IF;
4753: CLOSE gl_interface_status_cur;
4754:
4755: if l_status_new > 0 then
4756: update psp_payroll_controls
4757: set gl_phase = 'Summarize_GL_Lines'
4757: set gl_phase = 'Summarize_GL_Lines'
4758: where gl_phase = 'Submitted_Import_Request'
4759: and payroll_control_id = payroll_control_rec.payroll_control_id;
4760:
4761: delete from gl_interface
4762: where group_id = l_group_id
4763: and user_je_source_name = 'OLD';
4764:
4765: delete from gl_interface_control
4761: delete from gl_interface
4762: where group_id = l_group_id
4763: and user_je_source_name = 'OLD';
4764:
4765: delete from gl_interface_control
4766: where group_id = l_group_id
4767: and je_source_name = 'OLD';
4768: end if;
4769: