[Home] [Help]
78: p_business_group_id,
79: p_set_of_books_id,
80: l_return_status);
81:
82: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
83: -- Bug: 1994421.Commented the retcode and return statement as part of Zero work days enhancement.
84: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
85: --retcode := 2;
86: --return;
80: l_return_status);
81:
82: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
83: -- Bug: 1994421.Commented the retcode and return statement as part of Zero work days enhancement.
84: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
85: --retcode := 2;
86: --return;
87: END IF;
88:
86: --return;
87: END IF;
88:
89: psp_message_s.print_error(p_mode => FND_FILE.LOG,
90: p_print_header => FND_API.G_FALSE);
91:
92: fnd_msg_pub.initialize;
93:
94: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' Calling create_gms_sum_lines for p_adj_sum_batch_name: '||p_adj_sum_batch_name);
97: p_business_group_id,
98: p_set_of_books_id,
99: l_return_status);
100:
101: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103: END IF;
104:
105: -- call the user extension to populate attribute1 through attribute30
98: p_set_of_books_id,
99: l_return_status);
100:
101: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103: END IF;
104:
105: -- call the user extension to populate attribute1 through attribute30
106: IF FND_PROFILE.VALUE('PSP_ST_EXTENSION_ENABLE') = 'Y' THEN
126: p_business_group_id,
127: p_set_of_books_id,
128: l_return_status);
129:
130: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
131: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' Calling GMS check_interface_status for failure');
132:
133: check_interface_status('GMS', p_adj_sum_batch_name);
134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
130: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
131: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' Calling GMS check_interface_status for failure');
132:
133: check_interface_status('GMS', p_adj_sum_batch_name);
134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
135: END IF;
136:
137: -- Check the target system status and do the tieback
138: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' Calling gms_tie_back');
141: p_business_group_id,
142: p_set_of_books_id,
143: l_return_status);
144:
145: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
147: END IF;
148:
149: end if; ---- end if for g_gms_avail = 'Y'
142: p_set_of_books_id,
143: l_return_status);
144:
145: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
147: END IF;
148:
149: end if; ---- end if for g_gms_avail = 'Y'
150: -- initiate the gl summarization and transfer
153: create_gl_sum_lines(p_adj_sum_batch_name,
154: p_business_group_id,
155: p_set_of_books_id,
156: l_return_status);
157: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
159: END IF;
160:
161: -- call the user extension to populate attribute1 through attribute30
154: p_business_group_id,
155: p_set_of_books_id,
156: l_return_status);
157: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
159: END IF;
160:
161: -- call the user extension to populate attribute1 through attribute30
162: IF FND_PROFILE.VALUE('PSP_ST_EXTENSION_ENABLE') = 'Y' THEN
179: p_business_group_id,
180: p_set_of_books_id,
181: l_return_status);
182:
183: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
184: THEN
185: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' Calling GL check_interface_status for failure');
186:
187: check_interface_status('GL', p_adj_sum_batch_name);
184: THEN
185: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' Calling GL check_interface_status for failure');
186:
187: check_interface_status('GL', p_adj_sum_batch_name);
188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
189: END IF;
190:
191: -- dbms_output.put_line('Going to gl_tie_back');
192:
196: p_business_group_id,
197: p_set_of_books_id,
198: l_return_status);
199:
200: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
202: end if;
203:
204: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' Calling Mark batch_end ');
197: p_set_of_books_id,
198: l_return_status);
199:
200: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
202: end if;
203:
204: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' Calling Mark batch_end ');
205:
207: p_business_group_id,
208: p_set_of_books_id,
209: l_return_status);
210:
211: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: END IF;
214:
215: if fnd_msg_pub.Count_Msg > 0 then
208: p_set_of_books_id,
209: l_return_status);
210:
211: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: END IF;
214:
215: if fnd_msg_pub.Count_Msg > 0 then
216: psp_message_s.print_error(p_mode => FND_FILE.LOG,
213: END IF;
214:
215: if fnd_msg_pub.Count_Msg > 0 then
216: psp_message_s.print_error(p_mode => FND_FILE.LOG,
217: p_print_header => FND_API.G_FALSE);
218: else
219: PSP_MESSAGE_S.Print_success;
220: end if;
221:
218: else
219: PSP_MESSAGE_S.Print_success;
220: end if;
221:
222: retcode := FND_API.G_RET_STS_SUCCESS;
223: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' End of Adj S&T');
224:
225: EXCEPTION
226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
222: retcode := FND_API.G_RET_STS_SUCCESS;
223: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' End of Adj S&T');
224:
225: EXCEPTION
226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
227: -- Bug 1776606 : Introduced Rollback ,
228: rollback;
229:
230: psp_message_s.print_error(p_mode => FND_FILE.LOG,
227: -- Bug 1776606 : Introduced Rollback ,
228: rollback;
229:
230: psp_message_s.print_error(p_mode => FND_FILE.LOG,
231: p_print_header => FND_API.G_TRUE);
232: retcode := 2;
233: WHEN OTHERS THEN
234: --Bug 1776606 : Introduced Rollback
235: rollback;
233: WHEN OTHERS THEN
234: --Bug 1776606 : Introduced Rollback
235: rollback;
236: psp_message_s.print_error(p_mode => FND_FILE.LOG,
237: p_print_header => FND_API.G_TRUE);
238: retcode := 2;
239: END;
240:
241: -------------------- MARK BATCH BEGIN --------------------------------------------
321: OPEN batch_name_exist_cur;
322: FETCH batch_name_exist_cur INTO l_batch_name_exists;
323: IF (batch_name_exist_cur%NOTFOUND) THEN
324: CLOSE batch_name_exist_cur;
325: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
326: END IF;
327: CLOSE batch_name_exist_cur;
328:
329: if l_batch_name_exists > 0 then
329: if l_batch_name_exists > 0 then
330: fnd_message.set_name('PSP','PSP_GB_NAME_EXISTS');
331: fnd_message.set_token('GB_NAME', p_adj_sum_batch_name);
332: fnd_msg_pub.add;
333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
334: end if;
335:
336: open pc_batch_cur;
337: loop
352: fnd_message.set_token('GB_NAME',p_adj_sum_batch_name);
353: get_the_batch_details(pc_batch_rec.batch_name, l_return_status);
354: fnd_msg_pub.add;
355:
356: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
357: l_batch_details_failed := TRUE;
358: ELSE
359: l_batch_details_failed := FALSE;
360: END IF; -- If Successful
394:
395: END LOOP;
396: end loop;
397: --commit;
398: p_return_status := fnd_api.g_ret_sts_success;
399: --Included as part of Bug fix #1776606
400: EXCEPTION
401: WHEN OTHERS THEN
402: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','MARK_BATCH_BEGIN');
493: 'Adjustments',
494: null,
495: p_adj_sum_batch_name,
496: l_return_status);
497: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
499: END IF;
500:
501:
494: null,
495: p_adj_sum_batch_name,
496: l_return_status);
497: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
499: END IF;
500:
501:
502: END IF;
775: p_business_group_id,
776: p_set_of_books_id,
777: l_return_status);
778:
779: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
780: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
781: END IF;
782: */
783:
776: p_set_of_books_id,
777: l_return_status);
778:
779: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
780: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
781: END IF;
782: */
783:
784: OPEN gl_sum_lines_cursor(payroll_control_rec.payroll_control_id);
880: l_attribute9,
881: l_attribute10,
882: l_return_status);
883:
884: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
886: END IF;
887: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' calling insert_into_summary_lines');
888:
881: l_attribute10,
882: l_return_status);
883:
884: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
886: END IF;
887: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' calling insert_into_summary_lines');
888:
889:
971: l_attribute10,
972: l_return_status);
973:
974:
975: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
977: END IF;
978: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' After insert_into_summary_lines 2 l_summary_line_id: '||l_summary_line_id);
979:
972: l_return_status);
973:
974:
975: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
977: END IF;
978: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' After insert_into_summary_lines 2 l_summary_line_id: '||l_summary_line_id);
979:
980:
999: p_business_group_id,
1000: p_set_of_books_id,
1001: l_return_status);
1002:
1003: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1005: END IF;
1006: end if;
1007: dist_line_id.delete;
1000: p_set_of_books_id,
1001: l_return_status);
1002:
1003: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1005: END IF;
1006: end if;
1007: dist_line_id.delete;
1008: END IF;
1009: END LOOP; -- end loop for payroll_control_cur
1010: END LOOP; -- end loop for pc_batch_cur
1011:
1012: --
1013: p_return_status := fnd_api.g_ret_sts_success;
1014:
1015: EXCEPTION
1016:
1017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1013: p_return_status := fnd_api.g_ret_sts_success;
1014:
1015: EXCEPTION
1016:
1017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1018: g_error_api_path := 'CREATE_GL_SUM_LINES:'||g_error_api_path;
1019: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','CREATE_GL_SUM_LINES');
1020: p_return_status := fnd_api.g_ret_sts_unexp_error;
1021: WHEN OTHERS THEN
1016:
1017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1018: g_error_api_path := 'CREATE_GL_SUM_LINES:'||g_error_api_path;
1019: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','CREATE_GL_SUM_LINES');
1020: p_return_status := fnd_api.g_ret_sts_unexp_error;
1021: WHEN OTHERS THEN
1022: g_error_api_path := 'CREATE_GL_SUM_LINES:'||g_error_api_path;
1023: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','CREATE_GL_SUM_LINES');
1024: p_return_status := fnd_api.g_ret_sts_unexp_error;
1020: p_return_status := fnd_api.g_ret_sts_unexp_error;
1021: WHEN OTHERS THEN
1022: g_error_api_path := 'CREATE_GL_SUM_LINES:'||g_error_api_path;
1023: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','CREATE_GL_SUM_LINES');
1024: p_return_status := fnd_api.g_ret_sts_unexp_error;
1025:
1026: END;
1027:
1028:
1167: p_attribute10,
1168: P_ORG_ID -- R12 MOAc uptake
1169: );
1170: --
1171: p_return_status := fnd_api.g_ret_sts_success;
1172: EXCEPTION
1173: WHEN OTHERS THEN
1174: g_error_api_path := 'INSERT_INTO_SUMMARY_LINES:'||g_error_api_path;
1175: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','INSERT_INTO_SUMMARY_LINES');
1172: EXCEPTION
1173: WHEN OTHERS THEN
1174: g_error_api_path := 'INSERT_INTO_SUMMARY_LINES:'||g_error_api_path;
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:
1322:
1323: -- get the source name
1324: get_gl_je_sources(l_user_je_source_name,
1325: l_return_status);
1326: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1328: END IF;
1329:
1330: -- get the category name
1323: -- get the source name
1324: get_gl_je_sources(l_user_je_source_name,
1325: l_return_status);
1326: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1328: END IF;
1329:
1330: -- get the category name
1331: get_gl_je_categories(l_user_je_category_name,
1329:
1330: -- get the category name
1331: get_gl_je_categories(l_user_je_category_name,
1332: l_return_status);
1333: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1335: END IF;
1336:
1337: -- get the currency_code
1330: -- get the category name
1331: get_gl_je_categories(l_user_je_category_name,
1332: l_return_status);
1333: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1335: END IF;
1336:
1337: -- get the currency_code
1338: -- Replaced the following and included new set of code for bug fix 1765678
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;
1462: END IF;
1463:
1464: END LOOP; -- Interface table loop.
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;
1462: END IF;
1463:
1464: END LOOP; -- Interface table loop.
1465:
1521:
1522: IF req_id = 0 THEN
1523: fnd_message.set_name('PSP', 'PSP_TR_GL_IMP_FAILED');
1524: fnd_msg_pub.add;
1525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1526: ELSE
1527: update psp_payroll_controls
1528: set gl_phase = 'Submitted_Import_Request'
1529: --where payroll_control_id = gl_batch_rec.payroll_control_id; Replaced this line for Bug 2133056
1538: dphase, dstatus, message);
1539: if call_status = FALSE then
1540: fnd_message.set_name('PSP', 'PSP_TR_GL_IMP_FAILED');
1541: fnd_msg_pub.add;
1542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1543: end if;
1544: END IF;
1545: END IF;
1546: END LOOP; -- Small batch loop
1544: END IF;
1545: END IF;
1546: END LOOP; -- Small batch loop
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');
1546: END LOOP; -- Small batch loop
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:
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;
1557:
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;
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');
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 --------------------------------------------------
1565: PROCEDURE get_gl_je_sources(P_USER_JE_SOURCE_NAME OUT NOCOPY VARCHAR2,
1583: fnd_message.set_name('PSP','PSP_TR_NOT_SET_UP');
1584: fnd_message.set_token('ERROR',l_error);
1585: fnd_message.set_token('PRODUCT',l_product);
1586: fnd_msg_pub.add;
1587: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1588: END IF;
1589: CLOSE user_je_source_name;
1590:
1591: EXCEPTION
1598: -- fnd_message.set_token('PRODUCT',l_product);
1599: -- fnd_msg_pub.add;
1600: g_error_api_path := 'GL_JE_SOURCES:'||g_error_api_path;
1601: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GL_JE_SOURCES');
1602: p_return_status := fnd_api.g_ret_sts_unexp_error;
1603: WHEN OTHERS THEN
1604: g_error_api_path := 'GL_JE_SOURCES:'||g_error_api_path;
1605: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GL_JE_SOURCES');
1606: p_return_status := fnd_api.g_ret_sts_unexp_error;
1602: p_return_status := fnd_api.g_ret_sts_unexp_error;
1603: WHEN OTHERS THEN
1604: g_error_api_path := 'GL_JE_SOURCES:'||g_error_api_path;
1605: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GL_JE_SOURCES');
1606: p_return_status := fnd_api.g_ret_sts_unexp_error;
1607: END;
1608:
1609: ---------------------- GET_GL_CATEGORIES --------------------------------------------------
1610: PROCEDURE get_gl_je_categories(P_USER_JE_CATEGORY_NAME OUT NOCOPY VARCHAR2,
1626: fnd_message.set_name('PSP','PSP_TR_NOT_SET_UP');
1627: fnd_message.set_token('ERROR',l_error);
1628: fnd_message.set_token('PRODUCT',l_product);
1629: fnd_msg_pub.add;
1630: p_return_status := fnd_api.g_ret_sts_unexp_error;
1631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1632: END IF;
1633: CLOSE gl_je_category_cur;
1634:
1627: fnd_message.set_token('ERROR',l_error);
1628: fnd_message.set_token('PRODUCT',l_product);
1629: fnd_msg_pub.add;
1630: p_return_status := fnd_api.g_ret_sts_unexp_error;
1631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1632: END IF;
1633: CLOSE gl_je_category_cur;
1634:
1635: EXCEPTION
1640: -- fnd_message.set_name('PSP','PSP_TR_NOT_SET_UP');
1641: -- fnd_message.set_token('ERROR',l_error);
1642: -- fnd_message.set_token('PRODUCT',l_product);
1643: -- fnd_msg_pub.add;
1644: p_return_status := fnd_api.g_ret_sts_unexp_error;
1645: WHEN OTHERS THEN
1646: g_error_api_path := 'GL_JE_CATEGORY_NAME:'||g_error_api_path;
1647: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GL_JE_CATEGORY_NAME');
1648: p_return_status := fnd_api.g_ret_sts_unexp_error;
1644: p_return_status := fnd_api.g_ret_sts_unexp_error;
1645: WHEN OTHERS THEN
1646: g_error_api_path := 'GL_JE_CATEGORY_NAME:'||g_error_api_path;
1647: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GL_JE_CATEGORY_NAME');
1648: p_return_status := fnd_api.g_ret_sts_unexp_error;
1649: END;
1650:
1651: -------------------- GL TIE BACK -----------------------------------------------------
1652: PROCEDURE gl_tie_back(p_adj_sum_batch_name IN VARCHAR2,
1788: IF (summary_group_cur%NOTFOUND) THEN
1789: CLOSE summary_group_cur;
1790: g_error_api_path := 'GL_TIE_BACK:'||g_error_api_path;
1791: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GL_TIE_BACK');
1792: p_return_status := fnd_api.g_ret_sts_unexp_error;
1793: EXIT;
1794: END IF;
1795: CLOSE summary_group_cur;
1796:
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:
1806: if l_status_new > 0 then
1828: commit;
1829:
1830: fnd_message.set_name('PSP', 'PSP_TR_GL_IMP_FAILED');
1831: fnd_msg_pub.add;
1832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1833:
1834: end if;
1835:
1836:
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;
1861: END IF;
1862: CLOSE gl_interface_group_cur;
1863:
1956: commit;
1957: END LOOP; -- end loop for pc_batch_cur
1958:
1959: --
1960: p_return_status := fnd_api.g_ret_sts_success;
1961: EXCEPTION
1962:
1963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1964: g_error_api_path := 'GL_TIE_BACK:'||g_error_api_path;
1959: --
1960: p_return_status := fnd_api.g_ret_sts_success;
1961: EXCEPTION
1962:
1963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1964: g_error_api_path := 'GL_TIE_BACK:'||g_error_api_path;
1965: -- Included the following for bug fix 1765678
1966: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GL_TIE_BACK');
1967: p_return_status := fnd_api.g_ret_sts_unexp_error;
1963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1964: g_error_api_path := 'GL_TIE_BACK:'||g_error_api_path;
1965: -- Included the following for bug fix 1765678
1966: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GL_TIE_BACK');
1967: p_return_status := fnd_api.g_ret_sts_unexp_error;
1968:
1969: WHEN OTHERS THEN
1970: g_error_api_path := 'GL_TIE_BACK:'||g_error_api_path;
1971: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GL_TIE_BACK');
1968:
1969: WHEN OTHERS THEN
1970: g_error_api_path := 'GL_TIE_BACK:'||g_error_api_path;
1971: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GL_TIE_BACK');
1972: p_return_status := fnd_api.g_ret_sts_unexp_error;
1973: END;
1974:
1975: ------------------ CREATE BALANCING TRANSACTIONS FOR GL ------------------------------
1976:
2073: IF (reversing_gl_ccid_cur%NOTFOUND) THEN
2074: CLOSE reversing_gl_ccid_cur;
2075: fnd_message.set_name('PSP','PSP_TR_CLRG_AC_NOT_SET_UP');
2076: fnd_msg_pub.add;
2077: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2078: END IF;
2079: CLOSE reversing_gl_ccid_cur;
2080: END;
2081:
2105: open get_element_type_id(ad_reversal_entry_rec.summary_line_id);
2106: fetch get_element_type_id into ad_reversal_entry_rec.element_type_id;
2107: if get_element_type_id%notfound then
2108: close get_element_type_id;
2109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2110: end if;
2111: close get_element_type_id;
2112:
2113: insert_into_summary_lines(
2146: NULL,
2147: NULL,
2148: l_return_status);
2149:
2150: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2151: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2152: END IF;
2153:
2154: -- insert the reversal entry record into distribution lines
2147: NULL,
2148: l_return_status);
2149:
2150: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2151: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2152: END IF;
2153:
2154: -- insert the reversal entry record into distribution lines
2155: insert into psp_adjustment_lines
2174: END LOOP;
2175: END IF;
2176: end if; -- control_rec_debit <> control_rec_credit
2177: --
2178: p_return_status := fnd_api.g_ret_sts_success;
2179: EXCEPTION
2180: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2181: g_error_api_path := 'GL_BALANCE_TRANSACTION:'||g_error_api_path;
2182: -- Included the following line for bug fix 1765678
2176: end if; -- control_rec_debit <> control_rec_credit
2177: --
2178: p_return_status := fnd_api.g_ret_sts_success;
2179: EXCEPTION
2180: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2181: g_error_api_path := 'GL_BALANCE_TRANSACTION:'||g_error_api_path;
2182: -- Included the following line for bug fix 1765678
2183: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GL_BALANCE_TRANSACTION');
2184: p_return_status := fnd_api.g_ret_sts_unexp_error;
2180: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2181: g_error_api_path := 'GL_BALANCE_TRANSACTION:'||g_error_api_path;
2182: -- Included the following line for bug fix 1765678
2183: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GL_BALANCE_TRANSACTION');
2184: p_return_status := fnd_api.g_ret_sts_unexp_error;
2185:
2186: WHEN OTHERS THEN
2187: g_error_api_path := 'GL_BALANCE_TRANSACTION:'||g_error_api_path;
2188: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GL_BALANCE_TRANSACTION');
2185:
2186: WHEN OTHERS THEN
2187: g_error_api_path := 'GL_BALANCE_TRANSACTION:'||g_error_api_path;
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:
2348: -- Introduced the following columns for bug fix 2916848
2349: P_CURRENCY_CONVERSION_TYPE,
2350: DECODE(p_currency_conversion_type, NULL, NULL, P_CURRENCY_CONVERSION_DATE));
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');
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 -----------------------------------------------
2361: PROCEDURE create_gms_sum_lines(p_adj_sum_batch_name IN VARCHAR2,
2673: l_return_status,
2674: l_org_id -- R12 MOAC Uptake
2675: );
2676:
2677: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2679: END IF;
2680: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' After insert_into_summary_lines 3 l_summary_line_id: '||l_summary_line_id);
2681:
2674: l_org_id -- R12 MOAC Uptake
2675: );
2676:
2677: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2679: END IF;
2680: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' After insert_into_summary_lines 3 l_summary_line_id: '||l_summary_line_id);
2681:
2682:
2771: l_return_status,
2772: l_org_id -- R12 MOAC Uptake
2773: );
2774:
2775: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2777: END IF;
2778: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' After insert_into_summary_lines 4 l_summary_line_id: '||l_summary_line_id);
2779:
2772: l_org_id -- R12 MOAC Uptake
2773: );
2774:
2775: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2777: END IF;
2778: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' After insert_into_summary_lines 4 l_summary_line_id: '||l_summary_line_id);
2779:
2780:
2795:
2796: END LOOP; --- End loop for payroll_control_cur
2797: END LOOP; --- End loop for pc_batch_cur
2798: --
2799: p_return_status := fnd_api.g_ret_sts_success;
2800:
2801: EXCEPTION
2802:
2803: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2799: p_return_status := fnd_api.g_ret_sts_success;
2800:
2801: EXCEPTION
2802:
2803: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2804: g_error_api_path := 'CREATE_GMS_SUM_LINES:'||g_error_api_path;
2805: -- Included the following code for bug fix 1765678
2806: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','CREATE_GMS_SUM_LINES');
2807: p_return_status := fnd_api.g_ret_sts_unexp_error;
2803: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2804: g_error_api_path := 'CREATE_GMS_SUM_LINES:'||g_error_api_path;
2805: -- Included the following code for bug fix 1765678
2806: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','CREATE_GMS_SUM_LINES');
2807: p_return_status := fnd_api.g_ret_sts_unexp_error;
2808: WHEN OTHERS THEN
2809: g_error_api_path := 'CREATE_GMS_SUM_LINES:'||g_error_api_path;
2810: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','CREATE_GMS_SUM_LINES');
2811: p_return_status := fnd_api.g_ret_sts_unexp_error;
2807: p_return_status := fnd_api.g_ret_sts_unexp_error;
2808: WHEN OTHERS THEN
2809: g_error_api_path := 'CREATE_GMS_SUM_LINES:'||g_error_api_path;
2810: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','CREATE_GMS_SUM_LINES');
2811: p_return_status := fnd_api.g_ret_sts_unexp_error;
2812:
2813: END;
2814:
2815: ----------------------------- GMS INTERFACE ---------------------------------------------
3028: fnd_message.set_name('PSP','PSP_TR_NOT_SET_UP');
3029: fnd_message.set_token('ERROR',l_error);
3030: fnd_message.set_token('PRODUCT',l_product);
3031: fnd_msg_pub.add;
3032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3033: END IF;
3034: CLOSE transaction_source_cur;
3035:
3036: -- get the gms source name
3047: fnd_message.set_name('PSP','PSP_TR_NOT_SET_UP');
3048: fnd_message.set_token('ERROR',l_error);
3049: fnd_message.set_token('PRODUCT',l_product);
3050: fnd_msg_pub.add;
3051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3052: END IF;
3053: CLOSE site_transaction_source_cur;
3054: END;
3055: end if;
3374: GMS_INTERFACE_REC.ACCOUNTING_DATE, --- 3108109
3375: p_business_group_id, -- Introduced for the Bug fix 2935850
3376: L_RETURN_STATUS);
3377:
3378: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3380: END IF;
3381: --- moved code ends
3382: ELSE
3375: p_business_group_id, -- Introduced for the Bug fix 2935850
3376: L_RETURN_STATUS);
3377:
3378: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3380: END IF;
3381: --- moved code ends
3382: ELSE
3383: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' calling insert_into_pa_interface for STAT ');
3415: GMS_INTERFACE_REC.ACCOUNTING_DATE,
3416: p_business_group_id,
3417: L_RETURN_STATUS);
3418:
3419: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3421: END IF;
3422: END IF;
3423:
3416: p_business_group_id,
3417: L_RETURN_STATUS);
3418:
3419: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3421: END IF;
3422: END IF;
3423:
3424: if gms_interface_rec.award_id is not null then
3442: GMS_REC.FUNDING_PATTERN_ID := NULL;
3443:
3444: gms_transactions_pub.LOAD_GMS_XFACE_API(gms_rec, l_return_status);
3445:
3446: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3448: END IF;
3449:
3450: end if;
3443:
3444: gms_transactions_pub.LOAD_GMS_XFACE_API(gms_rec, l_return_status);
3445:
3446: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3448: END IF;
3449:
3450: end if;
3451:
3525:
3526: IF req_id = 0 THEN
3527: fnd_message.set_name('PSP','PSP_TR_GMS_IMP_FAILED');
3528: fnd_msg_pub.add;
3529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3530:
3531: END IF;
3532: END LOOP;
3533:
3574:
3575: IF call_status = FALSE then
3576: fnd_message.set_name('PSP','PSP_TR_GMS_IMP_FAILED');
3577: fnd_msg_pub.add;
3578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3579:
3580: END IF;
3581: END LOOP;
3582:
3624:
3625: IF req_id = 0 THEN
3626: fnd_message.set_name('PSP','PSP_TR_GMS_IMP_FAILED');
3627: fnd_msg_pub.add;
3628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3629:
3630: END IF;
3631: END LOOP;
3632:
3668:
3669: IF call_status = FALSE then
3670: fnd_message.set_name('PSP','PSP_TR_GMS_IMP_FAILED');
3671: fnd_msg_pub.add;
3672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3673:
3674: END IF;
3675: END LOOP;
3676:
3685: END IF; -- l_batch_cnt -- end of changes for 6902514
3686:
3687: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' g_skip_flag_gms = '||g_skip_flag_gms);
3688:
3689: p_return_status := fnd_api.g_ret_sts_success;
3690: EXCEPTION
3691: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3692: g_error_api_path := 'TRANSFER_TO_GMS_INTERFACE:'||g_error_api_path;
3693: --Bug 1776606 : Building error Stack
3687: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) ||' g_skip_flag_gms = '||g_skip_flag_gms);
3688:
3689: p_return_status := fnd_api.g_ret_sts_success;
3690: EXCEPTION
3691: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3692: g_error_api_path := 'TRANSFER_TO_GMS_INTERFACE:'||g_error_api_path;
3693: --Bug 1776606 : Building error Stack
3694: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','TRANSFER_TO_GMS_INTERFACE');
3695: p_return_status := fnd_api.g_ret_sts_unexp_error;
3691: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3692: g_error_api_path := 'TRANSFER_TO_GMS_INTERFACE:'||g_error_api_path;
3693: --Bug 1776606 : Building error Stack
3694: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','TRANSFER_TO_GMS_INTERFACE');
3695: p_return_status := fnd_api.g_ret_sts_unexp_error;
3696:
3697: WHEN OTHERS THEN
3698: g_error_api_path := 'TRANSFER_TO_GMS_INTERFACE:'||g_error_api_path;
3699: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','TRANSFER_TO_GMS_INTERFACE');
3696:
3697: WHEN OTHERS THEN
3698: g_error_api_path := 'TRANSFER_TO_GMS_INTERFACE:'||g_error_api_path;
3699: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','TRANSFER_TO_GMS_INTERFACE');
3700: p_return_status := fnd_api.g_ret_sts_unexp_error;
3701: END;
3702:
3703: ------------------------- GMS TIE BACK ---------------------------------------------------
3704: /* We want to maintain the control at the adjustment batch level.
4280:
4281: commit;
4282: END LOOP; -- End loop for pc_batch_cur
4283: --
4284: p_return_status := fnd_api.g_ret_sts_success;
4285: EXCEPTION
4286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4287: g_error_api_path := 'GMS_TIE_BACK:'||g_error_api_path;
4288: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GMS_TIE_BACK');
4282: END LOOP; -- End loop for pc_batch_cur
4283: --
4284: p_return_status := fnd_api.g_ret_sts_success;
4285: EXCEPTION
4286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4287: g_error_api_path := 'GMS_TIE_BACK:'||g_error_api_path;
4288: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GMS_TIE_BACK');
4289: p_return_status := fnd_api.g_ret_sts_unexp_error;
4290:
4285: EXCEPTION
4286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4287: g_error_api_path := 'GMS_TIE_BACK:'||g_error_api_path;
4288: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GMS_TIE_BACK');
4289: p_return_status := fnd_api.g_ret_sts_unexp_error;
4290:
4291: WHEN TI_DID_NOT_COMPLETE THEN
4292: g_error_api_path := 'GMS_TIE_BACK:' || 'Transaction Import did not complete for some batches';
4293: fnd_msg_pub.add_exc_msg('PSP_ST_ADJ', 'GMS_TIE_BACK');
4290:
4291: WHEN TI_DID_NOT_COMPLETE THEN
4292: g_error_api_path := 'GMS_TIE_BACK:' || 'Transaction Import did not complete for some batches';
4293: fnd_msg_pub.add_exc_msg('PSP_ST_ADJ', 'GMS_TIE_BACK');
4294: p_return_status := fnd_api.g_ret_sts_unexp_error;
4295:
4296: WHEN OTHERS THEN
4297: g_error_api_path := 'GMS_TIE_BACK:'||g_error_api_path;
4298: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GMS_TIE_BACK');
4295:
4296: WHEN OTHERS THEN
4297: g_error_api_path := 'GMS_TIE_BACK:'||g_error_api_path;
4298: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GMS_TIE_BACK');
4299: p_return_status := fnd_api.g_ret_sts_unexp_error;
4300: END;
4301:
4302: ------------------ INSERT INTO GMS INTERFACE -----------------------------------------------
4303:
4416: P_ACCT_RATE_TYPE,
4417: DECODE(p_acct_rate_type, NULL, NULL, P_ACCT_RATE_DATE),
4418: l_unmatched_nve_txn_flag);
4419:
4420: p_return_status := fnd_api.g_ret_sts_success;
4421:
4422:
4423: EXCEPTION
4424: WHEN OTHERS THEN
4423: EXCEPTION
4424: WHEN OTHERS THEN
4425: g_error_api_path := 'INSERT_INTO_PA_INTERFACE:'||g_error_api_path;
4426: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','INSERT_INTO_PA_INTERFACE');
4427: p_return_status := fnd_api.g_ret_sts_unexp_error;
4428: END;
4429:
4430: --------------------------------------- CLEANUP BATCH DETAILS --------------------------
4431: PROCEDURE cleanup_batch_details (p_payroll_control_id IN NUMBER,
4485: OPEN gl_gms_phase_batch_name_cur;
4486: FETCH gl_gms_phase_batch_name_cur INTO l_gl_phase, l_gms_phase, l_batch_name;
4487: IF (gl_gms_phase_batch_name_cur%NOTFOUND) THEN
4488: CLOSE gl_gms_phase_batch_name_cur;
4489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4490: END IF;
4491: CLOSE gl_gms_phase_batch_name_cur;
4492:
4493: --Added the following group_name_cur for bug 1685685.
4584: if (l_gl_phase = 'GL_Tie_Back') then
4585: -- get the source name -- Added for 2133056
4586: get_gl_je_sources(l_user_je_source_name,
4587: l_return_status);
4588: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4590: END IF;
4591:
4592: -- Used the group_id parameter, instead of deriving it from summary lines table: Bug 2133056
4585: -- get the source name -- Added for 2133056
4586: get_gl_je_sources(l_user_je_source_name,
4587: l_return_status);
4588: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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.
4739: OPEN summary_group_cur;
4740: FETCH summary_group_cur INTO l_group_id;
4741: IF (summary_group_cur%NOTFOUND) THEN
4742: CLOSE summary_group_cur;
4743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4744: END IF;
4745: CLOSE summary_group_cur;
4746:
4747: OPEN gl_interface_status_cur;
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:
4755: if l_status_new > 0 then
4778: OPEN gms_batch_name_cur;
4779: FETCH gms_batch_name_cur INTO l_gms_batch_name;
4780: IF (gms_batch_name_cur%NOTFOUND) THEN
4781: CLOSE gms_batch_name_cur;
4782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4783: END IF;
4784: CLOSE gms_batch_name_cur;
4785:
4786: OPEN pa_txn_int_status_p_cur;
4786: OPEN pa_txn_int_status_p_cur;
4787: FETCH pa_txn_int_status_p_cur INTO l_status_p;
4788: IF (pa_txn_int_status_p_cur%NOTFOUND) THEN
4789: CLOSE pa_txn_int_status_p_cur;
4790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4791: END IF;
4792: CLOSE pa_txn_int_status_p_cur;
4793:
4794: if (l_status_p > 0) then
4820: OPEN pa_txn_int_status_i_cur;
4821: FETCH pa_txn_int_status_i_cur INTO l_status_i;
4822: IF (pa_txn_int_status_i_cur%NOTFOUND) THEN
4823: CLOSE pa_txn_int_status_i_cur;
4824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4825: END IF;
4826: CLOSE pa_txn_int_status_i_cur;
4827:
4828: if l_status_i > 0 then
4837: end loop;
4838: end loop;
4839:
4840: if (l_no_complete > 0) then
4841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4842: end if;
4843: exception
4844: when others then
4845: fnd_msg_pub.add_exc_msg('PSP_ST_ADJ', 'CHECK_INTERFACE_STATUS');
4902: l_distribution_start_date, l_distribution_end_date,
4903: l_currency_code; -- Introduced currency for bug 2916848
4904: IF (adjustment_control_cur%NOTFOUND) THEN
4905: CLOSE adjustment_control_cur;
4906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4907: END IF;
4908: CLOSE adjustment_control_cur;
4909:
4910: l_error := 'Batch : ' || p_batch_name || ' Person Id ' || l_person_id;
4915: OPEN person_name_cur;
4916: FETCH person_name_cur INTO l_person_name;
4917: IF (person_name_cur%NOTFOUND) THEN
4918: CLOSE person_name_cur;
4919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4920: END IF;
4921: CLOSE person_name_cur;
4922:
4923: l_error := 'Batch : ' || p_batch_name || ' Assign ID ' || l_assignment_id;
4927: OPEN assignment_number_cur;
4928: FETCH assignment_number_cur INTO l_assignment_number;
4929: IF (assignment_number_cur%NOTFOUND) THEN
4930: CLOSE assignment_number_cur;
4931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4932: END IF;
4933: CLOSE assignment_number_cur;
4934:
4935: l_error := 'Batch : ' || p_batch_name || ' Elem Type ' || l_element_type_id;
4939: OPEN element_name_cur;
4940: FETCH element_name_cur INTO l_element_name;
4941: IF (element_name_cur%NOTFOUND) THEN
4942: CLOSE element_name_cur;
4943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4944: END IF;
4945: CLOSE element_name_cur;
4946: */
4947:
4955: fnd_message.set_token('DISTRIBUTION_END_DATE', to_char(l_distribution_end_date));
4956: fnd_message.set_token('CURRENCY_CODE', l_currency_code); -- Introduced for bug fix 2916848
4957: fnd_msg_pub.add;
4958:
4959: p_return_status := fnd_api.g_ret_sts_success;
4960:
4961: exception
4962: when no_data_found then
4963: -- raise_application_error(-20001, l_error || ' No Data Found');
4963: -- raise_application_error(-20001, l_error || ' No Data Found');
4964: fnd_message.set_token('BATCH_NAME', l_error || ' No data found');
4965: -- Included the following line for bug fix 1765678
4966: fnd_msg_pub.add;
4967: p_return_status := fnd_api.g_ret_sts_unexp_error;
4968: when too_many_rows then
4969: -- raise_application_error(-20001, l_error || ' ' || sqlerrm);
4970: fnd_message.set_token('BATCH_NAME', l_error || ' Too many rows');
4971: -- Included the following line for bug fix 1765678
4969: -- raise_application_error(-20001, l_error || ' ' || sqlerrm);
4970: fnd_message.set_token('BATCH_NAME', l_error || ' Too many rows');
4971: -- Included the following line for bug fix 1765678
4972: fnd_msg_pub.add;
4973: p_return_status := fnd_api.g_ret_sts_unexp_error;
4974: when others then
4975: --Bug :1776606 : Building error stack
4976: fnd_message.set_token('BATCH_NAME',l_error||'Unexpected Oracle error occured ORA -'||sqlcode);
4977: fnd_msg_pub.add;
4976: fnd_message.set_token('BATCH_NAME',l_error||'Unexpected Oracle error occured ORA -'||sqlcode);
4977: fnd_msg_pub.add;
4978: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','GET_THE_BATCH_DETAILS');
4979: -- Included the following line for bug fix 1765678
4980: p_return_status := fnd_api.g_ret_sts_unexp_error;
4981: raise;
4982: -- Bug 1776606 : Commented the following line
4983: -- raise_application_error(sqlcode, l_error || ' ' || sqlerrm);
4984: end get_the_batch_details;