136: p_business_group_id,
137: p_set_of_books_id );
138: END IF;
139:
140: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Calling transfer_to_gl_interface');
141:
142: transfer_to_gl_interface(p_source_type,
143: p_source_code,
144: p_time_period_id,
138: END IF;
139:
140: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Calling transfer_to_gl_interface');
141:
142: transfer_to_gl_interface(p_source_type,
143: p_source_code,
144: p_time_period_id,
145: p_batch_name,
146: p_business_group_id,
219: p_business_group_id,
220: p_set_of_books_id );
221: END IF;
222:
223: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' calling transfer_to_gl_interface');
224: transfer_to_gl_interface(p_source_type,
225: p_source_code,
226: p_time_period_id,
227: p_batch_name,
220: p_set_of_books_id );
221: END IF;
222:
223: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' calling transfer_to_gl_interface');
224: transfer_to_gl_interface(p_source_type,
225: p_source_code,
226: p_time_period_id,
227: p_batch_name,
228: p_business_group_id,
1277: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','INSERT_INTO_SUMMARY_LINES');
1278: p_return_status := fnd_api.g_ret_sts_unexp_error;
1279: END;
1280:
1281: ------------------------ GL INTERFACE --------------------------------------------------
1282:
1283: PROCEDURE transfer_to_gl_interface(p_source_type IN VARCHAR2,
1284: p_source_code IN VARCHAR2,
1285: p_time_period_id IN NUMBER,
1279: END;
1280:
1281: ------------------------ GL INTERFACE --------------------------------------------------
1282:
1283: PROCEDURE transfer_to_gl_interface(p_source_type IN VARCHAR2,
1284: p_source_code IN VARCHAR2,
1285: p_time_period_id IN NUMBER,
1286: p_batch_name IN VARCHAR2,
1287: p_business_group_id IN NUMBER,
1325: AND phase = p_phase; --- 2444657: added the condition;
1326:
1327: /* End of code changes for bug 3112053 */
1328:
1329: CURSOR gl_interface_cursor(l_payroll_control_id IN NUMBER) IS
1330: SELECT psl.summary_line_id,
1331: psl.source_code,
1332: psl.effective_date,
1333: psl.accounting_date, -- added 2 cols for 3108109
1372: AND psl.payroll_control_id = l_payroll_control_id;
1373:
1374: gl_batch_rec gl_batch_cursor%ROWTYPE;
1375: gl_payroll_control_rec gl_payroll_control_cursor%ROWTYPE; -- Introduced for Bug 3112053
1376: gl_interface_rec gl_interface_cursor%ROWTYPE;
1377:
1378: l_user_je_source_name VARCHAR2(25);
1379: l_user_je_category_name VARCHAR2(25);
1380: l_period_name VARCHAR2(35);
1404: l_table VARCHAR2(100);
1405: BEGIN
1406:
1407: -- get the source name
1408: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' entered transfer_to_gl_interface');
1409: get_gl_je_sources(l_user_je_source_name,
1410: l_return_status);
1411: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1434: END IF;
1435:
1436: -- get the group_id
1437:
1438: SELECT gl_interface_control_s.nextval
1439: INTO l_group_id
1440: FROM dual;
1441:
1442: BEGIN
1480: WHERE status_code = 'N'
1481: AND gl_code_combination_id IS NOT NULL
1482: AND payroll_control_id = gl_payroll_control_rec.payroll_control_id;
1483:
1484: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' open gl_interface_cursor');
1485:
1486: OPEN gl_interface_cursor(gl_payroll_control_rec.payroll_control_id);
1487: LOOP
1488: FETCH gl_interface_cursor INTO gl_interface_rec;
1482: AND payroll_control_id = gl_payroll_control_rec.payroll_control_id;
1483:
1484: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' open gl_interface_cursor');
1485:
1486: OPEN gl_interface_cursor(gl_payroll_control_rec.payroll_control_id);
1487: LOOP
1488: FETCH gl_interface_cursor INTO gl_interface_rec;
1489: IF gl_interface_cursor%NOTFOUND THEN
1490: CLOSE gl_interface_cursor;
1484: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' open gl_interface_cursor');
1485:
1486: OPEN gl_interface_cursor(gl_payroll_control_rec.payroll_control_id);
1487: LOOP
1488: FETCH gl_interface_cursor INTO gl_interface_rec;
1489: IF gl_interface_cursor%NOTFOUND THEN
1490: CLOSE gl_interface_cursor;
1491: EXIT;
1492: END IF;
1485:
1486: OPEN gl_interface_cursor(gl_payroll_control_rec.payroll_control_id);
1487: LOOP
1488: FETCH gl_interface_cursor INTO gl_interface_rec;
1489: IF gl_interface_cursor%NOTFOUND THEN
1490: CLOSE gl_interface_cursor;
1491: EXIT;
1492: END IF;
1493:
1486: OPEN gl_interface_cursor(gl_payroll_control_rec.payroll_control_id);
1487: LOOP
1488: FETCH gl_interface_cursor INTO gl_interface_rec;
1489: IF gl_interface_cursor%NOTFOUND THEN
1490: CLOSE gl_interface_cursor;
1491: EXIT;
1492: END IF;
1493:
1494: l_rec_count := l_rec_count + 1;
1492: END IF;
1493:
1494: l_rec_count := l_rec_count + 1;
1495:
1496: IF gl_interface_rec.dr_cr_flag = 'D' THEN
1497: l_entered_dr := gl_interface_rec.summary_amount;
1498: l_entered_cr := NULL;
1499: ELSIF gl_interface_rec.dr_cr_flag = 'C' THEN
1500: l_entered_dr := NULL;
1493:
1494: l_rec_count := l_rec_count + 1;
1495:
1496: IF gl_interface_rec.dr_cr_flag = 'D' THEN
1497: l_entered_dr := gl_interface_rec.summary_amount;
1498: l_entered_cr := NULL;
1499: ELSIF gl_interface_rec.dr_cr_flag = 'C' THEN
1500: l_entered_dr := NULL;
1501: l_entered_cr := gl_interface_rec.summary_amount;
1495:
1496: IF gl_interface_rec.dr_cr_flag = 'D' THEN
1497: l_entered_dr := gl_interface_rec.summary_amount;
1498: l_entered_cr := NULL;
1499: ELSIF gl_interface_rec.dr_cr_flag = 'C' THEN
1500: l_entered_dr := NULL;
1501: l_entered_cr := gl_interface_rec.summary_amount;
1502: END IF;
1503:
1497: l_entered_dr := gl_interface_rec.summary_amount;
1498: l_entered_cr := NULL;
1499: ELSIF gl_interface_rec.dr_cr_flag = 'C' THEN
1500: l_entered_dr := NULL;
1501: l_entered_cr := gl_interface_rec.summary_amount;
1502: END IF;
1503:
1504: -- dbms_output.put_line('Inserting into gl interface .............');
1505:
1500: l_entered_dr := NULL;
1501: l_entered_cr := gl_interface_rec.summary_amount;
1502: END IF;
1503:
1504: -- dbms_output.put_line('Inserting into gl interface .............');
1505:
1506: -- Changed The parameter g_currency_code to gl_batch_rec.currency_code, Introduced exchange_rate_type
1507: -- and conversion_date for Bug fix 2916848
1508:
1505:
1506: -- Changed The parameter g_currency_code to gl_batch_rec.currency_code, Introduced exchange_rate_type
1507: -- and conversion_date for Bug fix 2916848
1508:
1509: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' calling insert_into_gl_interface GL_INTERFACE_REC.SUMMARY_LINE_ID: '||GL_INTERFACE_REC.SUMMARY_LINE_ID);
1510:
1511: insert_into_gl_interface(
1512: P_SET_OF_BOOKS_ID, GL_INTERFACE_REC.EFFECTIVE_DATE,
1513: gl_payroll_control_rec.CURRENCY_CODE,
1507: -- and conversion_date for Bug fix 2916848
1508:
1509: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' calling insert_into_gl_interface GL_INTERFACE_REC.SUMMARY_LINE_ID: '||GL_INTERFACE_REC.SUMMARY_LINE_ID);
1510:
1511: insert_into_gl_interface(
1512: P_SET_OF_BOOKS_ID, GL_INTERFACE_REC.EFFECTIVE_DATE,
1513: gl_payroll_control_rec.CURRENCY_CODE,
1514: L_USER_JE_CATEGORY_NAME,L_USER_JE_SOURCE_NAME,L_ENCUMBRANCE_TYPE_ID,
1515: GL_INTERFACE_REC.GL_CODE_COMBINATION_ID,L_ENTERED_DR,L_ENTERED_CR,
1508:
1509: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' calling insert_into_gl_interface GL_INTERFACE_REC.SUMMARY_LINE_ID: '||GL_INTERFACE_REC.SUMMARY_LINE_ID);
1510:
1511: insert_into_gl_interface(
1512: P_SET_OF_BOOKS_ID, GL_INTERFACE_REC.EFFECTIVE_DATE,
1513: gl_payroll_control_rec.CURRENCY_CODE,
1514: L_USER_JE_CATEGORY_NAME,L_USER_JE_SOURCE_NAME,L_ENCUMBRANCE_TYPE_ID,
1515: GL_INTERFACE_REC.GL_CODE_COMBINATION_ID,L_ENTERED_DR,L_ENTERED_CR,
1516: L_GROUP_ID,L_REFERENCE1,L_REFERENCE1,L_REFERENCE4,
1511: insert_into_gl_interface(
1512: P_SET_OF_BOOKS_ID, GL_INTERFACE_REC.EFFECTIVE_DATE,
1513: gl_payroll_control_rec.CURRENCY_CODE,
1514: L_USER_JE_CATEGORY_NAME,L_USER_JE_SOURCE_NAME,L_ENCUMBRANCE_TYPE_ID,
1515: GL_INTERFACE_REC.GL_CODE_COMBINATION_ID,L_ENTERED_DR,L_ENTERED_CR,
1516: L_GROUP_ID,L_REFERENCE1,L_REFERENCE1,L_REFERENCE4,
1517: GL_INTERFACE_REC.SUMMARY_LINE_ID,L_REFERENCE4,
1518: GL_INTERFACE_REC.ATTRIBUTE1,GL_INTERFACE_REC.ATTRIBUTE2,
1519: GL_INTERFACE_REC.ATTRIBUTE3,GL_INTERFACE_REC.ATTRIBUTE4,
1513: gl_payroll_control_rec.CURRENCY_CODE,
1514: L_USER_JE_CATEGORY_NAME,L_USER_JE_SOURCE_NAME,L_ENCUMBRANCE_TYPE_ID,
1515: GL_INTERFACE_REC.GL_CODE_COMBINATION_ID,L_ENTERED_DR,L_ENTERED_CR,
1516: L_GROUP_ID,L_REFERENCE1,L_REFERENCE1,L_REFERENCE4,
1517: GL_INTERFACE_REC.SUMMARY_LINE_ID,L_REFERENCE4,
1518: GL_INTERFACE_REC.ATTRIBUTE1,GL_INTERFACE_REC.ATTRIBUTE2,
1519: GL_INTERFACE_REC.ATTRIBUTE3,GL_INTERFACE_REC.ATTRIBUTE4,
1520: GL_INTERFACE_REC.ATTRIBUTE5,GL_INTERFACE_REC.ATTRIBUTE6,
1521: GL_INTERFACE_REC.ATTRIBUTE7,GL_INTERFACE_REC.ATTRIBUTE8,
1514: L_USER_JE_CATEGORY_NAME,L_USER_JE_SOURCE_NAME,L_ENCUMBRANCE_TYPE_ID,
1515: GL_INTERFACE_REC.GL_CODE_COMBINATION_ID,L_ENTERED_DR,L_ENTERED_CR,
1516: L_GROUP_ID,L_REFERENCE1,L_REFERENCE1,L_REFERENCE4,
1517: GL_INTERFACE_REC.SUMMARY_LINE_ID,L_REFERENCE4,
1518: GL_INTERFACE_REC.ATTRIBUTE1,GL_INTERFACE_REC.ATTRIBUTE2,
1519: GL_INTERFACE_REC.ATTRIBUTE3,GL_INTERFACE_REC.ATTRIBUTE4,
1520: GL_INTERFACE_REC.ATTRIBUTE5,GL_INTERFACE_REC.ATTRIBUTE6,
1521: GL_INTERFACE_REC.ATTRIBUTE7,GL_INTERFACE_REC.ATTRIBUTE8,
1522: GL_INTERFACE_REC.ATTRIBUTE9,GL_INTERFACE_REC.ATTRIBUTE10,
1515: GL_INTERFACE_REC.GL_CODE_COMBINATION_ID,L_ENTERED_DR,L_ENTERED_CR,
1516: L_GROUP_ID,L_REFERENCE1,L_REFERENCE1,L_REFERENCE4,
1517: GL_INTERFACE_REC.SUMMARY_LINE_ID,L_REFERENCE4,
1518: GL_INTERFACE_REC.ATTRIBUTE1,GL_INTERFACE_REC.ATTRIBUTE2,
1519: GL_INTERFACE_REC.ATTRIBUTE3,GL_INTERFACE_REC.ATTRIBUTE4,
1520: GL_INTERFACE_REC.ATTRIBUTE5,GL_INTERFACE_REC.ATTRIBUTE6,
1521: GL_INTERFACE_REC.ATTRIBUTE7,GL_INTERFACE_REC.ATTRIBUTE8,
1522: GL_INTERFACE_REC.ATTRIBUTE9,GL_INTERFACE_REC.ATTRIBUTE10,
1523: GL_INTERFACE_REC.ATTRIBUTE11,GL_INTERFACE_REC.ATTRIBUTE12,
1516: L_GROUP_ID,L_REFERENCE1,L_REFERENCE1,L_REFERENCE4,
1517: GL_INTERFACE_REC.SUMMARY_LINE_ID,L_REFERENCE4,
1518: GL_INTERFACE_REC.ATTRIBUTE1,GL_INTERFACE_REC.ATTRIBUTE2,
1519: GL_INTERFACE_REC.ATTRIBUTE3,GL_INTERFACE_REC.ATTRIBUTE4,
1520: GL_INTERFACE_REC.ATTRIBUTE5,GL_INTERFACE_REC.ATTRIBUTE6,
1521: GL_INTERFACE_REC.ATTRIBUTE7,GL_INTERFACE_REC.ATTRIBUTE8,
1522: GL_INTERFACE_REC.ATTRIBUTE9,GL_INTERFACE_REC.ATTRIBUTE10,
1523: GL_INTERFACE_REC.ATTRIBUTE11,GL_INTERFACE_REC.ATTRIBUTE12,
1524: GL_INTERFACE_REC.ATTRIBUTE13,GL_INTERFACE_REC.ATTRIBUTE14,
1517: GL_INTERFACE_REC.SUMMARY_LINE_ID,L_REFERENCE4,
1518: GL_INTERFACE_REC.ATTRIBUTE1,GL_INTERFACE_REC.ATTRIBUTE2,
1519: GL_INTERFACE_REC.ATTRIBUTE3,GL_INTERFACE_REC.ATTRIBUTE4,
1520: GL_INTERFACE_REC.ATTRIBUTE5,GL_INTERFACE_REC.ATTRIBUTE6,
1521: GL_INTERFACE_REC.ATTRIBUTE7,GL_INTERFACE_REC.ATTRIBUTE8,
1522: GL_INTERFACE_REC.ATTRIBUTE9,GL_INTERFACE_REC.ATTRIBUTE10,
1523: GL_INTERFACE_REC.ATTRIBUTE11,GL_INTERFACE_REC.ATTRIBUTE12,
1524: GL_INTERFACE_REC.ATTRIBUTE13,GL_INTERFACE_REC.ATTRIBUTE14,
1525: GL_INTERFACE_REC.ATTRIBUTE15,GL_INTERFACE_REC.ATTRIBUTE16,
1518: GL_INTERFACE_REC.ATTRIBUTE1,GL_INTERFACE_REC.ATTRIBUTE2,
1519: GL_INTERFACE_REC.ATTRIBUTE3,GL_INTERFACE_REC.ATTRIBUTE4,
1520: GL_INTERFACE_REC.ATTRIBUTE5,GL_INTERFACE_REC.ATTRIBUTE6,
1521: GL_INTERFACE_REC.ATTRIBUTE7,GL_INTERFACE_REC.ATTRIBUTE8,
1522: GL_INTERFACE_REC.ATTRIBUTE9,GL_INTERFACE_REC.ATTRIBUTE10,
1523: GL_INTERFACE_REC.ATTRIBUTE11,GL_INTERFACE_REC.ATTRIBUTE12,
1524: GL_INTERFACE_REC.ATTRIBUTE13,GL_INTERFACE_REC.ATTRIBUTE14,
1525: GL_INTERFACE_REC.ATTRIBUTE15,GL_INTERFACE_REC.ATTRIBUTE16,
1526: GL_INTERFACE_REC.ATTRIBUTE17,GL_INTERFACE_REC.ATTRIBUTE18,
1519: GL_INTERFACE_REC.ATTRIBUTE3,GL_INTERFACE_REC.ATTRIBUTE4,
1520: GL_INTERFACE_REC.ATTRIBUTE5,GL_INTERFACE_REC.ATTRIBUTE6,
1521: GL_INTERFACE_REC.ATTRIBUTE7,GL_INTERFACE_REC.ATTRIBUTE8,
1522: GL_INTERFACE_REC.ATTRIBUTE9,GL_INTERFACE_REC.ATTRIBUTE10,
1523: GL_INTERFACE_REC.ATTRIBUTE11,GL_INTERFACE_REC.ATTRIBUTE12,
1524: GL_INTERFACE_REC.ATTRIBUTE13,GL_INTERFACE_REC.ATTRIBUTE14,
1525: GL_INTERFACE_REC.ATTRIBUTE15,GL_INTERFACE_REC.ATTRIBUTE16,
1526: GL_INTERFACE_REC.ATTRIBUTE17,GL_INTERFACE_REC.ATTRIBUTE18,
1527: GL_INTERFACE_REC.ATTRIBUTE19,GL_INTERFACE_REC.ATTRIBUTE20,
1520: GL_INTERFACE_REC.ATTRIBUTE5,GL_INTERFACE_REC.ATTRIBUTE6,
1521: GL_INTERFACE_REC.ATTRIBUTE7,GL_INTERFACE_REC.ATTRIBUTE8,
1522: GL_INTERFACE_REC.ATTRIBUTE9,GL_INTERFACE_REC.ATTRIBUTE10,
1523: GL_INTERFACE_REC.ATTRIBUTE11,GL_INTERFACE_REC.ATTRIBUTE12,
1524: GL_INTERFACE_REC.ATTRIBUTE13,GL_INTERFACE_REC.ATTRIBUTE14,
1525: GL_INTERFACE_REC.ATTRIBUTE15,GL_INTERFACE_REC.ATTRIBUTE16,
1526: GL_INTERFACE_REC.ATTRIBUTE17,GL_INTERFACE_REC.ATTRIBUTE18,
1527: GL_INTERFACE_REC.ATTRIBUTE19,GL_INTERFACE_REC.ATTRIBUTE20,
1528: GL_INTERFACE_REC.ATTRIBUTE21,GL_INTERFACE_REC.ATTRIBUTE22,
1521: GL_INTERFACE_REC.ATTRIBUTE7,GL_INTERFACE_REC.ATTRIBUTE8,
1522: GL_INTERFACE_REC.ATTRIBUTE9,GL_INTERFACE_REC.ATTRIBUTE10,
1523: GL_INTERFACE_REC.ATTRIBUTE11,GL_INTERFACE_REC.ATTRIBUTE12,
1524: GL_INTERFACE_REC.ATTRIBUTE13,GL_INTERFACE_REC.ATTRIBUTE14,
1525: GL_INTERFACE_REC.ATTRIBUTE15,GL_INTERFACE_REC.ATTRIBUTE16,
1526: GL_INTERFACE_REC.ATTRIBUTE17,GL_INTERFACE_REC.ATTRIBUTE18,
1527: GL_INTERFACE_REC.ATTRIBUTE19,GL_INTERFACE_REC.ATTRIBUTE20,
1528: GL_INTERFACE_REC.ATTRIBUTE21,GL_INTERFACE_REC.ATTRIBUTE22,
1529: GL_INTERFACE_REC.ATTRIBUTE23,GL_INTERFACE_REC.ATTRIBUTE24,
1522: GL_INTERFACE_REC.ATTRIBUTE9,GL_INTERFACE_REC.ATTRIBUTE10,
1523: GL_INTERFACE_REC.ATTRIBUTE11,GL_INTERFACE_REC.ATTRIBUTE12,
1524: GL_INTERFACE_REC.ATTRIBUTE13,GL_INTERFACE_REC.ATTRIBUTE14,
1525: GL_INTERFACE_REC.ATTRIBUTE15,GL_INTERFACE_REC.ATTRIBUTE16,
1526: GL_INTERFACE_REC.ATTRIBUTE17,GL_INTERFACE_REC.ATTRIBUTE18,
1527: GL_INTERFACE_REC.ATTRIBUTE19,GL_INTERFACE_REC.ATTRIBUTE20,
1528: GL_INTERFACE_REC.ATTRIBUTE21,GL_INTERFACE_REC.ATTRIBUTE22,
1529: GL_INTERFACE_REC.ATTRIBUTE23,GL_INTERFACE_REC.ATTRIBUTE24,
1530: GL_INTERFACE_REC.ATTRIBUTE25,GL_INTERFACE_REC.ATTRIBUTE26,
1523: GL_INTERFACE_REC.ATTRIBUTE11,GL_INTERFACE_REC.ATTRIBUTE12,
1524: GL_INTERFACE_REC.ATTRIBUTE13,GL_INTERFACE_REC.ATTRIBUTE14,
1525: GL_INTERFACE_REC.ATTRIBUTE15,GL_INTERFACE_REC.ATTRIBUTE16,
1526: GL_INTERFACE_REC.ATTRIBUTE17,GL_INTERFACE_REC.ATTRIBUTE18,
1527: GL_INTERFACE_REC.ATTRIBUTE19,GL_INTERFACE_REC.ATTRIBUTE20,
1528: GL_INTERFACE_REC.ATTRIBUTE21,GL_INTERFACE_REC.ATTRIBUTE22,
1529: GL_INTERFACE_REC.ATTRIBUTE23,GL_INTERFACE_REC.ATTRIBUTE24,
1530: GL_INTERFACE_REC.ATTRIBUTE25,GL_INTERFACE_REC.ATTRIBUTE26,
1531: GL_INTERFACE_REC.ATTRIBUTE27,GL_INTERFACE_REC.ATTRIBUTE28,
1524: GL_INTERFACE_REC.ATTRIBUTE13,GL_INTERFACE_REC.ATTRIBUTE14,
1525: GL_INTERFACE_REC.ATTRIBUTE15,GL_INTERFACE_REC.ATTRIBUTE16,
1526: GL_INTERFACE_REC.ATTRIBUTE17,GL_INTERFACE_REC.ATTRIBUTE18,
1527: GL_INTERFACE_REC.ATTRIBUTE19,GL_INTERFACE_REC.ATTRIBUTE20,
1528: GL_INTERFACE_REC.ATTRIBUTE21,GL_INTERFACE_REC.ATTRIBUTE22,
1529: GL_INTERFACE_REC.ATTRIBUTE23,GL_INTERFACE_REC.ATTRIBUTE24,
1530: GL_INTERFACE_REC.ATTRIBUTE25,GL_INTERFACE_REC.ATTRIBUTE26,
1531: GL_INTERFACE_REC.ATTRIBUTE27,GL_INTERFACE_REC.ATTRIBUTE28,
1532: GL_INTERFACE_REC.ATTRIBUTE29,GL_INTERFACE_REC.ATTRIBUTE30,
1525: GL_INTERFACE_REC.ATTRIBUTE15,GL_INTERFACE_REC.ATTRIBUTE16,
1526: GL_INTERFACE_REC.ATTRIBUTE17,GL_INTERFACE_REC.ATTRIBUTE18,
1527: GL_INTERFACE_REC.ATTRIBUTE19,GL_INTERFACE_REC.ATTRIBUTE20,
1528: GL_INTERFACE_REC.ATTRIBUTE21,GL_INTERFACE_REC.ATTRIBUTE22,
1529: GL_INTERFACE_REC.ATTRIBUTE23,GL_INTERFACE_REC.ATTRIBUTE24,
1530: GL_INTERFACE_REC.ATTRIBUTE25,GL_INTERFACE_REC.ATTRIBUTE26,
1531: GL_INTERFACE_REC.ATTRIBUTE27,GL_INTERFACE_REC.ATTRIBUTE28,
1532: GL_INTERFACE_REC.ATTRIBUTE29,GL_INTERFACE_REC.ATTRIBUTE30,
1533: GL_INTERFACE_REC.EXCHANGE_RATE_TYPE, -- modified for 3108109
1526: GL_INTERFACE_REC.ATTRIBUTE17,GL_INTERFACE_REC.ATTRIBUTE18,
1527: GL_INTERFACE_REC.ATTRIBUTE19,GL_INTERFACE_REC.ATTRIBUTE20,
1528: GL_INTERFACE_REC.ATTRIBUTE21,GL_INTERFACE_REC.ATTRIBUTE22,
1529: GL_INTERFACE_REC.ATTRIBUTE23,GL_INTERFACE_REC.ATTRIBUTE24,
1530: GL_INTERFACE_REC.ATTRIBUTE25,GL_INTERFACE_REC.ATTRIBUTE26,
1531: GL_INTERFACE_REC.ATTRIBUTE27,GL_INTERFACE_REC.ATTRIBUTE28,
1532: GL_INTERFACE_REC.ATTRIBUTE29,GL_INTERFACE_REC.ATTRIBUTE30,
1533: GL_INTERFACE_REC.EXCHANGE_RATE_TYPE, -- modified for 3108109
1534: GL_INTERFACE_REC.ACCOUNTING_DATE,
1527: GL_INTERFACE_REC.ATTRIBUTE19,GL_INTERFACE_REC.ATTRIBUTE20,
1528: GL_INTERFACE_REC.ATTRIBUTE21,GL_INTERFACE_REC.ATTRIBUTE22,
1529: GL_INTERFACE_REC.ATTRIBUTE23,GL_INTERFACE_REC.ATTRIBUTE24,
1530: GL_INTERFACE_REC.ATTRIBUTE25,GL_INTERFACE_REC.ATTRIBUTE26,
1531: GL_INTERFACE_REC.ATTRIBUTE27,GL_INTERFACE_REC.ATTRIBUTE28,
1532: GL_INTERFACE_REC.ATTRIBUTE29,GL_INTERFACE_REC.ATTRIBUTE30,
1533: GL_INTERFACE_REC.EXCHANGE_RATE_TYPE, -- modified for 3108109
1534: GL_INTERFACE_REC.ACCOUNTING_DATE,
1535: -- Introduced for Bug 2916848
1528: GL_INTERFACE_REC.ATTRIBUTE21,GL_INTERFACE_REC.ATTRIBUTE22,
1529: GL_INTERFACE_REC.ATTRIBUTE23,GL_INTERFACE_REC.ATTRIBUTE24,
1530: GL_INTERFACE_REC.ATTRIBUTE25,GL_INTERFACE_REC.ATTRIBUTE26,
1531: GL_INTERFACE_REC.ATTRIBUTE27,GL_INTERFACE_REC.ATTRIBUTE28,
1532: GL_INTERFACE_REC.ATTRIBUTE29,GL_INTERFACE_REC.ATTRIBUTE30,
1533: GL_INTERFACE_REC.EXCHANGE_RATE_TYPE, -- modified for 3108109
1534: GL_INTERFACE_REC.ACCOUNTING_DATE,
1535: -- Introduced for Bug 2916848
1536: L_RETURN_STATUS);
1529: GL_INTERFACE_REC.ATTRIBUTE23,GL_INTERFACE_REC.ATTRIBUTE24,
1530: GL_INTERFACE_REC.ATTRIBUTE25,GL_INTERFACE_REC.ATTRIBUTE26,
1531: GL_INTERFACE_REC.ATTRIBUTE27,GL_INTERFACE_REC.ATTRIBUTE28,
1532: GL_INTERFACE_REC.ATTRIBUTE29,GL_INTERFACE_REC.ATTRIBUTE30,
1533: GL_INTERFACE_REC.EXCHANGE_RATE_TYPE, -- modified for 3108109
1534: GL_INTERFACE_REC.ACCOUNTING_DATE,
1535: -- Introduced for Bug 2916848
1536: L_RETURN_STATUS);
1537:
1530: GL_INTERFACE_REC.ATTRIBUTE25,GL_INTERFACE_REC.ATTRIBUTE26,
1531: GL_INTERFACE_REC.ATTRIBUTE27,GL_INTERFACE_REC.ATTRIBUTE28,
1532: GL_INTERFACE_REC.ATTRIBUTE29,GL_INTERFACE_REC.ATTRIBUTE30,
1533: GL_INTERFACE_REC.EXCHANGE_RATE_TYPE, -- modified for 3108109
1534: GL_INTERFACE_REC.ACCOUNTING_DATE,
1535: -- Introduced for Bug 2916848
1536: L_RETURN_STATUS);
1537:
1538: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1539: --dbms_output.put_line('Faaaaaaiiiiiiilllllllleeeeeeeeeddddddd......');
1540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1541: END IF;
1542:
1543: END LOOP; -- End of gl_interface_cursor
1544:
1545: END LOOP; -- End of gl_payroll_control_cursor
1546: CLOSE gl_payroll_control_cursor;
1547:
1571: -- Call the gather table statistics here....
1572: /* BEGIN
1573:
1574: FND_STATS.Gather_Table_Stats(ownname => 'GL',
1575: tabname => 'GL_INTERFACE');
1576: commented for , 2476829
1577: percent => 10,
1578: tmode => 'TEMPORARY');
1579:
1583: NULL;
1584: END;
1585: */
1586:
1587: -- insert into gl_interface_control
1588:
1589: SELECT GL_JOURNAL_IMPORT_S.NEXTVAL
1590: INTO l_int_run_id
1591: FROM dual;
1588:
1589: SELECT GL_JOURNAL_IMPORT_S.NEXTVAL
1590: INTO l_int_run_id
1591: FROM dual;
1592: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' insert into gl_interface_control');
1593: INSERT into gl_interface_control(je_source_name,status,interface_run_id,
1594: group_id,set_of_books_id)
1595: VALUES (l_user_je_source_name, 'S',l_int_run_id,
1596: l_group_id,p_set_of_books_id);
1589: SELECT GL_JOURNAL_IMPORT_S.NEXTVAL
1590: INTO l_int_run_id
1591: FROM dual;
1592: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' insert into gl_interface_control');
1593: INSERT into gl_interface_control(je_source_name,status,interface_run_id,
1594: group_id,set_of_books_id)
1595: VALUES (l_user_je_source_name, 'S',l_int_run_id,
1596: l_group_id,p_set_of_books_id);
1597:
1701:
1702: EXCEPTION
1703: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1704: --dbms_output.put_line('Gone to one level top ..................');
1705: g_error_api_path := 'TRANSFER_TO_GL_INTERFACE:'||g_error_api_path;
1706: p_return_status := fnd_api.g_ret_sts_unexp_error;
1707:
1708: WHEN RETURN_BACK THEN
1709: p_return_status := fnd_api.g_ret_sts_success;
1710:
1711: WHEN OTHERS THEN
1712: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
1713:
1714: g_error_api_path := 'TRANSFER_TO_GL_INTERFACE:'||g_error_api_path;
1715: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','TRANSFER_TO_GL_INTERFACE');
1716: p_return_status := fnd_api.g_ret_sts_unexp_error;
1717: END;
1718:
1711: WHEN OTHERS THEN
1712: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
1713:
1714: g_error_api_path := 'TRANSFER_TO_GL_INTERFACE:'||g_error_api_path;
1715: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','TRANSFER_TO_GL_INTERFACE');
1716: p_return_status := fnd_api.g_ret_sts_unexp_error;
1717: END;
1718:
1719: ---------------------- GET_GL_JE_SOURCES --------------------------------------------------
1818:
1819: CURSOR gl_tie_back_reject_cur IS
1820: SELECT status,
1821: reference6
1822: FROM gl_interface
1823: WHERE group_id = p_group_id
1824: AND set_of_books_id = p_set_of_books_id
1825: AND user_je_source_name = 'OLD'
1826: AND reference6 in(select summary_line_id FROM psp_summary_lines -- Bug 7376898
1940: --
1941: l_status VARCHAR2(50);
1942: l_reference6 VARCHAR2(100);
1943: --
1944: l_cnt_gl_interface NUMBER;
1945: l_summary_line_id NUMBER(10);
1946: l_gl_project_flag VARCHAR2(1);
1947: l_suspense_ac_failed VARCHAR2(1) := 'N';
1948: l_reversal_ac_failed VARCHAR2(1) := 'N';
2024: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Entered gl_tie_back');
2025:
2026: select count(*)
2027: into l_no_run
2028: from gl_interface
2029: where status = 'NEW'
2030: and group_id = p_group_id
2031: and user_je_source_name = 'OLD'
2032: AND reference6 in(select summary_line_id FROM psp_summary_lines -- Bug 7376898
2036: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' l_no_run: '||l_no_run);
2037:
2038: if l_no_run > 0 then
2039:
2040: delete from gl_interface
2041: where group_id = p_group_id
2042: and user_je_source_name = 'OLD'
2043: AND reference6 in(select summary_line_id FROM psp_summary_lines -- Bug 7376898
2044: WHERE GROUP_ID = p_group_id
2043: AND reference6 in(select summary_line_id FROM psp_summary_lines -- Bug 7376898
2044: WHERE GROUP_ID = p_group_id
2045: AND payroll_control_id = p_payroll_control_id);
2046:
2047: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Deleted from gl_interface count: '||sql%rowcount);
2048:
2049:
2050: delete from psp_summary_lines
2051: where payroll_control_id = p_payroll_control_id
2062: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2063: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2064: END IF;
2065:
2066: delete gl_interface_Control
2067: where group_id = p_group_id
2068: and je_source_name = l_user_je_source_name;
2069:
2070: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Deleted from gl_interface_control count: '||sql%rowcount);
2066: delete gl_interface_Control
2067: where group_id = p_group_id
2068: and je_source_name = l_user_je_source_name;
2069:
2070: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Deleted from gl_interface_control count: '||sql%rowcount);
2071:
2072: update psp_payroll_controls
2073: set phase = null
2074: where payroll_control_id = p_payroll_control_id;
2089:
2090: end if;
2091:
2092: SELECT count(*)
2093: INTO l_cnt_gl_interface
2094: FROM gl_interface
2095: WHERE group_id = p_group_id
2096: AND user_je_source_name = 'OLD'
2097: AND set_of_books_id = p_set_of_books_id
2090: end if;
2091:
2092: SELECT count(*)
2093: INTO l_cnt_gl_interface
2094: FROM gl_interface
2095: WHERE group_id = p_group_id
2096: AND user_je_source_name = 'OLD'
2097: AND set_of_books_id = p_set_of_books_id
2098: AND reference6 in(select summary_line_id FROM psp_summary_lines -- Bug 7376898
2107: UPDATE psp_payroll_controls
2108: SET phase = 'GL_Tie_Back'
2109: WHERE payroll_control_id = p_payroll_control_id;
2110:
2111: IF l_cnt_gl_interface > 0 THEN
2112: --
2113: OPEN gl_tie_back_reject_cur;
2114: LOOP
2115: FETCH gl_tie_back_reject_cur INTO l_status,l_reference6;
2375:
2376:
2377: END LOOP;
2378: END LOOP;
2379: ---2445196: cleanup gl interface b'cos rejection is available in rejected summary lines
2380: get_gl_je_sources(l_user_je_source_name,
2381: l_return_status);
2382: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2382: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2384: END IF;
2385:
2386: delete gl_interface
2387: where group_id = p_group_id
2388: and set_of_books_id = p_set_of_books_id
2389: AND user_je_source_name = l_user_je_source_name
2390: and reference6 in(select summary_line_id FROM psp_summary_lines -- Bug 7376898
2389: AND user_je_source_name = l_user_je_source_name
2390: and reference6 in(select summary_line_id FROM psp_summary_lines -- Bug 7376898
2391: WHERE GROUP_ID = p_group_id
2392: AND payroll_control_id = p_payroll_control_id);
2393: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' deleted from gl_interface count: '||sql%rowcount);
2394:
2395: IF l_reversal_ac_failed = 'Y' THEN
2396: fnd_message.set_name('PSP','PSP_GL_REVERSE_AC_REJECT');
2397: fnd_message.set_token('GLCCID',x_lines_glccid);
2553: end if;
2554: END IF;
2555:
2556:
2557: ELSIF l_cnt_gl_interface = 0 and l_no_run = 0 THEN
2558: --
2559: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Open gl_tie_back_success_cur');
2560:
2561: OPEN gl_tie_back_success_cur;
2943: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GL_BALANCE_TRANSACTION');
2944: p_return_status := fnd_api.g_ret_sts_unexp_error;
2945: END;
2946:
2947: ------------------ INSERT INTO GL INTERFACE -----------------------------------------------
2948:
2949: PROCEDURE insert_into_gl_interface(
2950: P_SET_OF_BOOKS_ID IN NUMBER,
2951: P_ACCOUNTING_DATE IN DATE,
2945: END;
2946:
2947: ------------------ INSERT INTO GL INTERFACE -----------------------------------------------
2948:
2949: PROCEDURE insert_into_gl_interface(
2950: P_SET_OF_BOOKS_ID IN NUMBER,
2951: P_ACCOUNTING_DATE IN DATE,
2952: P_CURRENCY_CODE IN VARCHAR2,
2953: P_USER_JE_CATEGORY_NAME IN VARCHAR2,
3002: -- dbms_output.put_line('curren='||p_currency_code);
3003: --dbms_output.put_line('category='||p_user_je_category_name);
3004: --dbms_output.put_line('source='||p_user_je_source_name);
3005:
3006: INSERT INTO GL_INTERFACE(
3007: STATUS,
3008: SET_OF_BOOKS_ID,
3009: ACCOUNTING_DATE,
3010: CURRENCY_CODE,
3107: P_ATTRIBUTE29,
3108: P_ATTRIBUTE30,
3109: P_CURRENCY_CONVERSION_TYPE,-- Introduced the following code for Bug fix 2916848
3110: DECODE(p_currency_conversion_type, NULL, NULL, P_CURRENCY_CONVERSION_DATE));-- Introduced the following code for Bug fix 2916848
3111: --dbms_output.put_line('DDDDDDDDDDDDDDDDDGL Interface Inserted ....................');
3112: p_return_status := fnd_api.g_ret_sts_success;
3113: EXCEPTION
3114: WHEN OTHERS THEN
3115: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
3114: WHEN OTHERS THEN
3115: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
3116:
3117: --dbms_output.put_line('Error while inserting .........................');
3118: g_error_api_path := 'INSERT_INTO_GL_INTERFACE:'||g_error_api_path;
3119: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','INSERT_INTO_GL_INTERFACE');
3120: p_return_status := fnd_api.g_ret_sts_unexp_error;
3121: END;
3122:
3115: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
3116:
3117: --dbms_output.put_line('Error while inserting .........................');
3118: g_error_api_path := 'INSERT_INTO_GL_INTERFACE:'||g_error_api_path;
3119: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','INSERT_INTO_GL_INTERFACE');
3120: p_return_status := fnd_api.g_ret_sts_unexp_error;
3121: END;
3122:
3123: -------------------- CREATE GMS SUM LINES -----------------------------------------------