[Home] [Help]
39: p_business_group_id,
40: p_set_of_books_id,
41: l_return_status);
42:
43: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
44: -- Bug: 1994421.Commented the retcode and return statement as part of Zero work days enhancement.
45: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
46: --retcode := 2;
47: --return;
41: l_return_status);
42:
43: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
44: -- Bug: 1994421.Commented the retcode and return statement as part of Zero work days enhancement.
45: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
46: --retcode := 2;
47: --return;
48: END IF;
49:
47: --return;
48: END IF;
49:
50: psp_message_s.print_error(p_mode => FND_FILE.LOG,
51: p_print_header => FND_API.G_FALSE);
52:
53: fnd_msg_pub.initialize;
54:
55: create_gms_sum_lines(p_adj_sum_batch_name,
56: p_business_group_id,
57: p_set_of_books_id,
58: l_return_status);
59:
60: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
61: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
62: END IF;
63:
64: -- call the user extension to populate attribute1 through attribute30
57: p_set_of_books_id,
58: l_return_status);
59:
60: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
61: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
62: END IF;
63:
64: -- call the user extension to populate attribute1 through attribute30
65: IF FND_PROFILE.VALUE('PSP_ST_EXTENSION_ENABLE') = 'Y' THEN
79: p_business_group_id,
80: p_set_of_books_id,
81: l_return_status);
82:
83: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
84: check_interface_status('GMS', p_adj_sum_batch_name);
85: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
86: END IF;
87:
81: l_return_status);
82:
83: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
84: check_interface_status('GMS', p_adj_sum_batch_name);
85: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
86: END IF;
87:
88: -- Bug 6118274
89: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Calling gather_table_stats for psp_enc_summary_lines');
96: p_business_group_id,
97: p_set_of_books_id,
98: l_return_status);
99:
100: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
102: END IF;
103:
104: end if; ---- end if for g_gms_avail = 'Y'
97: p_set_of_books_id,
98: l_return_status);
99:
100: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
102: END IF;
103:
104: end if; ---- end if for g_gms_avail = 'Y'
105: -- initiate the gl summarization and transfer
106: create_gl_sum_lines(p_adj_sum_batch_name,
107: p_business_group_id,
108: p_set_of_books_id,
109: l_return_status);
110: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
112: END IF;
113:
114: -- call the user extension to populate attribute1 through attribute30
107: p_business_group_id,
108: p_set_of_books_id,
109: l_return_status);
110: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
112: END IF;
113:
114: -- call the user extension to populate attribute1 through attribute30
115: IF FND_PROFILE.VALUE('PSP_ST_EXTENSION_ENABLE') = 'Y' THEN
127: p_business_group_id,
128: p_set_of_books_id,
129: l_return_status);
130:
131: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
132: THEN
133: check_interface_status('GL', p_adj_sum_batch_name);
134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
135: END IF;
130:
131: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
132: THEN
133: check_interface_status('GL', p_adj_sum_batch_name);
134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
135: END IF;
136:
137: -- dbms_output.put_line('Going to gl_tie_back');
138:
140: p_business_group_id,
141: p_set_of_books_id,
142: l_return_status);
143:
144: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
146: end if;
147:
148: mark_batch_end(p_adj_sum_batch_name,
141: p_set_of_books_id,
142: l_return_status);
143:
144: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
146: end if;
147:
148: mark_batch_end(p_adj_sum_batch_name,
149: p_business_group_id,
149: p_business_group_id,
150: p_set_of_books_id,
151: l_return_status);
152:
153: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
155: END IF;
156:
157: if fnd_msg_pub.Count_Msg > 0 then
150: p_set_of_books_id,
151: l_return_status);
152:
153: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
155: END IF;
156:
157: if fnd_msg_pub.Count_Msg > 0 then
158: psp_message_s.print_error(p_mode => FND_FILE.LOG,
155: END IF;
156:
157: if fnd_msg_pub.Count_Msg > 0 then
158: psp_message_s.print_error(p_mode => FND_FILE.LOG,
159: p_print_header => FND_API.G_FALSE);
160: else
161: PSP_MESSAGE_S.Print_success;
162: end if;
163:
160: else
161: PSP_MESSAGE_S.Print_success;
162: end if;
163:
164: retcode := FND_API.G_RET_STS_SUCCESS;
165: EXCEPTION
166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
167: -- Bug 1776606 : Introduced Rollback ,
168: rollback;
162: end if;
163:
164: retcode := FND_API.G_RET_STS_SUCCESS;
165: EXCEPTION
166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
167: -- Bug 1776606 : Introduced Rollback ,
168: rollback;
169:
170: psp_message_s.print_error(p_mode => FND_FILE.LOG,
167: -- Bug 1776606 : Introduced Rollback ,
168: rollback;
169:
170: psp_message_s.print_error(p_mode => FND_FILE.LOG,
171: p_print_header => FND_API.G_TRUE);
172: retcode := 2;
173: WHEN OTHERS THEN
174: --Bug 1776606 : Introduced Rollback
175: rollback;
173: WHEN OTHERS THEN
174: --Bug 1776606 : Introduced Rollback
175: rollback;
176: psp_message_s.print_error(p_mode => FND_FILE.LOG,
177: p_print_header => FND_API.G_TRUE);
178: retcode := 2;
179: END;
180:
181: -------------------- MARK BATCH BEGIN --------------------------------------------
261: OPEN batch_name_exist_cur;
262: FETCH batch_name_exist_cur INTO l_batch_name_exists;
263: IF (batch_name_exist_cur%NOTFOUND) THEN
264: CLOSE batch_name_exist_cur;
265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
266: END IF;
267: CLOSE batch_name_exist_cur;
268:
269: if l_batch_name_exists > 0 then
269: if l_batch_name_exists > 0 then
270: fnd_message.set_name('PSP','PSP_GB_NAME_EXISTS');
271: fnd_message.set_token('GB_NAME', p_adj_sum_batch_name);
272: fnd_msg_pub.add;
273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
274: end if;
275:
276: open pc_batch_cur;
277: loop
292: fnd_message.set_token('GB_NAME',p_adj_sum_batch_name);
293: get_the_batch_details(pc_batch_rec.batch_name, l_return_status);
294: fnd_msg_pub.add;
295:
296: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
297: l_batch_details_failed := TRUE;
298: ELSE
299: l_batch_details_failed := FALSE;
300: END IF; -- If Successful
330:
331: END LOOP;
332: end loop;
333: --commit;
334: p_return_status := fnd_api.g_ret_sts_success;
335: --Included as part of Bug fix #1776606
336: EXCEPTION
337: WHEN OTHERS THEN
338: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','MARK_BATCH_BEGIN');
427: 'Adjustments',
428: null,
429: p_adj_sum_batch_name,
430: l_return_status);
431: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
433: END IF;
434:
435:
428: null,
429: p_adj_sum_batch_name,
430: l_return_status);
431: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
433: END IF;
434:
435:
436: END IF;
697: p_business_group_id,
698: p_set_of_books_id,
699: l_return_status);
700:
701: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
703: END IF;
704: */
705:
698: p_set_of_books_id,
699: l_return_status);
700:
701: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
703: END IF;
704: */
705:
706: OPEN gl_sum_lines_cursor(payroll_control_rec.payroll_control_id);
798: l_attribute9,
799: l_attribute10,
800: l_return_status);
801:
802: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804: END IF;
805:
806: FOR j IN 1 .. dist_line_id.COUNT LOOP
799: l_attribute10,
800: l_return_status);
801:
802: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804: END IF;
805:
806: FOR j IN 1 .. dist_line_id.COUNT LOOP
807:
885: l_attribute10,
886: l_return_status);
887:
888:
889: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
891: END IF;
892:
893: FOR j IN 1 .. dist_line_id.COUNT LOOP
886: l_return_status);
887:
888:
889: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
891: END IF;
892:
893: FOR j IN 1 .. dist_line_id.COUNT LOOP
894: l_dist_line_id := dist_line_id(j);
907: p_business_group_id,
908: p_set_of_books_id,
909: l_return_status);
910:
911: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
913: END IF;
914: end if;
915: dist_line_id.delete;
908: p_set_of_books_id,
909: l_return_status);
910:
911: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
913: END IF;
914: end if;
915: dist_line_id.delete;
916: END IF;
917: END LOOP; -- end loop for payroll_control_cur
918: END LOOP; -- end loop for pc_batch_cur
919:
920: --
921: p_return_status := fnd_api.g_ret_sts_success;
922:
923: EXCEPTION
924:
925: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
921: p_return_status := fnd_api.g_ret_sts_success;
922:
923: EXCEPTION
924:
925: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
926: g_error_api_path := 'CREATE_GL_SUM_LINES:'||g_error_api_path;
927: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','CREATE_GL_SUM_LINES');
928: p_return_status := fnd_api.g_ret_sts_unexp_error;
929: WHEN OTHERS THEN
924:
925: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
926: g_error_api_path := 'CREATE_GL_SUM_LINES:'||g_error_api_path;
927: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','CREATE_GL_SUM_LINES');
928: p_return_status := fnd_api.g_ret_sts_unexp_error;
929: WHEN OTHERS THEN
930: g_error_api_path := 'CREATE_GL_SUM_LINES:'||g_error_api_path;
931: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','CREATE_GL_SUM_LINES');
932: p_return_status := fnd_api.g_ret_sts_unexp_error;
928: p_return_status := fnd_api.g_ret_sts_unexp_error;
929: WHEN OTHERS THEN
930: g_error_api_path := 'CREATE_GL_SUM_LINES:'||g_error_api_path;
931: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','CREATE_GL_SUM_LINES');
932: p_return_status := fnd_api.g_ret_sts_unexp_error;
933:
934: END;
935:
936:
1075: p_attribute10,
1076: P_ORG_ID -- R12 MOAc uptake
1077: );
1078: --
1079: p_return_status := fnd_api.g_ret_sts_success;
1080: EXCEPTION
1081: WHEN OTHERS THEN
1082: g_error_api_path := 'INSERT_INTO_SUMMARY_LINES:'||g_error_api_path;
1083: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','INSERT_INTO_SUMMARY_LINES');
1080: EXCEPTION
1081: WHEN OTHERS THEN
1082: g_error_api_path := 'INSERT_INTO_SUMMARY_LINES:'||g_error_api_path;
1083: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','INSERT_INTO_SUMMARY_LINES');
1084: p_return_status := fnd_api.g_ret_sts_unexp_error;
1085: END;
1086:
1087: ------------------------ GL INTERFACE --------------------------------------------------
1088:
1228:
1229: -- get the source name
1230: get_gl_je_sources(l_user_je_source_name,
1231: l_return_status);
1232: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1234: END IF;
1235:
1236: -- get the category name
1229: -- get the source name
1230: get_gl_je_sources(l_user_je_source_name,
1231: l_return_status);
1232: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1234: END IF;
1235:
1236: -- get the category name
1237: get_gl_je_categories(l_user_je_category_name,
1235:
1236: -- get the category name
1237: get_gl_je_categories(l_user_je_category_name,
1238: l_return_status);
1239: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1241: END IF;
1242:
1243: -- get the currency_code
1236: -- get the category name
1237: get_gl_je_categories(l_user_je_category_name,
1238: l_return_status);
1239: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1241: END IF;
1242:
1243: -- get the currency_code
1244: -- Replaced the following and included new set of code for bug fix 1765678
1356: gl_interface_rec.exchange_rate_type,
1357: GL_INTERFACE_REC.accounting_date, --- added for 3108109
1358: L_RETURN_STATUS);
1359:
1360: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1362: END IF;
1363:
1364: END LOOP; -- Interface table loop.
1357: GL_INTERFACE_REC.accounting_date, --- added for 3108109
1358: L_RETURN_STATUS);
1359:
1360: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1362: END IF;
1363:
1364: END LOOP; -- Interface table loop.
1365:
1416:
1417: IF req_id = 0 THEN
1418: fnd_message.set_name('PSP', 'PSP_TR_GL_IMP_FAILED');
1419: fnd_msg_pub.add;
1420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1421: ELSE
1422: update psp_payroll_controls
1423: set gl_phase = 'Submitted_Import_Request'
1424: --where payroll_control_id = gl_batch_rec.payroll_control_id; Replaced this line for Bug 2133056
1431: dphase, dstatus, message);
1432: if call_status = FALSE then
1433: fnd_message.set_name('PSP', 'PSP_TR_GL_IMP_FAILED');
1434: fnd_msg_pub.add;
1435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1436: end if;
1437: END IF;
1438: END IF;
1439: END LOOP; -- Small batch loop
1437: END IF;
1438: END IF;
1439: END LOOP; -- Small batch loop
1440: --
1441: p_return_status := fnd_api.g_ret_sts_success;
1442: EXCEPTION
1443: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1444: g_error_api_path := 'TRANSFER_TO_GL_INTERFACE:'||g_error_api_path;
1445: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','TRANSFER_TO_GL_INTERFACE');
1439: END LOOP; -- Small batch loop
1440: --
1441: p_return_status := fnd_api.g_ret_sts_success;
1442: EXCEPTION
1443: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1444: g_error_api_path := 'TRANSFER_TO_GL_INTERFACE:'||g_error_api_path;
1445: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','TRANSFER_TO_GL_INTERFACE');
1446: p_return_status := fnd_api.g_ret_sts_unexp_error;
1447:
1442: EXCEPTION
1443: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1444: g_error_api_path := 'TRANSFER_TO_GL_INTERFACE:'||g_error_api_path;
1445: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','TRANSFER_TO_GL_INTERFACE');
1446: p_return_status := fnd_api.g_ret_sts_unexp_error;
1447:
1448: WHEN RETURN_BACK THEN
1449: p_return_status := fnd_api.g_ret_sts_success;
1450:
1445: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','TRANSFER_TO_GL_INTERFACE');
1446: p_return_status := fnd_api.g_ret_sts_unexp_error;
1447:
1448: WHEN RETURN_BACK THEN
1449: p_return_status := fnd_api.g_ret_sts_success;
1450:
1451: WHEN OTHERS THEN
1452: g_error_api_path := 'TRANSFER_TO_GL_INTERFACE:'||g_error_api_path;
1453: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','TRANSFER_TO_GL_INTERFACE');
1450:
1451: WHEN OTHERS THEN
1452: g_error_api_path := 'TRANSFER_TO_GL_INTERFACE:'||g_error_api_path;
1453: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','TRANSFER_TO_GL_INTERFACE');
1454: p_return_status := fnd_api.g_ret_sts_unexp_error;
1455: END;
1456:
1457: ---------------------- GET_GL_JE_SOURCES --------------------------------------------------
1458: PROCEDURE get_gl_je_sources(P_USER_JE_SOURCE_NAME OUT NOCOPY VARCHAR2,
1476: fnd_message.set_name('PSP','PSP_TR_NOT_SET_UP');
1477: fnd_message.set_token('ERROR',l_error);
1478: fnd_message.set_token('PRODUCT',l_product);
1479: fnd_msg_pub.add;
1480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1481: END IF;
1482: CLOSE user_je_source_name;
1483:
1484: EXCEPTION
1491: -- fnd_message.set_token('PRODUCT',l_product);
1492: -- fnd_msg_pub.add;
1493: g_error_api_path := 'GL_JE_SOURCES:'||g_error_api_path;
1494: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GL_JE_SOURCES');
1495: p_return_status := fnd_api.g_ret_sts_unexp_error;
1496: WHEN OTHERS THEN
1497: g_error_api_path := 'GL_JE_SOURCES:'||g_error_api_path;
1498: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GL_JE_SOURCES');
1499: p_return_status := fnd_api.g_ret_sts_unexp_error;
1495: p_return_status := fnd_api.g_ret_sts_unexp_error;
1496: WHEN OTHERS THEN
1497: g_error_api_path := 'GL_JE_SOURCES:'||g_error_api_path;
1498: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GL_JE_SOURCES');
1499: p_return_status := fnd_api.g_ret_sts_unexp_error;
1500: END;
1501:
1502: ---------------------- GET_GL_CATEGORIES --------------------------------------------------
1503: PROCEDURE get_gl_je_categories(P_USER_JE_CATEGORY_NAME OUT NOCOPY VARCHAR2,
1519: fnd_message.set_name('PSP','PSP_TR_NOT_SET_UP');
1520: fnd_message.set_token('ERROR',l_error);
1521: fnd_message.set_token('PRODUCT',l_product);
1522: fnd_msg_pub.add;
1523: p_return_status := fnd_api.g_ret_sts_unexp_error;
1524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1525: END IF;
1526: CLOSE gl_je_category_cur;
1527:
1520: fnd_message.set_token('ERROR',l_error);
1521: fnd_message.set_token('PRODUCT',l_product);
1522: fnd_msg_pub.add;
1523: p_return_status := fnd_api.g_ret_sts_unexp_error;
1524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1525: END IF;
1526: CLOSE gl_je_category_cur;
1527:
1528: EXCEPTION
1533: -- fnd_message.set_name('PSP','PSP_TR_NOT_SET_UP');
1534: -- fnd_message.set_token('ERROR',l_error);
1535: -- fnd_message.set_token('PRODUCT',l_product);
1536: -- fnd_msg_pub.add;
1537: p_return_status := fnd_api.g_ret_sts_unexp_error;
1538: WHEN OTHERS THEN
1539: g_error_api_path := 'GL_JE_CATEGORY_NAME:'||g_error_api_path;
1540: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GL_JE_CATEGORY_NAME');
1541: p_return_status := fnd_api.g_ret_sts_unexp_error;
1537: p_return_status := fnd_api.g_ret_sts_unexp_error;
1538: WHEN OTHERS THEN
1539: g_error_api_path := 'GL_JE_CATEGORY_NAME:'||g_error_api_path;
1540: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GL_JE_CATEGORY_NAME');
1541: p_return_status := fnd_api.g_ret_sts_unexp_error;
1542: END;
1543:
1544: -------------------- GL TIE BACK -----------------------------------------------------
1545: PROCEDURE gl_tie_back(p_adj_sum_batch_name IN VARCHAR2,
1679: IF (summary_group_cur%NOTFOUND) THEN
1680: CLOSE summary_group_cur;
1681: g_error_api_path := 'GL_TIE_BACK:'||g_error_api_path;
1682: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GL_TIE_BACK');
1683: p_return_status := fnd_api.g_ret_sts_unexp_error;
1684: EXIT;
1685: END IF;
1686: CLOSE summary_group_cur;
1687:
1689: OPEN gl_interface_status_cur;
1690: FETCH gl_interface_status_cur INTO l_status_new;
1691: IF (gl_interface_status_cur%NOTFOUND) THEN
1692: CLOSE gl_interface_status_cur;
1693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1694: END IF;
1695: CLOSE gl_interface_status_cur;
1696:
1697: if l_status_new > 0 then
1712: commit;
1713:
1714: fnd_message.set_name('PSP', 'PSP_TR_GL_IMP_FAILED');
1715: fnd_msg_pub.add;
1716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1717:
1718: end if;
1719:
1720:
1737: IF (gl_interface_group_cur%NOTFOUND) THEN
1738: CLOSE gl_interface_group_cur;
1739: g_error_api_path := 'GL_TIE_BACK:'||g_error_api_path;
1740: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GL_TIE_BACK');
1741: p_return_status := fnd_api.g_ret_sts_unexp_error;
1742: EXIT;
1743: END IF;
1744: CLOSE gl_interface_group_cur;
1745:
1832: commit;
1833: END LOOP; -- end loop for pc_batch_cur
1834:
1835: --
1836: p_return_status := fnd_api.g_ret_sts_success;
1837: EXCEPTION
1838:
1839: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1840: g_error_api_path := 'GL_TIE_BACK:'||g_error_api_path;
1835: --
1836: p_return_status := fnd_api.g_ret_sts_success;
1837: EXCEPTION
1838:
1839: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1840: g_error_api_path := 'GL_TIE_BACK:'||g_error_api_path;
1841: -- Included the following for bug fix 1765678
1842: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GL_TIE_BACK');
1843: p_return_status := fnd_api.g_ret_sts_unexp_error;
1839: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1840: g_error_api_path := 'GL_TIE_BACK:'||g_error_api_path;
1841: -- Included the following for bug fix 1765678
1842: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GL_TIE_BACK');
1843: p_return_status := fnd_api.g_ret_sts_unexp_error;
1844:
1845: WHEN OTHERS THEN
1846: g_error_api_path := 'GL_TIE_BACK:'||g_error_api_path;
1847: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GL_TIE_BACK');
1844:
1845: WHEN OTHERS THEN
1846: g_error_api_path := 'GL_TIE_BACK:'||g_error_api_path;
1847: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GL_TIE_BACK');
1848: p_return_status := fnd_api.g_ret_sts_unexp_error;
1849: END;
1850:
1851: ------------------ CREATE BALANCING TRANSACTIONS FOR GL ------------------------------
1852:
1949: IF (reversing_gl_ccid_cur%NOTFOUND) THEN
1950: CLOSE reversing_gl_ccid_cur;
1951: fnd_message.set_name('PSP','PSP_TR_CLRG_AC_NOT_SET_UP');
1952: fnd_msg_pub.add;
1953: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1954: END IF;
1955: CLOSE reversing_gl_ccid_cur;
1956: END;
1957:
1981: open get_element_type_id(ad_reversal_entry_rec.summary_line_id);
1982: fetch get_element_type_id into ad_reversal_entry_rec.element_type_id;
1983: if get_element_type_id%notfound then
1984: close get_element_type_id;
1985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1986: end if;
1987: close get_element_type_id;
1988:
1989: insert_into_summary_lines(
2022: NULL,
2023: NULL,
2024: l_return_status);
2025:
2026: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2028: END IF;
2029:
2030: -- insert the reversal entry record into distribution lines
2023: NULL,
2024: l_return_status);
2025:
2026: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2028: END IF;
2029:
2030: -- insert the reversal entry record into distribution lines
2031: insert into psp_adjustment_lines
2050: END LOOP;
2051: END IF;
2052: end if; -- control_rec_debit <> control_rec_credit
2053: --
2054: p_return_status := fnd_api.g_ret_sts_success;
2055: EXCEPTION
2056: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2057: g_error_api_path := 'GL_BALANCE_TRANSACTION:'||g_error_api_path;
2058: -- Included the following line for bug fix 1765678
2052: end if; -- control_rec_debit <> control_rec_credit
2053: --
2054: p_return_status := fnd_api.g_ret_sts_success;
2055: EXCEPTION
2056: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2057: g_error_api_path := 'GL_BALANCE_TRANSACTION:'||g_error_api_path;
2058: -- Included the following line for bug fix 1765678
2059: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GL_BALANCE_TRANSACTION');
2060: p_return_status := fnd_api.g_ret_sts_unexp_error;
2056: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2057: g_error_api_path := 'GL_BALANCE_TRANSACTION:'||g_error_api_path;
2058: -- Included the following line for bug fix 1765678
2059: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GL_BALANCE_TRANSACTION');
2060: p_return_status := fnd_api.g_ret_sts_unexp_error;
2061:
2062: WHEN OTHERS THEN
2063: g_error_api_path := 'GL_BALANCE_TRANSACTION:'||g_error_api_path;
2064: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GL_BALANCE_TRANSACTION');
2061:
2062: WHEN OTHERS THEN
2063: g_error_api_path := 'GL_BALANCE_TRANSACTION:'||g_error_api_path;
2064: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GL_BALANCE_TRANSACTION');
2065: p_return_status := fnd_api.g_ret_sts_unexp_error;
2066: END;
2067:
2068: ------------------ INSERT INTO GL INTERFACE -----------------------------------------------
2069:
2224: -- Introduced the following columns for bug fix 2916848
2225: P_CURRENCY_CONVERSION_TYPE,
2226: DECODE(p_currency_conversion_type, NULL, NULL, P_CURRENCY_CONVERSION_DATE));
2227: --
2228: p_return_status := fnd_api.g_ret_sts_success;
2229: EXCEPTION
2230: WHEN OTHERS THEN
2231: g_error_api_path := 'INSERT_INTO_GL_INTERFACE:'||g_error_api_path;
2232: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','INSERT_INTO_GL_INTERFACE');
2229: EXCEPTION
2230: WHEN OTHERS THEN
2231: g_error_api_path := 'INSERT_INTO_GL_INTERFACE:'||g_error_api_path;
2232: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','INSERT_INTO_GL_INTERFACE');
2233: p_return_status := fnd_api.g_ret_sts_unexp_error;
2234: END;
2235:
2236: -------------------- CREATE GMS SUM LINES -----------------------------------------------
2237: PROCEDURE create_gms_sum_lines(p_adj_sum_batch_name IN VARCHAR2,
2544: l_return_status,
2545: l_org_id -- R12 MOAC Uptake
2546: );
2547:
2548: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2550: END IF;
2551:
2552: FOR j IN 1 .. dist_line_id.COUNT LOOP
2545: l_org_id -- R12 MOAC Uptake
2546: );
2547:
2548: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2550: END IF;
2551:
2552: FOR j IN 1 .. dist_line_id.COUNT LOOP
2553: l_dist_line_id := dist_line_id(j);
2638: l_return_status,
2639: l_org_id -- R12 MOAC Uptake
2640: );
2641:
2642: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2644: END IF;
2645:
2646: FOR j IN 1 .. dist_line_id.COUNT LOOP
2639: l_org_id -- R12 MOAC Uptake
2640: );
2641:
2642: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2644: END IF;
2645:
2646: FOR j IN 1 .. dist_line_id.COUNT LOOP
2647: l_dist_line_id := dist_line_id(j);
2658:
2659: END LOOP; --- End loop for payroll_control_cur
2660: END LOOP; --- End loop for pc_batch_cur
2661: --
2662: p_return_status := fnd_api.g_ret_sts_success;
2663:
2664: EXCEPTION
2665:
2666: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2662: p_return_status := fnd_api.g_ret_sts_success;
2663:
2664: EXCEPTION
2665:
2666: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2667: g_error_api_path := 'CREATE_GMS_SUM_LINES:'||g_error_api_path;
2668: -- Included the following code for bug fix 1765678
2669: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','CREATE_GMS_SUM_LINES');
2670: p_return_status := fnd_api.g_ret_sts_unexp_error;
2666: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2667: g_error_api_path := 'CREATE_GMS_SUM_LINES:'||g_error_api_path;
2668: -- Included the following code for bug fix 1765678
2669: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','CREATE_GMS_SUM_LINES');
2670: p_return_status := fnd_api.g_ret_sts_unexp_error;
2671: WHEN OTHERS THEN
2672: g_error_api_path := 'CREATE_GMS_SUM_LINES:'||g_error_api_path;
2673: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','CREATE_GMS_SUM_LINES');
2674: p_return_status := fnd_api.g_ret_sts_unexp_error;
2670: p_return_status := fnd_api.g_ret_sts_unexp_error;
2671: WHEN OTHERS THEN
2672: g_error_api_path := 'CREATE_GMS_SUM_LINES:'||g_error_api_path;
2673: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','CREATE_GMS_SUM_LINES');
2674: p_return_status := fnd_api.g_ret_sts_unexp_error;
2675:
2676: END;
2677:
2678: ----------------------------- GMS INTERFACE ---------------------------------------------
2882: fnd_message.set_name('PSP','PSP_TR_NOT_SET_UP');
2883: fnd_message.set_token('ERROR',l_error);
2884: fnd_message.set_token('PRODUCT',l_product);
2885: fnd_msg_pub.add;
2886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2887: END IF;
2888: CLOSE transaction_source_cur;
2889:
2890: -- get the gms source name
2901: fnd_message.set_name('PSP','PSP_TR_NOT_SET_UP');
2902: fnd_message.set_token('ERROR',l_error);
2903: fnd_message.set_token('PRODUCT',l_product);
2904: fnd_msg_pub.add;
2905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2906: END IF;
2907: CLOSE site_transaction_source_cur;
2908: END;
2909: end if;
3191: GMS_INTERFACE_REC.ACCOUNTING_DATE, --- 3108109
3192: p_business_group_id, -- Introduced for the Bug fix 2935850
3193: L_RETURN_STATUS);
3194:
3195: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3196: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3197: END IF;
3198: --- moved code ends
3199: ELSE
3192: p_business_group_id, -- Introduced for the Bug fix 2935850
3193: L_RETURN_STATUS);
3194:
3195: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3196: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3197: END IF;
3198: --- moved code ends
3199: ELSE
3200: insert_into_pa_interface(l_txn_interface_id,
3213: GMS_INTERFACE_REC.ACCOUNTING_DATE,
3214: p_business_group_id,
3215: L_RETURN_STATUS);
3216:
3217: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3219: END IF;
3220: END IF;
3221:
3214: p_business_group_id,
3215: L_RETURN_STATUS);
3216:
3217: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3219: END IF;
3220: END IF;
3221:
3222: if gms_interface_rec.award_id is not null then
3240: GMS_REC.FUNDING_PATTERN_ID := NULL;
3241:
3242: gms_transactions_pub.LOAD_GMS_XFACE_API(gms_rec, l_return_status);
3243:
3244: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3246: END IF;
3247:
3248: end if;
3241:
3242: gms_transactions_pub.LOAD_GMS_XFACE_API(gms_rec, l_return_status);
3243:
3244: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3246: END IF;
3247:
3248: end if;
3249:
3278:
3279: IF req_id = 0 THEN
3280: fnd_message.set_name('PSP','PSP_TR_GMS_IMP_FAILED');
3281: fnd_msg_pub.add;
3282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3283:
3284: -- ELSE
3285: /***** Converted the following statement into BULK FETCH for R12 performance fixes (bug 4507892)
3286: update psp_payroll_controls
3321:
3322: IF call_status = FALSE then
3323: fnd_message.set_name('PSP','PSP_TR_GMS_IMP_FAILED');
3324: fnd_msg_pub.add;
3325: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3326:
3327: END IF;
3328: END LOOP;
3329: END IF;
3327: END IF;
3328: END LOOP;
3329: END IF;
3330:
3331: p_return_status := fnd_api.g_ret_sts_success;
3332: EXCEPTION
3333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3334: g_error_api_path := 'TRANSFER_TO_GMS_INTERFACE:'||g_error_api_path;
3335: --Bug 1776606 : Building error Stack
3329: END IF;
3330:
3331: p_return_status := fnd_api.g_ret_sts_success;
3332: EXCEPTION
3333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3334: g_error_api_path := 'TRANSFER_TO_GMS_INTERFACE:'||g_error_api_path;
3335: --Bug 1776606 : Building error Stack
3336: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','TRANSFER_TO_GMS_INTERFACE');
3337: p_return_status := fnd_api.g_ret_sts_unexp_error;
3333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3334: g_error_api_path := 'TRANSFER_TO_GMS_INTERFACE:'||g_error_api_path;
3335: --Bug 1776606 : Building error Stack
3336: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','TRANSFER_TO_GMS_INTERFACE');
3337: p_return_status := fnd_api.g_ret_sts_unexp_error;
3338:
3339: WHEN OTHERS THEN
3340: g_error_api_path := 'TRANSFER_TO_GMS_INTERFACE:'||g_error_api_path;
3341: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','TRANSFER_TO_GMS_INTERFACE');
3338:
3339: WHEN OTHERS THEN
3340: g_error_api_path := 'TRANSFER_TO_GMS_INTERFACE:'||g_error_api_path;
3341: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','TRANSFER_TO_GMS_INTERFACE');
3342: p_return_status := fnd_api.g_ret_sts_unexp_error;
3343: END;
3344:
3345: ------------------------- GMS TIE BACK ---------------------------------------------------
3346: /* We want to maintain the control at the adjustment batch level.
3852:
3853: commit;
3854: END LOOP; -- End loop for pc_batch_cur
3855: --
3856: p_return_status := fnd_api.g_ret_sts_success;
3857: EXCEPTION
3858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3859: g_error_api_path := 'GMS_TIE_BACK:'||g_error_api_path;
3860: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GMS_TIE_BACK');
3854: END LOOP; -- End loop for pc_batch_cur
3855: --
3856: p_return_status := fnd_api.g_ret_sts_success;
3857: EXCEPTION
3858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3859: g_error_api_path := 'GMS_TIE_BACK:'||g_error_api_path;
3860: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GMS_TIE_BACK');
3861: p_return_status := fnd_api.g_ret_sts_unexp_error;
3862:
3857: EXCEPTION
3858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3859: g_error_api_path := 'GMS_TIE_BACK:'||g_error_api_path;
3860: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GMS_TIE_BACK');
3861: p_return_status := fnd_api.g_ret_sts_unexp_error;
3862:
3863: WHEN TI_DID_NOT_COMPLETE THEN
3864: g_error_api_path := 'GMS_TIE_BACK:' || 'Transaction Import did not complete for some batches';
3865: fnd_msg_pub.add_exc_msg('PSP_ST_ADJ', 'GMS_TIE_BACK');
3862:
3863: WHEN TI_DID_NOT_COMPLETE THEN
3864: g_error_api_path := 'GMS_TIE_BACK:' || 'Transaction Import did not complete for some batches';
3865: fnd_msg_pub.add_exc_msg('PSP_ST_ADJ', 'GMS_TIE_BACK');
3866: p_return_status := fnd_api.g_ret_sts_unexp_error;
3867:
3868: WHEN OTHERS THEN
3869: g_error_api_path := 'GMS_TIE_BACK:'||g_error_api_path;
3870: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GMS_TIE_BACK');
3867:
3868: WHEN OTHERS THEN
3869: g_error_api_path := 'GMS_TIE_BACK:'||g_error_api_path;
3870: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GMS_TIE_BACK');
3871: p_return_status := fnd_api.g_ret_sts_unexp_error;
3872: END;
3873:
3874: ------------------ INSERT INTO GMS INTERFACE -----------------------------------------------
3875:
3985: P_ACCT_RATE_TYPE,
3986: DECODE(p_acct_rate_type, NULL, NULL, P_ACCT_RATE_DATE),
3987: l_unmatched_nve_txn_flag);
3988:
3989: p_return_status := fnd_api.g_ret_sts_success;
3990:
3991:
3992: EXCEPTION
3993: WHEN OTHERS THEN
3992: EXCEPTION
3993: WHEN OTHERS THEN
3994: g_error_api_path := 'INSERT_INTO_PA_INTERFACE:'||g_error_api_path;
3995: fnd_msg_pub.add_exc_msg('PSP_SUM_ADJ','INSERT_INTO_PA_INTERFACE');
3996: p_return_status := fnd_api.g_ret_sts_unexp_error;
3997: END;
3998:
3999: --------------------------------------- CLEANUP BATCH DETAILS --------------------------
4000: PROCEDURE cleanup_batch_details (p_payroll_control_id IN NUMBER,
4054: OPEN gl_gms_phase_batch_name_cur;
4055: FETCH gl_gms_phase_batch_name_cur INTO l_gl_phase, l_gms_phase, l_batch_name;
4056: IF (gl_gms_phase_batch_name_cur%NOTFOUND) THEN
4057: CLOSE gl_gms_phase_batch_name_cur;
4058: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4059: END IF;
4060: CLOSE gl_gms_phase_batch_name_cur;
4061:
4062: --Added the following group_name_cur for bug 1685685.
4153: if (l_gl_phase = 'GL_Tie_Back') then
4154: -- get the source name -- Added for 2133056
4155: get_gl_je_sources(l_user_je_source_name,
4156: l_return_status);
4157: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4159: END IF;
4160:
4161: -- Used the group_id parameter, instead of deriving it from summary lines table: Bug 2133056
4154: -- get the source name -- Added for 2133056
4155: get_gl_je_sources(l_user_je_source_name,
4156: l_return_status);
4157: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4159: END IF;
4160:
4161: -- Used the group_id parameter, instead of deriving it from summary lines table: Bug 2133056
4162: -- Removed all other deletion of gl tables, because of bug 2133056 fix.
4308: OPEN summary_group_cur;
4309: FETCH summary_group_cur INTO l_group_id;
4310: IF (summary_group_cur%NOTFOUND) THEN
4311: CLOSE summary_group_cur;
4312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4313: END IF;
4314: CLOSE summary_group_cur;
4315:
4316: OPEN gl_interface_status_cur;
4316: OPEN gl_interface_status_cur;
4317: FETCH gl_interface_status_cur INTO l_status_new;
4318: IF (gl_interface_status_cur%NOTFOUND) THEN
4319: CLOSE gl_interface_status_cur;
4320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4321: END IF;
4322: CLOSE gl_interface_status_cur;
4323:
4324: if l_status_new > 0 then
4347: OPEN gms_batch_name_cur;
4348: FETCH gms_batch_name_cur INTO l_gms_batch_name;
4349: IF (gms_batch_name_cur%NOTFOUND) THEN
4350: CLOSE gms_batch_name_cur;
4351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4352: END IF;
4353: CLOSE gms_batch_name_cur;
4354:
4355: OPEN pa_txn_int_status_p_cur;
4355: OPEN pa_txn_int_status_p_cur;
4356: FETCH pa_txn_int_status_p_cur INTO l_status_p;
4357: IF (pa_txn_int_status_p_cur%NOTFOUND) THEN
4358: CLOSE pa_txn_int_status_p_cur;
4359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4360: END IF;
4361: CLOSE pa_txn_int_status_p_cur;
4362:
4363: if (l_status_p > 0) then
4389: OPEN pa_txn_int_status_i_cur;
4390: FETCH pa_txn_int_status_i_cur INTO l_status_i;
4391: IF (pa_txn_int_status_i_cur%NOTFOUND) THEN
4392: CLOSE pa_txn_int_status_i_cur;
4393: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4394: END IF;
4395: CLOSE pa_txn_int_status_i_cur;
4396:
4397: if l_status_i > 0 then
4406: end loop;
4407: end loop;
4408:
4409: if (l_no_complete > 0) then
4410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4411: end if;
4412: exception
4413: when others then
4414: fnd_msg_pub.add_exc_msg('PSP_ST_ADJ', 'CHECK_INTERFACE_STATUS');
4471: l_distribution_start_date, l_distribution_end_date,
4472: l_currency_code; -- Introduced currency for bug 2916848
4473: IF (adjustment_control_cur%NOTFOUND) THEN
4474: CLOSE adjustment_control_cur;
4475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4476: END IF;
4477: CLOSE adjustment_control_cur;
4478:
4479: l_error := 'Batch : ' || p_batch_name || ' Person Id ' || l_person_id;
4484: OPEN person_name_cur;
4485: FETCH person_name_cur INTO l_person_name;
4486: IF (person_name_cur%NOTFOUND) THEN
4487: CLOSE person_name_cur;
4488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4489: END IF;
4490: CLOSE person_name_cur;
4491:
4492: l_error := 'Batch : ' || p_batch_name || ' Assign ID ' || l_assignment_id;
4496: OPEN assignment_number_cur;
4497: FETCH assignment_number_cur INTO l_assignment_number;
4498: IF (assignment_number_cur%NOTFOUND) THEN
4499: CLOSE assignment_number_cur;
4500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4501: END IF;
4502: CLOSE assignment_number_cur;
4503:
4504: l_error := 'Batch : ' || p_batch_name || ' Elem Type ' || l_element_type_id;
4508: OPEN element_name_cur;
4509: FETCH element_name_cur INTO l_element_name;
4510: IF (element_name_cur%NOTFOUND) THEN
4511: CLOSE element_name_cur;
4512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4513: END IF;
4514: CLOSE element_name_cur;
4515: */
4516:
4524: fnd_message.set_token('DISTRIBUTION_END_DATE', to_char(l_distribution_end_date));
4525: fnd_message.set_token('CURRENCY_CODE', l_currency_code); -- Introduced for bug fix 2916848
4526: fnd_msg_pub.add;
4527:
4528: p_return_status := fnd_api.g_ret_sts_success;
4529:
4530: exception
4531: when no_data_found then
4532: -- raise_application_error(-20001, l_error || ' No Data Found');
4532: -- raise_application_error(-20001, l_error || ' No Data Found');
4533: fnd_message.set_token('BATCH_NAME', l_error || ' No data found');
4534: -- Included the following line for bug fix 1765678
4535: fnd_msg_pub.add;
4536: p_return_status := fnd_api.g_ret_sts_unexp_error;
4537: when too_many_rows then
4538: -- raise_application_error(-20001, l_error || ' ' || sqlerrm);
4539: fnd_message.set_token('BATCH_NAME', l_error || ' Too many rows');
4540: -- Included the following line for bug fix 1765678
4538: -- raise_application_error(-20001, l_error || ' ' || sqlerrm);
4539: fnd_message.set_token('BATCH_NAME', l_error || ' Too many rows');
4540: -- Included the following line for bug fix 1765678
4541: fnd_msg_pub.add;
4542: p_return_status := fnd_api.g_ret_sts_unexp_error;
4543: when others then
4544: --Bug :1776606 : Building error stack
4545: fnd_message.set_token('BATCH_NAME',l_error||'Unexpected Oracle error occured ORA -'||sqlcode);
4546: fnd_msg_pub.add;
4545: fnd_message.set_token('BATCH_NAME',l_error||'Unexpected Oracle error occured ORA -'||sqlcode);
4546: fnd_msg_pub.add;
4547: fnd_msg_pub.add_exc_msg('PSP_SUM_TRANS','GET_THE_BATCH_DETAILS');
4548: -- Included the following line for bug fix 1765678
4549: p_return_status := fnd_api.g_ret_sts_unexp_error;
4550: raise;
4551: -- Bug 1776606 : Commented the following line
4552: -- raise_application_error(sqlcode, l_error || ' ' || sqlerrm);
4553: end get_the_batch_details;