[Home] [Help]
437: attribute10_array;
438: close get_adjusted_percentages;
439: begin
440: if project_id_array.count = 0 and gl_ccid_array.count = 0 then
441: raise fnd_api.g_exc_unexpected_error;
442: end if;
443: exception
444: when others then
445: fnd_msg_pub.add_exc_msg('PSP_LABOR_DIST','ADJUSTED_PERCENTAGES');
638: fnd_message.set_token('NUMB_BATCHES',l_batch_count);
639: fnd_msg_pub.add;
640: retcode := 2;
641: psp_message_s.print_error(p_mode => FND_FILE.LOG,
642: p_print_header => FND_API.G_TRUE);
643: raise;
644: END; -- Introduced BEGIN, EXCEPTION, END for bug 7041286
645:
646: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
642: p_print_header => FND_API.G_TRUE);
643: raise;
644: END; -- Introduced BEGIN, EXCEPTION, END for bug 7041286
645:
646: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
647: --dbms_output.put_line('error in get dist line sproc ');
648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
649: END IF;
650:
644: END; -- Introduced BEGIN, EXCEPTION, END for bug 7041286
645:
646: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
647: --dbms_output.put_line('error in get dist line sproc ');
648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
649: END IF;
650:
651:
652: l_sub_line_dist_amount := round((l_sub_line_dist_amount + l_daily_rate), g_precision); -- Bug 2916848: Modified to currency precision (from 2)
779: *******************************************************************/
780: fnd_msg_pub.add;
781: retcode := 2;
782: psp_message_s.print_error(p_mode => FND_FILE.LOG,
783: p_print_header => FND_API.G_TRUE);
784: -- l_dist_message := fnd_message.get;
785:
786: -- errbuf := SUBSTR(g_msg || chr(10) || l_msg_data || chr(10) || l_dist_message||chr(10)||chr(10)||g_error_api_path,1,230);
787: raise; --- for nih sal cap 4304623
784: -- l_dist_message := fnd_message.get;
785:
786: -- errbuf := SUBSTR(g_msg || chr(10) || l_msg_data || chr(10) || l_dist_message||chr(10)||chr(10)||g_error_api_path,1,230);
787: raise; --- for nih sal cap 4304623
788: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
789: ROLLBACK;
790: /*********************************************************************
791: ** Added by Bijoy - 08/06/99 to display error in consurrent log
792: *******************************************************************/
791: ** Added by Bijoy - 08/06/99 to display error in consurrent log
792: *******************************************************************/
793: g_error_api_path := SUBSTR('CREATE_LINES:'||g_error_api_path,1,230);
794: /* fnd_msg_pub.get(p_msg_index => FND_MSG_PUB.G_FIRST,
795: p_encoded => FND_API.G_FALSE,
796: p_data => l_msg_data,
797: p_msg_index_out => l_msg_count); */
798:
799: fnd_message.set_name('PSP','PSP_LD_BATCH_DISTRIBUTED');
803:
804: -- errbuf := SUBSTR(g_msg || chr(10) || l_msg_data || chr(10) || l_dist_message||chr(10)||chr(10)||g_error_api_path,1,230);
805: retcode := 2;
806: psp_message_s.print_error(p_mode => FND_FILE.LOG,
807: p_print_header => FND_API.G_TRUE);
808:
809: raise; --- for nih sal cap 4304623
810: WHEN OTHERS THEN
811: ROLLBACK;
811: ROLLBACK;
812: -- g_error_api_path := SUBSTR('CREATE_LINES:'||g_error_api_path,1,230);
813: fnd_msg_pub.add_exc_msg('PSP_LABOR_DIST','CREATE_LINES2');
814: /* fnd_msg_pub.get(p_msg_index => FND_MSG_PUB.G_FIRST,
815: p_encoded => FND_API.G_FALSE,
816: p_data => l_msg_data,
817: p_msg_index_out => l_msg_count); */
818:
819: fnd_message.set_name('PSP','PSP_LD_BATCH_DISTRIBUTED');
823:
824: /* errbuf := SUBSTR(g_msg || chr(10) || l_msg_data || chr(10) || l_dist_message||chr(10)||chr(10)||g_error_api_path,1,230); */
825: retcode := 2;
826: psp_message_s.print_error(p_mode => FND_FILE.LOG,
827: p_print_header => FND_API.G_TRUE);
828: raise; --- for nih sal cap 4304623
829: END;
830:
831: ---------------------- G L O B A L E A R N I N G S E L E M E N T -----------------------
999: fnd_message.set_token('ASSIGNMENT_NUMBER',g_assignment_number);
1000: fnd_message.set_token('EMPLOYEE_NUMBER',g_employee_number);
1001: fnd_msg_pub.add;
1002: -- Commented for bug fix 2267098 (return status set in exception)
1003: -- p_return_status := fnd_api.g_ret_sts_unexp_error;
1004: RAISE fnd_api.g_exc_unexpected_error; -- Introduced for bug 2267098
1005:
1006: END IF;
1007:
1000: fnd_message.set_token('EMPLOYEE_NUMBER',g_employee_number);
1001: fnd_msg_pub.add;
1002: -- Commented for bug fix 2267098 (return status set in exception)
1003: -- p_return_status := fnd_api.g_ret_sts_unexp_error;
1004: RAISE fnd_api.g_exc_unexpected_error; -- Introduced for bug 2267098
1005:
1006: END IF;
1007:
1008: l_tot_dist_amount := round((l_tot_dist_amount + l_dist_amount), g_precision); -- Bug 2916848: Modified to currency precision (from 2)
1050: l_attribute9,
1051: l_attribute10,
1052: l_return_status);
1053:
1054: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1056: END IF;
1057:
1058: ELSIF l_gl_code_combination_id IS NULL THEN
1051: l_attribute10,
1052: l_return_status);
1053:
1054: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1056: END IF;
1057:
1058: ELSIF l_gl_code_combination_id IS NULL THEN
1059: IF g_global_element_autopop = 'Y' THEN -- introduced for 5080403
1097: l_attribute9,
1098: l_attribute10,
1099: l_return_status);
1100:
1101: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1103: END IF;
1104: ELSE
1105:
1098: l_attribute10,
1099: l_return_status);
1100:
1101: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1103: END IF;
1104: ELSE
1105:
1106: -- modified as per 11i changes
1178: p_set_of_books_id,
1179: NULL, --- for autopop perf. patch
1180: l_return_status);
1181:
1182: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1184: END IF;
1185:
1186: ELSIF (l_patc_status IS NULL) OR
1179: NULL, --- for autopop perf. patch
1180: l_return_status);
1181:
1182: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1184: END IF;
1185:
1186: ELSIF (l_patc_status IS NULL) OR
1187: --- (l_linkage_status IS NULL) OR
1201: l_task_id,
1202: l_effective_date,
1203: l_return_status);
1204: end if;
1205: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1207: END IF; */
1208: l_gl_project_flag := 'P';
1209:
1202: l_effective_date,
1203: l_return_status);
1204: end if;
1205: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1207: END IF; */
1208: l_gl_project_flag := 'P';
1209:
1210: -- insert the record in psp_distribution_lines
1246: l_attribute9,
1247: l_attribute10,
1248: l_return_status);
1249:
1250: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1252: END IF;
1253: END IF;
1254: END IF;
1247: l_attribute10,
1248: l_return_status);
1249:
1250: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1252: END IF;
1253: END IF;
1254: END IF;
1255: END IF;
1285: p_attribute9,
1286: p_attribute10,
1287: p_set_of_books_id,
1288: l_return_status);
1289: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1291: END IF;
1292:
1293: IF x_proc_executed = 'FALSE' then
1286: p_attribute10,
1287: p_set_of_books_id,
1288: l_return_status);
1289: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1291: END IF;
1292:
1293: IF x_proc_executed = 'FALSE' then
1294: suspense_account(
1308: p_business_group_id,
1309: p_set_of_books_id,
1310: NULL, --- for autopop perf. patch
1311: l_return_status);
1312: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1314: END IF;
1315: END IF;
1316: ELSE
1309: p_set_of_books_id,
1310: NULL, --- for autopop perf. patch
1311: l_return_status);
1312: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1314: END IF;
1315: END IF;
1316: ELSE
1317: suspense_account(
1331: p_business_group_id,
1332: p_set_of_books_id,
1333: NULL, --- for autopop perf. patch
1334: l_return_status);
1335: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1337: END IF;
1338: END IF;
1339: END IF;
1332: p_set_of_books_id,
1333: NULL, --- for autopop perf. patch
1334: l_return_status);
1335: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1337: END IF;
1338: END IF;
1339: END IF;
1340: --
1337: END IF;
1338: END IF;
1339: END IF;
1340: --
1341: p_return_status := fnd_api.g_ret_sts_success;
1342:
1343: EXCEPTION
1344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1345: g_error_api_path := SUBSTR('GLOBAL_EARNINGS_ELEMENT:'||g_error_api_path,1,230);
1340: --
1341: p_return_status := fnd_api.g_ret_sts_success;
1342:
1343: EXCEPTION
1344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1345: g_error_api_path := SUBSTR('GLOBAL_EARNINGS_ELEMENT:'||g_error_api_path,1,230);
1346: p_return_status := fnd_api.g_ret_sts_unexp_error;
1347:
1348: WHEN OTHERS THEN
1342:
1343: EXCEPTION
1344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1345: g_error_api_path := SUBSTR('GLOBAL_EARNINGS_ELEMENT:'||g_error_api_path,1,230);
1346: p_return_status := fnd_api.g_ret_sts_unexp_error;
1347:
1348: WHEN OTHERS THEN
1349: g_error_api_path := SUBSTR('GLOBAL_EARNINGS_ELEMENT:'||g_error_api_path,1,230);
1350: fnd_msg_pub.add_exc_msg('PSB_LABOR_DIST','GLOBAL_EARNINGS_ELEMENT');
1347:
1348: WHEN OTHERS THEN
1349: g_error_api_path := SUBSTR('GLOBAL_EARNINGS_ELEMENT:'||g_error_api_path,1,230);
1350: fnd_msg_pub.add_exc_msg('PSB_LABOR_DIST','GLOBAL_EARNINGS_ELEMENT');
1351: p_return_status := fnd_api.g_ret_sts_unexp_error;
1352: END;
1353:
1354: ----------------------------- E L E M E N T T Y P E --------------------------------------
1355:
1530: fnd_message.set_token('ASSIGNMENT_NUMBER',g_assignment_number);
1531: fnd_message.set_token('EMPLOYEE_NUMBER',g_employee_number);
1532: fnd_msg_pub.add;
1533: -- Commented for bug fix 2267098 (return status set in exception)
1534: -- p_return_status := fnd_api.g_ret_sts_unexp_error;
1535: RAISE fnd_api.g_exc_unexpected_error; -- Introduced for bug 2267098
1536: END IF;
1537:
1538: l_tot_dist_amount := round((l_tot_dist_amount + l_dist_amount), g_precision); -- Bug 2916848: Modified to currency precision (from 2)
1531: fnd_message.set_token('EMPLOYEE_NUMBER',g_employee_number);
1532: fnd_msg_pub.add;
1533: -- Commented for bug fix 2267098 (return status set in exception)
1534: -- p_return_status := fnd_api.g_ret_sts_unexp_error;
1535: RAISE fnd_api.g_exc_unexpected_error; -- Introduced for bug 2267098
1536: END IF;
1537:
1538: l_tot_dist_amount := round((l_tot_dist_amount + l_dist_amount), g_precision); -- Bug 2916848: Modified to currency precision (from 2)
1539:
1580: l_attribute9,
1581: l_attribute10,
1582: l_return_status);
1583:
1584: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1586: END IF;
1587: -- END IF; -- Auto Population ON/OFF for bug fix 2023955
1588:
1581: l_attribute10,
1582: l_return_status);
1583:
1584: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1586: END IF;
1587: -- END IF; -- Auto Population ON/OFF for bug fix 2023955
1588:
1589:
1713: p_set_of_books_id,
1714: NULL, --- for autopop perf. patch
1715: l_return_status);
1716:
1717: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1719: END IF;
1720:
1721: ELSIF (l_patc_status IS NULL) OR
1714: NULL, --- for autopop perf. patch
1715: l_return_status);
1716:
1717: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1719: END IF;
1720:
1721: ELSIF (l_patc_status IS NULL) OR
1722: --- (l_linkage_status IS NULL) OR
1737: l_task_id,
1738: l_effective_date,
1739: l_return_status);
1740: end if;
1741: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1742: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1743: END IF; */
1744: l_gl_project_flag := 'P';
1745:
1738: l_effective_date,
1739: l_return_status);
1740: end if;
1741: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1742: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1743: END IF; */
1744: l_gl_project_flag := 'P';
1745:
1746: -- insert the record in psp_distribution_lines
1782: l_attribute9,
1783: l_attribute10,
1784: l_return_status);
1785:
1786: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1788: END IF;
1789: END IF;
1790: END IF; -- Auto-Population ON/OFF
1783: l_attribute10,
1784: l_return_status);
1785:
1786: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1788: END IF;
1789: END IF;
1790: END IF; -- Auto-Population ON/OFF
1791: END IF;
1822: p_attribute9,
1823: p_attribute10,
1824: l_return_status);
1825:
1826: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1828: END IF;
1829:
1830: IF x_proc_executed = 'FALSE' then
1823: p_attribute10,
1824: l_return_status);
1825:
1826: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1828: END IF;
1829:
1830: IF x_proc_executed = 'FALSE' then
1831: suspense_account(
1846: p_set_of_books_id,
1847: NULL, --- for autopop perf. patch
1848: l_return_status);
1849:
1850: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1852: END IF;
1853: END IF;
1854: ELSE
1847: NULL, --- for autopop perf. patch
1848: l_return_status);
1849:
1850: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1852: END IF;
1853: END IF;
1854: ELSE
1855: suspense_account(
1870: p_set_of_books_id,
1871: NULL, -- for autopop perf. patch 2023955
1872: l_return_status);
1873:
1874: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1876: END IF;
1877: END IF;
1878: END IF;
1871: NULL, -- for autopop perf. patch 2023955
1872: l_return_status);
1873:
1874: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1876: END IF;
1877: END IF;
1878: END IF;
1879: --
1876: END IF;
1877: END IF;
1878: END IF;
1879: --
1880: p_return_status := fnd_api.g_ret_sts_success;
1881:
1882: EXCEPTION
1883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1884: g_error_api_path := SUBSTR('ELEMENT_TYPE_HIERARCHY:'||g_error_api_path,1,230);
1879: --
1880: p_return_status := fnd_api.g_ret_sts_success;
1881:
1882: EXCEPTION
1883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1884: g_error_api_path := SUBSTR('ELEMENT_TYPE_HIERARCHY:'||g_error_api_path,1,230);
1885: p_return_status := fnd_api.g_ret_sts_unexp_error;
1886:
1887: WHEN OTHERS THEN
1881:
1882: EXCEPTION
1883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1884: g_error_api_path := SUBSTR('ELEMENT_TYPE_HIERARCHY:'||g_error_api_path,1,230);
1885: p_return_status := fnd_api.g_ret_sts_unexp_error;
1886:
1887: WHEN OTHERS THEN
1888: g_error_api_path := SUBSTR('ELEMENT_TYPE_HIERARCHY:'||g_error_api_path,1,230);
1889: fnd_msg_pub.add_exc_msg('PSB_LABOR_DIST','ELEMENT_TYPE_HIERARCHY');
1886:
1887: WHEN OTHERS THEN
1888: g_error_api_path := SUBSTR('ELEMENT_TYPE_HIERARCHY:'||g_error_api_path,1,230);
1889: fnd_msg_pub.add_exc_msg('PSB_LABOR_DIST','ELEMENT_TYPE_HIERARCHY');
1890: p_return_status := fnd_api.g_ret_sts_unexp_error;
1891: END;
1892:
1893: ----------------------------- E L E M E N T C L A S S --------------------------------------
1894:
2076: fnd_message.set_token('ASSIGNMENT_NUMBER',g_assignment_number);
2077: fnd_message.set_token('EMPLOYEE_NUMBER',g_employee_number);
2078: fnd_msg_pub.add;
2079: -- Commented for bug fix 2267098 (return status set in exception)
2080: -- p_return_status := fnd_api.g_ret_sts_unexp_error;
2081: RAISE fnd_api.g_exc_unexpected_error; -- Introduced for bug 2267098
2082:
2083: END IF;
2084:
2077: fnd_message.set_token('EMPLOYEE_NUMBER',g_employee_number);
2078: fnd_msg_pub.add;
2079: -- Commented for bug fix 2267098 (return status set in exception)
2080: -- p_return_status := fnd_api.g_ret_sts_unexp_error;
2081: RAISE fnd_api.g_exc_unexpected_error; -- Introduced for bug 2267098
2082:
2083: END IF;
2084:
2085: l_tot_dist_amount := round((l_tot_dist_amount + l_dist_amount), g_precision); -- Bug 2916848: Modified to currency precision (from 2)
2128: l_attribute9,
2129: l_attribute10,
2130: l_return_status);
2131:
2132: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2134: END IF;
2135:
2136: ELSIF l_gl_code_combination_id IS NULL THEN
2129: l_attribute10,
2130: l_return_status);
2131:
2132: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2134: END IF;
2135:
2136: ELSIF l_gl_code_combination_id IS NULL THEN
2137: --IF g_auto_population = 'Y' THEN
2178: l_attribute9,
2179: l_attribute10,
2180: l_return_status);
2181:
2182: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2184: END IF;
2185: -- END IF; -- Auto-Population ON/OFF Commented out NOCOPY for bug fxi 2023955
2186:
2179: l_attribute10,
2180: l_return_status);
2181:
2182: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2184: END IF;
2185: -- END IF; -- Auto-Population ON/OFF Commented out NOCOPY for bug fxi 2023955
2186:
2187:
2214: p_business_group_id => p_business_group_id,
2215: p_set_of_books_id => p_set_of_books_id,
2216: p_return_status => l_return_status);
2217:
2218: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2220: END IF;
2221: */
2222: -- ELSE
2215: p_set_of_books_id => p_set_of_books_id,
2216: p_return_status => l_return_status);
2217:
2218: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2220: END IF;
2221: */
2222: -- ELSE
2223: -- Auto-Population is OFF. Get project status and insert record.
2299: p_set_of_books_id,
2300: NULL, --- for autopop perf. patch
2301: l_return_status);
2302:
2303: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2305: END IF;
2306:
2307: ELSIF (l_patc_status IS NULL) OR
2300: NULL, --- for autopop perf. patch
2301: l_return_status);
2302:
2303: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2305: END IF;
2306:
2307: ELSIF (l_patc_status IS NULL) OR
2308: --- (l_linkage_status IS NULL) OR
2323: l_task_id,
2324: l_effective_date,
2325: l_return_status);
2326: end if;
2327: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2329: END IF; */
2330: l_gl_project_flag := 'P';
2331:
2324: l_effective_date,
2325: l_return_status);
2326: end if;
2327: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2329: END IF; */
2330: l_gl_project_flag := 'P';
2331:
2332: -- insert the record in psp_distribution_lines
2368: l_attribute9,
2369: l_attribute10,
2370: l_return_status);
2371:
2372: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2374: END IF;
2375: END IF;
2376: END IF; -- g_auto_population = 'Y'
2369: l_attribute10,
2370: l_return_status);
2371:
2372: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2374: END IF;
2375: END IF;
2376: END IF; -- g_auto_population = 'Y'
2377: END IF;
2406: p_attribute8,
2407: p_attribute9,
2408: p_attribute10,
2409: l_return_status);
2410: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2412: END IF;
2413:
2414:
2407: p_attribute9,
2408: p_attribute10,
2409: l_return_status);
2410: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2412: END IF;
2413:
2414:
2415: IF x_proc_executed = 'FALSE' then
2430: p_business_group_id,
2431: p_set_of_books_id,
2432: NULL, --- for autopop perf. patch
2433: l_return_status);
2434: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2436: END IF;
2437:
2438: END IF;
2431: p_set_of_books_id,
2432: NULL, --- for autopop perf. patch
2433: l_return_status);
2434: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2436: END IF;
2437:
2438: END IF;
2439: ELSE
2454: p_business_group_id,
2455: p_set_of_books_id,
2456: NULL, --- for autopop perf. patch
2457: l_return_status);
2458: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2460: END IF;
2461:
2462: END IF;
2455: p_set_of_books_id,
2456: NULL, --- for autopop perf. patch
2457: l_return_status);
2458: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2460: END IF;
2461:
2462: END IF;
2463: END IF;
2461:
2462: END IF;
2463: END IF;
2464: --
2465: p_return_status := fnd_api.g_ret_sts_success;
2466:
2467: EXCEPTION
2468: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2469: g_error_api_path := SUBSTR('ELEMENT_CLASS_HIERARCHY:'||g_error_api_path,1,230);
2464: --
2465: p_return_status := fnd_api.g_ret_sts_success;
2466:
2467: EXCEPTION
2468: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2469: g_error_api_path := SUBSTR('ELEMENT_CLASS_HIERARCHY:'||g_error_api_path,1,230);
2470: p_return_status := fnd_api.g_ret_sts_unexp_error;
2471:
2472: WHEN OTHERS THEN
2466:
2467: EXCEPTION
2468: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2469: g_error_api_path := SUBSTR('ELEMENT_CLASS_HIERARCHY:'||g_error_api_path,1,230);
2470: p_return_status := fnd_api.g_ret_sts_unexp_error;
2471:
2472: WHEN OTHERS THEN
2473: g_error_api_path := SUBSTR('ELEMENT_CLASS_HIERARCHY:'||g_error_api_path,1,230);
2474: fnd_msg_pub.add_exc_msg('PSB_LABOR_DIST','ELEMENT_CLASS_HIERARCHY');
2471:
2472: WHEN OTHERS THEN
2473: g_error_api_path := SUBSTR('ELEMENT_CLASS_HIERARCHY:'||g_error_api_path,1,230);
2474: fnd_msg_pub.add_exc_msg('PSB_LABOR_DIST','ELEMENT_CLASS_HIERARCHY');
2475: p_return_status := fnd_api.g_ret_sts_unexp_error;
2476:
2477: END;
2478:
2479: ----------------------------- A S S I G N M E N T --------------------------------------
2656: fnd_message.set_token('ASSIGNMENT_NUMBER',g_assignment_number);
2657: fnd_message.set_token('EMPLOYEE_NUMBER',g_employee_number);
2658: fnd_msg_pub.add;
2659: -- Commented for bug fix 2267098 (return status set in exception)
2660: -- p_return_status := fnd_api.g_ret_sts_unexp_error;
2661: RAISE fnd_api.g_exc_unexpected_error; -- Introduced for bug 2267098
2662:
2663: END IF;
2664:
2657: fnd_message.set_token('EMPLOYEE_NUMBER',g_employee_number);
2658: fnd_msg_pub.add;
2659: -- Commented for bug fix 2267098 (return status set in exception)
2660: -- p_return_status := fnd_api.g_ret_sts_unexp_error;
2661: RAISE fnd_api.g_exc_unexpected_error; -- Introduced for bug 2267098
2662:
2663: END IF;
2664:
2665: l_tot_dist_amount := round((l_tot_dist_amount + l_dist_amount), g_precision); -- Bug 2916848: Modified to currency precision (from 2)
2708: l_attribute9,
2709: l_attribute10,
2710: l_return_status);
2711:
2712: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2714: END IF;
2715: -- END IF; -- g_auto_population = 'Y' bug fix 2023955
2716:
2709: l_attribute10,
2710: l_return_status);
2711:
2712: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2714: END IF;
2715: -- END IF; -- g_auto_population = 'Y' bug fix 2023955
2716:
2717:
2759: l_attribute9,
2760: l_attribute10,
2761: l_return_status);
2762:
2763: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2765: END IF;
2766:
2767: ELSE
2760: l_attribute10,
2761: l_return_status);
2762:
2763: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2765: END IF;
2766:
2767: ELSE
2768: -- Auto-Population is OFF. Get project status and insert record.
2845: p_set_of_books_id,
2846: NULL, --- for autopop perf. patch
2847: l_return_status);
2848:
2849: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2851: END IF;
2852:
2853: ELSIF (l_patc_status IS NULL)
2846: NULL, --- for autopop perf. patch
2847: l_return_status);
2848:
2849: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2851: END IF;
2852:
2853: ELSIF (l_patc_status IS NULL)
2854: ---- OR (l_linkage_status IS NULL)
2870: l_task_id,
2871: l_effective_date,
2872: l_return_status);
2873: end if;
2874: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2876: END IF; */
2877: l_gl_project_flag := 'P';
2878:
2871: l_effective_date,
2872: l_return_status);
2873: end if;
2874: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2876: END IF; */
2877: l_gl_project_flag := 'P';
2878:
2879: -- insert the record in psp_distribution_lines
2915: l_attribute9,
2916: l_attribute10,
2917: l_return_status);
2918:
2919: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2921: END IF;
2922: END IF;
2923: END IF; -- g_auto_population = 'Y'
2916: l_attribute10,
2917: l_return_status);
2918:
2919: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2921: END IF;
2922: END IF;
2923: END IF; -- g_auto_population = 'Y'
2924: END IF;
2955: p_attribute9,
2956: p_attribute10,
2957: l_return_status);
2958:
2959: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2961: END IF;
2962:
2963: IF x_proc_executed = 'FALSE' then
2956: p_attribute10,
2957: l_return_status);
2958:
2959: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2961: END IF;
2962:
2963: IF x_proc_executed = 'FALSE' then
2964: suspense_account(
2979: p_set_of_books_id,
2980: NULL, --- for autopop perf. patch
2981: l_return_status);
2982:
2983: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2985: END IF;
2986:
2987: END IF;
2980: NULL, --- for autopop perf. patch
2981: l_return_status);
2982:
2983: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2985: END IF;
2986:
2987: END IF;
2988: ELSE
3004: p_set_of_books_id,
3005: NULL, --- for autopop perf. patch
3006: l_return_status);
3007:
3008: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3010: END IF;
3011:
3012: END IF;
3005: NULL, --- for autopop perf. patch
3006: l_return_status);
3007:
3008: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3010: END IF;
3011:
3012: END IF;
3013: END IF;
3011:
3012: END IF;
3013: END IF;
3014: --
3015: p_return_status := fnd_api.g_ret_sts_success;
3016:
3017: EXCEPTION
3018: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3019: -- dbms_output.put_line(' asg hiearchy unexpected error');
3014: --
3015: p_return_status := fnd_api.g_ret_sts_success;
3016:
3017: EXCEPTION
3018: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3019: -- dbms_output.put_line(' asg hiearchy unexpected error');
3020: g_error_api_path := SUBSTR('ASSIGNMENT_HIERARCHY:'||g_error_api_path,1,230);
3021: p_return_status := fnd_api.g_ret_sts_unexp_error;
3022:
3017: EXCEPTION
3018: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3019: -- dbms_output.put_line(' asg hiearchy unexpected error');
3020: g_error_api_path := SUBSTR('ASSIGNMENT_HIERARCHY:'||g_error_api_path,1,230);
3021: p_return_status := fnd_api.g_ret_sts_unexp_error;
3022:
3023: WHEN OTHERS THEN
3024: -- dbms_output.put_line(' asg hiearchy when others ='||sqlerrm);
3025: g_error_api_path := SUBSTR('ASSIGNMENT_HIERARCHY:'||g_error_api_path,1,230);
3023: WHEN OTHERS THEN
3024: -- dbms_output.put_line(' asg hiearchy when others ='||sqlerrm);
3025: g_error_api_path := SUBSTR('ASSIGNMENT_HIERARCHY:'||g_error_api_path,1,230);
3026: fnd_msg_pub.add_exc_msg('PSB_LABOR_DIST','ASSIGNMENT_HIERARCHY');
3027: p_return_status := fnd_api.g_ret_sts_unexp_error;
3028:
3029: END;
3030:
3031: -------------------------- ORGANIZATION DEFAULT LABOR SCHEDULE --------------------------
3203: fnd_message.set_token('ASSIGNMENT_NUMBER',g_assignment_number);
3204: fnd_message.set_token('EMPLOYEE_NUMBER',g_employee_number);
3205: fnd_msg_pub.add;
3206: -- Commented for bug fix 2267098 (return status set in exception)
3207: -- p_return_status := fnd_api.g_ret_sts_unexp_error;
3208: RAISE fnd_api.g_exc_unexpected_error; -- Introduced for bug 2267098
3209:
3210: END IF;
3211:
3204: fnd_message.set_token('EMPLOYEE_NUMBER',g_employee_number);
3205: fnd_msg_pub.add;
3206: -- Commented for bug fix 2267098 (return status set in exception)
3207: -- p_return_status := fnd_api.g_ret_sts_unexp_error;
3208: RAISE fnd_api.g_exc_unexpected_error; -- Introduced for bug 2267098
3209:
3210: END IF;
3211:
3212: l_tot_dist_amount := round((l_tot_dist_amount + l_dist_amount), g_precision); -- Bug 2916848: Modified to currency precision (from 2)
3255: l_attribute9,
3256: l_attribute10,
3257: l_return_status);
3258:
3259: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3261: END IF;
3262: -- END IF; -- g_auto_population = 'Y' for bug fix 2023955
3263:
3256: l_attribute10,
3257: l_return_status);
3258:
3259: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3261: END IF;
3262: -- END IF; -- g_auto_population = 'Y' for bug fix 2023955
3263:
3264: ELSIF l_gl_code_combination_id IS NULL THEN
3310: l_attribute9,
3311: l_attribute10,
3312: l_return_status);
3313:
3314: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3316: END IF;
3317:
3318: ELSE -- bug fix 2023955
3311: l_attribute10,
3312: l_return_status);
3313:
3314: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3316: END IF;
3317:
3318: ELSE -- bug fix 2023955
3319:
3395: p_set_of_books_id,
3396: NULL, --- for autopop perf. patch
3397: l_return_status);
3398:
3399: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3401: END IF;
3402:
3403: ELSIF (l_patc_status IS NULL) OR
3396: NULL, --- for autopop perf. patch
3397: l_return_status);
3398:
3399: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3401: END IF;
3402:
3403: ELSIF (l_patc_status IS NULL) OR
3404: ---- (l_linkage_status IS NULL) OR
3419: l_task_id,
3420: l_effective_date,
3421: l_return_status);
3422: end if;
3423: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3425: END IF; */
3426: l_gl_project_flag := 'P';
3427:
3420: l_effective_date,
3421: l_return_status);
3422: end if;
3423: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3425: END IF; */
3426: l_gl_project_flag := 'P';
3427:
3428: -- insert the record in psp_distribution_lines
3464: l_attribute9,
3465: l_attribute10,
3466: l_return_status);
3467:
3468: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3470: END IF;
3471: END IF;
3472: END IF; -- g_auto_population = 'Y'
3465: l_attribute10,
3466: l_return_status);
3467:
3468: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3470: END IF;
3471: END IF;
3472: END IF; -- g_auto_population = 'Y'
3473: END IF;
3503: p_attribute8,
3504: p_attribute9,
3505: p_attribute10,
3506: l_return_status);
3507: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3509: END IF;
3510:
3511: IF x_proc_executed = 'FALSE' then
3504: p_attribute9,
3505: p_attribute10,
3506: l_return_status);
3507: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3509: END IF;
3510:
3511: IF x_proc_executed = 'FALSE' then
3512: suspense_account(
3527: p_set_of_books_id,
3528: NULL, --- for autopop perf. patch
3529: l_return_status);
3530:
3531: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3533: END IF;
3534:
3535: END IF;
3528: NULL, --- for autopop perf. patch
3529: l_return_status);
3530:
3531: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3533: END IF;
3534:
3535: END IF;
3536: ELSE
3552: p_set_of_books_id,
3553: NULL, --- for autopop perf. patch
3554: l_return_status);
3555:
3556: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3558: END IF;
3559:
3560: END IF;
3553: NULL, --- for autopop perf. patch
3554: l_return_status);
3555:
3556: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3558: END IF;
3559:
3560: END IF;
3561: END IF;
3559:
3560: END IF;
3561: END IF;
3562: --
3563: p_return_status := fnd_api.g_ret_sts_success;
3564:
3565: EXCEPTION
3566: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3567: g_error_api_path := SUBSTR('ORG_LABOR_SCHEDULE_HIERARCHY:'||g_error_api_path,1,230);
3562: --
3563: p_return_status := fnd_api.g_ret_sts_success;
3564:
3565: EXCEPTION
3566: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3567: g_error_api_path := SUBSTR('ORG_LABOR_SCHEDULE_HIERARCHY:'||g_error_api_path,1,230);
3568: p_return_status := fnd_api.g_ret_sts_unexp_error;
3569:
3570: WHEN OTHERS THEN
3564:
3565: EXCEPTION
3566: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3567: g_error_api_path := SUBSTR('ORG_LABOR_SCHEDULE_HIERARCHY:'||g_error_api_path,1,230);
3568: p_return_status := fnd_api.g_ret_sts_unexp_error;
3569:
3570: WHEN OTHERS THEN
3571: g_error_api_path := SUBSTR('ORG_LABOR_SCHEDULE_HIERARCHY:'||g_error_api_path,1,230);
3572: fnd_msg_pub.add_exc_msg('PSB_LABOR_DIST','ORG_LABOR_SCHEDULE_HIERARCHY');
3569:
3570: WHEN OTHERS THEN
3571: g_error_api_path := SUBSTR('ORG_LABOR_SCHEDULE_HIERARCHY:'||g_error_api_path,1,230);
3572: fnd_msg_pub.add_exc_msg('PSB_LABOR_DIST','ORG_LABOR_SCHEDULE_HIERARCHY');
3573: p_return_status := fnd_api.g_ret_sts_unexp_error;
3574: END;
3575:
3576: ------------------------------ D E F A U L T A / C --------------------------------------
3577: PROCEDURE default_account(
3743: l_attribute9,
3744: l_attribute10,
3745: l_return_status);
3746:
3747: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3748: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3749: END IF;
3750:
3751: ELSIF l_gl_code_combination_id IS NULL THEN
3744: l_attribute10,
3745: l_return_status);
3746:
3747: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3748: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3749: END IF;
3750:
3751: ELSIF l_gl_code_combination_id IS NULL THEN
3752: IF g_default_account_autopop = 'Y' THEN -- introduced for 5080403
3790: l_attribute9,
3791: l_attribute10,
3792: l_return_status);
3793:
3794: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3796: END IF;
3797: ELSE
3798:
3791: l_attribute10,
3792: l_return_status);
3793:
3794: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3796: END IF;
3797: ELSE
3798:
3799:
3874: p_set_of_books_id,
3875: NULL, --- for autopop perf. patch
3876: l_return_status);
3877:
3878: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3879: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3880: END IF;
3881:
3882: ELSIF (l_patc_status IS NULL)
3875: NULL, --- for autopop perf. patch
3876: l_return_status);
3877:
3878: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3879: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3880: END IF;
3881:
3882: ELSIF (l_patc_status IS NULL)
3883: ---OR (l_linkage_status IS NULL) OR
3900: l_effective_date,
3901: l_return_status);
3902: end if;
3903:
3904: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3906: END IF; */
3907: l_gl_project_flag := 'P';
3908:
3901: l_return_status);
3902: end if;
3903:
3904: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3906: END IF; */
3907: l_gl_project_flag := 'P';
3908:
3909: -- insert the record in psp_distribution_lines
3945: l_attribute9,
3946: l_attribute10,
3947: l_return_status);
3948:
3949: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3951: END IF;
3952: END IF;
3953: END IF;
3946: l_attribute10,
3947: l_return_status);
3948:
3949: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3951: END IF;
3952: END IF;
3953: END IF;
3954: END IF;
3952: END IF;
3953: END IF;
3954: END IF;
3955: --
3956: p_return_status := fnd_api.g_ret_sts_success;
3957:
3958: EXCEPTION
3959: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3960: g_error_api_path := SUBSTR('DEFAULT_ACCOUNT:'||g_error_api_path,1,230);
3955: --
3956: p_return_status := fnd_api.g_ret_sts_success;
3957:
3958: EXCEPTION
3959: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3960: g_error_api_path := SUBSTR('DEFAULT_ACCOUNT:'||g_error_api_path,1,230);
3961: p_return_status := fnd_api.g_ret_sts_unexp_error;
3962:
3963: WHEN DEFAULT_AC_NOT_FOUND THEN
3957:
3958: EXCEPTION
3959: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3960: g_error_api_path := SUBSTR('DEFAULT_ACCOUNT:'||g_error_api_path,1,230);
3961: p_return_status := fnd_api.g_ret_sts_unexp_error;
3962:
3963: WHEN DEFAULT_AC_NOT_FOUND THEN
3964: g_error_api_path := SUBSTR('DEFAULT_ACCOUNT:'||g_error_api_path,1,230);
3965: fnd_message.set_name('PSP','PSP_LD_DEFAULT_AC_NOT_SET_UP');
3966: fnd_msg_pub.add;
3967: g_msg := SUBSTR(fnd_message.get,1,230);
3968: --- Next line added by Abhijit as a patch on 7/24/98.
3969: p_proc_executed := 'FALSE';
3970: p_return_status := fnd_api.g_ret_sts_success;
3971:
3972: WHEN OTHERS THEN
3973: g_error_api_path := SUBSTR('DEFAULT_ACCOUNT:'||g_error_api_path,1,230);
3974: fnd_msg_pub.add_exc_msg('PSB_LABOR_DIST','DEFAULT_ACCOUNT');
3971:
3972: WHEN OTHERS THEN
3973: g_error_api_path := SUBSTR('DEFAULT_ACCOUNT:'||g_error_api_path,1,230);
3974: fnd_msg_pub.add_exc_msg('PSB_LABOR_DIST','DEFAULT_ACCOUNT');
3975: p_return_status := fnd_api.g_ret_sts_unexp_error;
3976:
3977: END;
3978:
3979: ------------------------- S U S P E N S E A / C --------------------------------------
4303: l_return_status);
4304:
4305:
4306:
4307: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4309: END IF;
4310: end if;
4311:
4304:
4305:
4306:
4307: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4309: END IF;
4310: end if;
4311:
4312: ELSIF l_gl_code_combination_id IS NULL THEN
4352: l_attribute9,
4353: l_attribute10,
4354: l_return_status);
4355:
4356: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4357: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4358: END IF;
4359: else
4360: update psp_distribution_lines set
4353: l_attribute10,
4354: l_return_status);
4355:
4356: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4357: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4358: END IF;
4359: else
4360: update psp_distribution_lines set
4361: suspense_reason_code= p_suspense_reason_code,
4462: l_effective_date,
4463: l_return_status);
4464: end if; */
4465: l_gl_project_flag := 'P';
4466: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4468: END IF;
4469:
4470: -- if (g_auto_population='Y' and p_mode='I')then
4463: l_return_status);
4464: end if; */
4465: l_gl_project_flag := 'P';
4466: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4468: END IF;
4469:
4470: -- if (g_auto_population='Y' and p_mode='I')then
4471:
4532: l_attribute9,
4533: l_attribute10,
4534: l_return_status);
4535:
4536: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4538: END IF;
4539: END IF;
4540: END IF;
4533: l_attribute10,
4534: l_return_status);
4535:
4536: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4538: END IF;
4539: END IF;
4540: END IF;
4541: END IF;
4539: END IF;
4540: END IF;
4541: END IF;
4542: END IF;
4543: p_return_status := fnd_api.g_ret_sts_success;
4544:
4545: EXCEPTION
4546: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4547: g_error_api_path := SUBSTR('SUSPENSE_ACCOUNT:'||g_error_api_path,1,230);
4542: END IF;
4543: p_return_status := fnd_api.g_ret_sts_success;
4544:
4545: EXCEPTION
4546: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4547: g_error_api_path := SUBSTR('SUSPENSE_ACCOUNT:'||g_error_api_path,1,230);
4548: p_return_status := fnd_api.g_ret_sts_unexp_error;
4549:
4550: WHEN NO_PROFILE_EXISTS THEN
4544:
4545: EXCEPTION
4546: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4547: g_error_api_path := SUBSTR('SUSPENSE_ACCOUNT:'||g_error_api_path,1,230);
4548: p_return_status := fnd_api.g_ret_sts_unexp_error;
4549:
4550: WHEN NO_PROFILE_EXISTS THEN
4551: g_error_api_path := SUBSTR('SUSPENSE_ACCOUNT:'||g_error_api_path,1,230);
4552: fnd_message.set_name('PSP','PSP_NO_PROFILE_EXISTS');
4550: WHEN NO_PROFILE_EXISTS THEN
4551: g_error_api_path := SUBSTR('SUSPENSE_ACCOUNT:'||g_error_api_path,1,230);
4552: fnd_message.set_name('PSP','PSP_NO_PROFILE_EXISTS');
4553: fnd_msg_pub.add;
4554: p_return_status := fnd_api.g_ret_sts_unexp_error;
4555:
4556: WHEN NO_VAL_DATE_MATCHES THEN
4557: g_error_api_path := SUBSTR('SUSPENSE_ACCOUNT:'||g_error_api_path,1,230);
4558: fnd_message.set_name('PSP','PSP_NO_VAL_DATE_MATCHES');
4558: fnd_message.set_name('PSP','PSP_NO_VAL_DATE_MATCHES');
4559: fnd_message.set_token('ORG_NAME',l_organization_name);
4560: fnd_message.set_token('PAYROLL_DATE',p_payroll_start_date);
4561: fnd_msg_pub.add;
4562: p_return_status := fnd_api.g_ret_sts_unexp_error;
4563:
4564: WHEN NO_GLOBAL_ACCT_EXISTS THEN
4565: g_error_api_path := SUBSTR('SUSPENSE_ACCOUNT:'||g_error_api_path,1,230);
4566: fnd_message.set_name('PSP','PSP_NO_GLOBAL_ACCT_EXISTS');
4566: fnd_message.set_name('PSP','PSP_NO_GLOBAL_ACCT_EXISTS');
4567: fnd_message.set_token('ORG_NAME',l_organization_name);
4568: fnd_message.set_token('PAYROLL_DATE',p_payroll_start_date);
4569: fnd_msg_pub.add;
4570: p_return_status := fnd_api.g_ret_sts_unexp_error;
4571:
4572: WHEN NO_REC_IN_GMS_AWARDS_V THEN
4573: g_error_api_path := SUBSTR('SUSPENSE_ACCOUNT:'||g_error_api_path,1,230);
4574: fnd_message.set_name('PSP','PSP_NO_REC_IN_GMS_AWARDS_V');
4572: WHEN NO_REC_IN_GMS_AWARDS_V THEN
4573: g_error_api_path := SUBSTR('SUSPENSE_ACCOUNT:'||g_error_api_path,1,230);
4574: fnd_message.set_name('PSP','PSP_NO_REC_IN_GMS_AWARDS_V');
4575: fnd_msg_pub.add;
4576: p_return_status := fnd_api.g_ret_sts_unexp_error;
4577:
4578: WHEN PROJECT_AWARD_NOT_LNKD THEN
4579: g_error_api_path := SUBSTR('SUSPENSE_ACCOUNT:'||g_error_api_path,1,230);
4580: fnd_message.set_name('PSP','PSP_PROJECT_AWARD_NOT_LINKED');
4580: fnd_message.set_name('PSP','PSP_PROJECT_AWARD_NOT_LINKED');
4581: fnd_message.set_token('PROJECT_NAME',to_char(l_project_id));
4582: fnd_message.set_token('AWARD_NAME',to_char(l_award_id));
4583: fnd_msg_pub.add;
4584: p_return_status := fnd_api.g_ret_sts_unexp_error;
4585:
4586: WHEN SUSPENSE_AC_INVALID THEN
4587: /* Following added for bug 2514611 */
4588: OPEN employee_name_cur;
4594: fnd_message.set_token('ORG_NAME',l_organization_name);
4595: fnd_message.set_token('PATC_STATUS',l_patc_status);
4596: fnd_message.set_token('EMPLOYEE_NAME',l_employee_name); --Bug 2514611
4597: fnd_msg_pub.add;
4598: p_return_status := fnd_api.g_ret_sts_unexp_error;
4599:
4600: WHEN OTHERS THEN
4601: g_error_api_path := SUBSTR('SUSPENSE_ACCOUNT:'||g_error_api_path,1,230);
4602: fnd_msg_pub.add_exc_msg('PSB_LABOR_DIST','SUSPENSE_ACCOUNT');
4599:
4600: WHEN OTHERS THEN
4601: g_error_api_path := SUBSTR('SUSPENSE_ACCOUNT:'||g_error_api_path,1,230);
4602: fnd_msg_pub.add_exc_msg('PSB_LABOR_DIST','SUSPENSE_ACCOUNT');
4603: p_return_status := fnd_api.g_ret_sts_unexp_error;
4604:
4605: END;
4606:
4607: /*
4681: ret_expenditure_type => l_new_expenditure_type,
4682: ret_gl_code_combination_id => l_new_gl_code_combination_id,
4683: retcode => l_auto_pop_status);
4684:
4685: IF (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4686: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) THEN
4687: IF l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4688: l_auto_status := 'AUTO_POP_NA_ERROR';
4689: ELSIF l_auto_pop_status = FND_API.G_RET_STS_ERROR THEN
4682: ret_gl_code_combination_id => l_new_gl_code_combination_id,
4683: retcode => l_auto_pop_status);
4684:
4685: IF (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4686: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) THEN
4687: IF l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4688: l_auto_status := 'AUTO_POP_NA_ERROR';
4689: ELSIF l_auto_pop_status = FND_API.G_RET_STS_ERROR THEN
4690: l_auto_status := 'AUTO_POP_NO_VALUE';
4683: retcode => l_auto_pop_status);
4684:
4685: IF (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4686: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) THEN
4687: IF l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4688: l_auto_status := 'AUTO_POP_NA_ERROR';
4689: ELSIF l_auto_pop_status = FND_API.G_RET_STS_ERROR THEN
4690: l_auto_status := 'AUTO_POP_NO_VALUE';
4691: END IF;
4685: IF (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4686: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) THEN
4687: IF l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4688: l_auto_status := 'AUTO_POP_NA_ERROR';
4689: ELSIF l_auto_pop_status = FND_API.G_RET_STS_ERROR THEN
4690: l_auto_status := 'AUTO_POP_NO_VALUE';
4691: END IF;
4692:
4693: -- Auto-Population returned an error or no value. Use Suspense Acct.
4707: p_business_group_id,
4708: p_set_of_books_id,
4709: l_return_status);
4710:
4711: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4713: END IF;
4714:
4715: ELSIF l_auto_pop_status = FND_API.G_RET_STS_SUCCESS THEN
4708: p_set_of_books_id,
4709: l_return_status);
4710:
4711: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4713: END IF;
4714:
4715: ELSIF l_auto_pop_status = FND_API.G_RET_STS_SUCCESS THEN
4716: -- insert the record in psp_distribution_lines
4711: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4713: END IF;
4714:
4715: ELSIF l_auto_pop_status = FND_API.G_RET_STS_SUCCESS THEN
4716: -- insert the record in psp_distribution_lines
4717: insert_into_distribution_lines(
4718: P_SUB_LINE_ID, -- payroll sub-lines id
4719: P_PAYROLL_START_DATE, -- distribution date
4752: l_attribute9,
4753: l_attribute10,
4754: l_return_status);
4755:
4756: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4758: END IF;
4759: insert_into_autopop_results(
4760: G_DIST_LINE_ID,
4753: l_attribute10,
4754: l_return_status);
4755:
4756: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4758: END IF;
4759: insert_into_autopop_results(
4760: G_DIST_LINE_ID,
4761: NULL,
4760: G_DIST_LINE_ID,
4761: NULL,
4762: L_NEW_GL_CODE_COMBINATION_ID,
4763: l_return_status);
4764: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4766: END IF;
4767:
4768: END IF; -- l_auto_pop_status = FND_API.G_RET_STS_SUCCESS
4761: NULL,
4762: L_NEW_GL_CODE_COMBINATION_ID,
4763: l_return_status);
4764: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4766: END IF;
4767:
4768: END IF; -- l_auto_pop_status = FND_API.G_RET_STS_SUCCESS
4769:
4764: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4766: END IF;
4767:
4768: END IF; -- l_auto_pop_status = FND_API.G_RET_STS_SUCCESS
4769:
4770: ELSIF p_acct_type = 'E' THEN
4771: psp_autopop.main(p_acct_type => 'E',
4772: p_person_id => p_person_id,
4784: ret_expenditure_type => l_new_expenditure_type,
4785: ret_gl_code_combination_id => l_new_gl_code_combination_id,
4786: retcode => l_auto_pop_status);
4787:
4788: IF (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4789: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) THEN
4790: IF l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4791: l_auto_status := 'AUTO_POP_NA_ERROR';
4792: ELSIF l_auto_pop_status = FND_API.G_RET_STS_ERROR THEN
4785: ret_gl_code_combination_id => l_new_gl_code_combination_id,
4786: retcode => l_auto_pop_status);
4787:
4788: IF (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4789: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) THEN
4790: IF l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4791: l_auto_status := 'AUTO_POP_NA_ERROR';
4792: ELSIF l_auto_pop_status = FND_API.G_RET_STS_ERROR THEN
4793: l_auto_status := 'AUTO_POP_NO_VALUE';
4786: retcode => l_auto_pop_status);
4787:
4788: IF (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4789: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) THEN
4790: IF l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4791: l_auto_status := 'AUTO_POP_NA_ERROR';
4792: ELSIF l_auto_pop_status = FND_API.G_RET_STS_ERROR THEN
4793: l_auto_status := 'AUTO_POP_NO_VALUE';
4794: END IF;
4788: IF (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4789: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) THEN
4790: IF l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4791: l_auto_status := 'AUTO_POP_NA_ERROR';
4792: ELSIF l_auto_pop_status = FND_API.G_RET_STS_ERROR THEN
4793: l_auto_status := 'AUTO_POP_NO_VALUE';
4794: END IF;
4795:
4796: -- Auto-Population returned an error or no value. Use Suspense Acct.
4810: p_business_group_id,
4811: p_set_of_books_id,
4812: l_return_status);
4813:
4814: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4815: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4816: END IF;
4817:
4818: ELSIF l_auto_pop_status = FND_API.G_RET_STS_SUCCESS THEN
4811: p_set_of_books_id,
4812: l_return_status);
4813:
4814: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4815: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4816: END IF;
4817:
4818: ELSIF l_auto_pop_status = FND_API.G_RET_STS_SUCCESS THEN
4819: -- modified as per 11i changes
4814: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4815: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4816: END IF;
4817:
4818: ELSIF l_auto_pop_status = FND_API.G_RET_STS_SUCCESS THEN
4819: -- modified as per 11i changes
4820: -- dbms_output.put_line('Project id 8 '|| to_char(p_project_id));
4821: -- dbms_output.put_line('task id 8 '|| to_char(p_task_id));
4822: -- dbms_output.put_line('Dte id 8 '|| to_char(p_payroll_start_date));
4892: p_business_group_id,
4893: p_set_of_books_id,
4894: l_return_status);
4895:
4896: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4897: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4898: END IF;
4899:
4900: ELSIF l_patc_status IS NULL
4893: p_set_of_books_id,
4894: l_return_status);
4895:
4896: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4897: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4898: END IF;
4899:
4900: ELSIF l_patc_status IS NULL
4901: -- OR l_linkage_status IS NULL 2014950
4916: -- P_task_id,
4917: l_effective_date,
4918: -- l_return_status);
4919: -- end if;
4920: -- IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4921: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4922: -- END IF;
4923: l_gl_project_flag := 'P';
4924:
4917: l_effective_date,
4918: -- l_return_status);
4919: -- end if;
4920: -- IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4921: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4922: -- END IF;
4923: l_gl_project_flag := 'P';
4924:
4925: -- insert the record in psp_distribution_lines
4961: l_attribute9,
4962: l_attribute10,
4963: l_return_status);
4964:
4965: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4967: END IF;
4968:
4969: insert_into_autopop_results(
4962: l_attribute10,
4963: l_return_status);
4964:
4965: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4967: END IF;
4968:
4969: insert_into_autopop_results(
4970: G_DIST_LINE_ID,
4970: G_DIST_LINE_ID,
4971: L_NEW_EXPENDITURE_TYPE,
4972: NULL,
4973: l_return_status);
4974: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4976: END IF;
4977: END IF; -- l_patc_status IS NOT NULL
4978:
4971: L_NEW_EXPENDITURE_TYPE,
4972: NULL,
4973: l_return_status);
4974: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4976: END IF;
4977: END IF; -- l_patc_status IS NOT NULL
4978:
4979: END IF; -- l_auto_pop_status = FND_API.G_RET_STS_SUCCESS
4975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4976: END IF;
4977: END IF; -- l_patc_status IS NOT NULL
4978:
4979: END IF; -- l_auto_pop_status = FND_API.G_RET_STS_SUCCESS
4980:
4981:
4982: END IF;
4983:
4980:
4981:
4982: END IF;
4983:
4984: p_return_status := fnd_api.g_ret_sts_success;
4985:
4986: EXCEPTION
4987: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4988: g_error_api_path := SUBSTR('AUTOPOP:'||g_error_api_path,1,1000);
4983:
4984: p_return_status := fnd_api.g_ret_sts_success;
4985:
4986: EXCEPTION
4987: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4988: g_error_api_path := SUBSTR('AUTOPOP:'||g_error_api_path,1,1000);
4989: p_return_status := fnd_api.g_ret_sts_unexp_error;
4990:
4991: WHEN OTHERS THEN
4985:
4986: EXCEPTION
4987: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4988: g_error_api_path := SUBSTR('AUTOPOP:'||g_error_api_path,1,1000);
4989: p_return_status := fnd_api.g_ret_sts_unexp_error;
4990:
4991: WHEN OTHERS THEN
4992: g_error_api_path := SUBSTR('AUTOPOP:'||g_error_api_path,1,1000);
4993: p_return_status := fnd_api.g_ret_sts_unexp_error;
4989: p_return_status := fnd_api.g_ret_sts_unexp_error;
4990:
4991: WHEN OTHERS THEN
4992: g_error_api_path := SUBSTR('AUTOPOP:'||g_error_api_path,1,1000);
4993: p_return_status := fnd_api.g_ret_sts_unexp_error;
4994:
4995:
4996: END autopop;
4997:
5015: L_ELEMENT_ACCOUNT_ID IN NUMBER,
5016: L_ORG_SCHEDULE_ID IN NUMBER,
5017: L_GL_PROJECT_FLAG IN VARCHAR2,
5018: L_REVERSAL_ENTRY_FLAG IN VARCHAR2,
5019: P_GL_CODE_COMBINATION_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5020: P_PROJECT_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5021: P_TASK_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5022: P_AWARD_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5023: P_EXPENDITURE_ORGANIZATION_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5016: L_ORG_SCHEDULE_ID IN NUMBER,
5017: L_GL_PROJECT_FLAG IN VARCHAR2,
5018: L_REVERSAL_ENTRY_FLAG IN VARCHAR2,
5019: P_GL_CODE_COMBINATION_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5020: P_PROJECT_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5021: P_TASK_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5022: P_AWARD_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5023: P_EXPENDITURE_ORGANIZATION_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5024: P_EXPENDITURE_TYPE IN VARCHAR2, -- := FND_API.G_MISS_CHAR, Commented initialization for bug fix 2916848
5017: L_GL_PROJECT_FLAG IN VARCHAR2,
5018: L_REVERSAL_ENTRY_FLAG IN VARCHAR2,
5019: P_GL_CODE_COMBINATION_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5020: P_PROJECT_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5021: P_TASK_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5022: P_AWARD_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5023: P_EXPENDITURE_ORGANIZATION_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5024: P_EXPENDITURE_TYPE IN VARCHAR2, -- := FND_API.G_MISS_CHAR, Commented initialization for bug fix 2916848
5025: P_EFFECTIVE_START_DATE IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5018: L_REVERSAL_ENTRY_FLAG IN VARCHAR2,
5019: P_GL_CODE_COMBINATION_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5020: P_PROJECT_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5021: P_TASK_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5022: P_AWARD_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5023: P_EXPENDITURE_ORGANIZATION_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5024: P_EXPENDITURE_TYPE IN VARCHAR2, -- := FND_API.G_MISS_CHAR, Commented initialization for bug fix 2916848
5025: P_EFFECTIVE_START_DATE IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5026: P_EFFECTIVE_END_DATE IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5019: P_GL_CODE_COMBINATION_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5020: P_PROJECT_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5021: P_TASK_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5022: P_AWARD_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5023: P_EXPENDITURE_ORGANIZATION_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5024: P_EXPENDITURE_TYPE IN VARCHAR2, -- := FND_API.G_MISS_CHAR, Commented initialization for bug fix 2916848
5025: P_EFFECTIVE_START_DATE IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5026: P_EFFECTIVE_END_DATE IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5027: P_MODE IN VARCHAR2 := 'I',
5020: P_PROJECT_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5021: P_TASK_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5022: P_AWARD_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5023: P_EXPENDITURE_ORGANIZATION_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5024: P_EXPENDITURE_TYPE IN VARCHAR2, -- := FND_API.G_MISS_CHAR, Commented initialization for bug fix 2916848
5025: P_EFFECTIVE_START_DATE IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5026: P_EFFECTIVE_END_DATE IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5027: P_MODE IN VARCHAR2 := 'I',
5028: P_BUSINESS_GROUP_ID IN NUMBER,
5021: P_TASK_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5022: P_AWARD_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5023: P_EXPENDITURE_ORGANIZATION_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5024: P_EXPENDITURE_TYPE IN VARCHAR2, -- := FND_API.G_MISS_CHAR, Commented initialization for bug fix 2916848
5025: P_EFFECTIVE_START_DATE IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5026: P_EFFECTIVE_END_DATE IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5027: P_MODE IN VARCHAR2 := 'I',
5028: P_BUSINESS_GROUP_ID IN NUMBER,
5029: P_SET_OF_BOOKS_ID IN NUMBER,
5022: P_AWARD_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5023: P_EXPENDITURE_ORGANIZATION_ID IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5024: P_EXPENDITURE_TYPE IN VARCHAR2, -- := FND_API.G_MISS_CHAR, Commented initialization for bug fix 2916848
5025: P_EFFECTIVE_START_DATE IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5026: P_EFFECTIVE_END_DATE IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5027: P_MODE IN VARCHAR2 := 'I',
5028: P_BUSINESS_GROUP_ID IN NUMBER,
5029: P_SET_OF_BOOKS_ID IN NUMBER,
5030: p_attribute_category IN VARCHAR2, -- Introduced DFF parameters for bug fix 2908859
5124: P_CAP_EXCESS_TASK_ID,
5125: P_CAP_EXCESS_EXP_ORG_ID,
5126: P_CAP_EXCESS_EXP_TYPE);
5127: -- dbms_output.put_line('rowcount dist lines insert ='||sql%rowcount);
5128: p_return_status := fnd_api.g_ret_sts_success;
5129: EXCEPTION
5130: WHEN OTHERS THEN
5131: -- dbms_output.put_line('inert into dist lines = '||sqlerrm);
5132: fnd_msg_pub.add_exc_msg('PSB_LABOR_DIST','INSERT_INTO_DISTRIBUTION_LINES');
5129: EXCEPTION
5130: WHEN OTHERS THEN
5131: -- dbms_output.put_line('inert into dist lines = '||sqlerrm);
5132: fnd_msg_pub.add_exc_msg('PSB_LABOR_DIST','INSERT_INTO_DISTRIBUTION_LINES');
5133: p_return_status := fnd_api.g_ret_sts_unexp_error;
5134:
5135: END insert_into_distribution_lines;
5136:
5137: /*
5156: SET auto_expenditure_type = p_new_expenditure_type,
5157: auto_gl_code_combination_id = p_new_gl_code_combination_id
5158: WHERE distribution_line_id = p_distribution_line_id;
5159:
5160: p_return_status := fnd_api.g_ret_sts_success;
5161:
5162: EXCEPTION
5163: WHEN OTHERS THEN
5164: fnd_msg_pub.add_exc_msg('PSB_LABOR_DIST','INSERT_INTO_AUTOPOP_RESULTS');
5161:
5162: EXCEPTION
5163: WHEN OTHERS THEN
5164: fnd_msg_pub.add_exc_msg('PSB_LABOR_DIST','INSERT_INTO_AUTOPOP_RESULTS');
5165: p_return_status := fnd_api.g_ret_sts_unexp_error;
5166:
5167: END insert_into_autopop_results;
5168:
5169: */
5169: */
5170:
5171: PROCEDURE Get_Distribution_Lines
5172: (p_proc_executed OUT NOCOPY VARCHAR2,
5173: p_person_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5174: p_sub_line_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization 2916848
5175: p_assignment_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5176: p_element_type_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5177: p_payroll_start_date IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5170:
5171: PROCEDURE Get_Distribution_Lines
5172: (p_proc_executed OUT NOCOPY VARCHAR2,
5173: p_person_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5174: p_sub_line_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization 2916848
5175: p_assignment_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5176: p_element_type_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5177: p_payroll_start_date IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5178: p_daily_rate IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5171: PROCEDURE Get_Distribution_Lines
5172: (p_proc_executed OUT NOCOPY VARCHAR2,
5173: p_person_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5174: p_sub_line_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization 2916848
5175: p_assignment_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5176: p_element_type_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5177: p_payroll_start_date IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5178: p_daily_rate IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5179: p_effective_date IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5172: (p_proc_executed OUT NOCOPY VARCHAR2,
5173: p_person_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5174: p_sub_line_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization 2916848
5175: p_assignment_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5176: p_element_type_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5177: p_payroll_start_date IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5178: p_daily_rate IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5179: p_effective_date IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5180: p_mode IN VARCHAR2 := 'I',
5173: p_person_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5174: p_sub_line_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization 2916848
5175: p_assignment_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5176: p_element_type_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5177: p_payroll_start_date IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5178: p_daily_rate IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5179: p_effective_date IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5180: p_mode IN VARCHAR2 := 'I',
5181: p_business_group_id IN NUMBER,
5174: p_sub_line_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization 2916848
5175: p_assignment_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5176: p_element_type_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5177: p_payroll_start_date IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5178: p_daily_rate IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5179: p_effective_date IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5180: p_mode IN VARCHAR2 := 'I',
5181: p_business_group_id IN NUMBER,
5182: p_set_of_books_id IN NUMBER,
5175: p_assignment_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5176: p_element_type_id IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5177: p_payroll_start_date IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5178: p_daily_rate IN NUMBER, -- := FND_API.G_MISS_NUM, Commented initialization for bug fix 2916848
5179: p_effective_date IN DATE, -- := FND_API.G_MISS_DATE, Commented initialization for bug fix 2916848
5180: p_mode IN VARCHAR2 := 'I',
5181: p_business_group_id IN NUMBER,
5182: p_set_of_books_id IN NUMBER,
5183: p_attribute_category IN VARCHAR2 default null, -- Introduced DFF parameters for bug fix 2908859
5438: p_organization_id => g_charging_instructions(g_num_dist).expenditure_organization_id,
5439: p_description => l_description,
5440: p_return_status => l_return_status);
5441:
5442: IF (l_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
5443: g_charging_instructions(g_num_dist).description := l_description;
5444: end if;
5445:
5446: end if;
5530: NULL,
5531: NULL,
5532: NULL);
5533:
5534: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5536: END IF;
5537: ELSIF (p_or_project_id IS NOT NULL) THEN
5538: pa_transactions_pub.validate_transaction
5531: NULL,
5532: NULL);
5533:
5534: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5536: END IF;
5537: ELSIF (p_or_project_id IS NOT NULL) THEN
5538: pa_transactions_pub.validate_transaction
5539: (x_project_id => p_or_project_id,
5587: p_set_of_books_id,
5588: NULL,
5589: l_return_status);
5590:
5591: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5593: END IF;
5594: ELSIF ((l_patc_status IS NULL) OR (l_award_status IS NULL)) THEN
5595: insert_into_distribution_lines
5588: NULL,
5589: l_return_status);
5590:
5591: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5593: END IF;
5594: ELSIF ((l_patc_status IS NULL) OR (l_award_status IS NULL)) THEN
5595: insert_into_distribution_lines
5596: (P_SUB_LINE_ID,
5636: p_or_award_id,
5637: p_or_expenditure_org_id,
5638: p_or_expenditure_type);
5639:
5640: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5642: END IF;
5643: END IF;
5644: ELSE -- else part of EE overrides
5637: p_or_expenditure_org_id,
5638: p_or_expenditure_type);
5639:
5640: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5642: END IF;
5643: END IF;
5644: ELSE -- else part of EE overrides
5645: -- Search for the global earnings element
5672: l_return_status);
5673:
5674: -- dbms_output.put_line('Output of global earnings = '||l_proc_executed);
5675:
5676: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5677: -- dbms_output.put_line('G_Error '||g_error_api_path);
5678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5679: END IF;
5680:
5674: -- dbms_output.put_line('Output of global earnings = '||l_proc_executed);
5675:
5676: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5677: -- dbms_output.put_line('G_Error '||g_error_api_path);
5678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5679: END IF;
5680:
5681: ---5090002 retro parent element.
5682: if g_retro_parent_element_id is not null
5704: p_attribute8,
5705: p_attribute9,
5706: p_attribute10,
5707: l_return_status);
5708: if l_return_status <> fnd_api.g_ret_sts_success then
5709: raise fnd_api.g_exc_unexpected_error;
5710: end if;
5711: end if;
5712:
5705: p_attribute9,
5706: p_attribute10,
5707: l_return_status);
5708: if l_return_status <> fnd_api.g_ret_sts_success then
5709: raise fnd_api.g_exc_unexpected_error;
5710: end if;
5711: end if;
5712:
5713: -- dbms_output.put_line('Before Element Earnings ');
5740: p_attribute10,
5741: l_return_status);
5742:
5743: -- dbms_output.put_line('Output of element hierarchy = '||l_proc_executed);
5744: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5746: END IF;
5747: ---5090002 retro parent element.
5748: if g_retro_parent_element_id is not null
5741: l_return_status);
5742:
5743: -- dbms_output.put_line('Output of element hierarchy = '||l_proc_executed);
5744: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5746: END IF;
5747: ---5090002 retro parent element.
5748: if g_retro_parent_element_id is not null
5749: and l_proc_executed = 'FALSE' then
5772: p_attribute8,
5773: p_attribute9,
5774: p_attribute10,
5775: l_return_status);
5776: if l_return_status <> fnd_api.g_ret_sts_success then
5777: raise fnd_api.g_exc_unexpected_error;
5778: end if;
5779: end if;
5780:
5773: p_attribute9,
5774: p_attribute10,
5775: l_return_status);
5776: if l_return_status <> fnd_api.g_ret_sts_success then
5777: raise fnd_api.g_exc_unexpected_error;
5778: end if;
5779: end if;
5780:
5781:
5807: p_attribute10,
5808: l_return_status);
5809:
5810: -- dbms_output.put_line('Output of element class hierarchy = '||l_proc_executed);
5811: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5813: END IF;
5814: ---5090002 retro parent element.
5815: if g_retro_parent_element_id is not null
5808: l_return_status);
5809:
5810: -- dbms_output.put_line('Output of element class hierarchy = '||l_proc_executed);
5811: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5813: END IF;
5814: ---5090002 retro parent element.
5815: if g_retro_parent_element_id is not null
5816: and l_proc_executed = 'FALSE' then
5838: p_attribute8,
5839: p_attribute9,
5840: p_attribute10,
5841: l_return_status);
5842: if l_return_status <> fnd_api.g_ret_sts_success then
5843: raise fnd_api.g_exc_unexpected_error;
5844: end if;
5845: end if;
5846:
5839: p_attribute9,
5840: p_attribute10,
5841: l_return_status);
5842: if l_return_status <> fnd_api.g_ret_sts_success then
5843: raise fnd_api.g_exc_unexpected_error;
5844: end if;
5845: end if;
5846:
5847:
5875: l_return_status);
5876:
5877: -- dbms_output.put_line('The output of assignment hierarchy = '||l_proc_executed);
5878:
5879: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5880: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5881: END IF;
5882:
5883:
5876:
5877: -- dbms_output.put_line('The output of assignment hierarchy = '||l_proc_executed);
5878:
5879: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5880: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5881: END IF;
5882:
5883:
5884: IF l_proc_executed = 'FALSE' THEN
5911: END IF;
5912:
5913: -- dbms_output.put_line('The output of org labor = '||l_proc_executed);
5914:
5915: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5917: END IF;
5918:
5919: IF l_proc_executed = 'FALSE' THEN
5912:
5913: -- dbms_output.put_line('The output of org labor = '||l_proc_executed);
5914:
5915: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5917: END IF;
5918:
5919: IF l_proc_executed = 'FALSE' THEN
5920: IF l_org_def_account = 'Y' THEN
5945:
5946: END IF;
5947:
5948: -- dbms_output.put_line('The output of default account = '||l_proc_executed);
5949: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5951: END IF;
5952:
5953: IF l_proc_executed = 'FALSE' THEN
5946: END IF;
5947:
5948: -- dbms_output.put_line('The output of default account = '||l_proc_executed);
5949: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5951: END IF;
5952:
5953: IF l_proc_executed = 'FALSE' THEN
5954: suspense_account (
5969: p_set_of_books_id,
5970: NULL, --- for autopop perf. patch
5971: l_return_status);
5972:
5973: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5974: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5975: END IF;
5976:
5977: END IF; -- suspense account
5970: NULL, --- for autopop perf. patch
5971: l_return_status);
5972:
5973: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5974: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5975: END IF;
5976:
5977: END IF; -- suspense account
5978: END IF; -- default account
6035: -- dbms_output.put_line(' before call to fill_psb_array g_sub_line_id = ' || g_sub_line_id);
6036: fill_psb_array(g_sub_line_id);
6037: end if;
6038:
6039: p_return_status := FND_API.G_RET_STS_SUCCESS;
6040:
6041: EXCEPTION
6042: WHEN FND_API.G_EXC_ERROR THEN
6043: -- dbms_output.put_line('error occured d = 1');
6038:
6039: p_return_status := FND_API.G_RET_STS_SUCCESS;
6040:
6041: EXCEPTION
6042: WHEN FND_API.G_EXC_ERROR THEN
6043: -- dbms_output.put_line('error occured d = 1');
6044: g_error_api_path := SUBSTR('GET DISTRIBUTION LINES:'||g_error_api_path,1,230);
6045: p_return_status := FND_API.G_RET_STS_ERROR;
6046:
6041: EXCEPTION
6042: WHEN FND_API.G_EXC_ERROR THEN
6043: -- dbms_output.put_line('error occured d = 1');
6044: g_error_api_path := SUBSTR('GET DISTRIBUTION LINES:'||g_error_api_path,1,230);
6045: p_return_status := FND_API.G_RET_STS_ERROR;
6046:
6047:
6048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6049: -- dbms_output.put_line('error occured d ='||sqlerrm);
6044: g_error_api_path := SUBSTR('GET DISTRIBUTION LINES:'||g_error_api_path,1,230);
6045: p_return_status := FND_API.G_RET_STS_ERROR;
6046:
6047:
6048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6049: -- dbms_output.put_line('error occured d ='||sqlerrm);
6050: -- dbms_output.put_line('error occured d = 2');
6051: g_error_api_path := SUBSTR('GET_DISTRIBUTION LINES :'||g_error_api_path,1,230);
6052: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6049: -- dbms_output.put_line('error occured d ='||sqlerrm);
6050: -- dbms_output.put_line('error occured d = 2');
6051: g_error_api_path := SUBSTR('GET_DISTRIBUTION LINES :'||g_error_api_path,1,230);
6052: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6053:
6054: WHEN OTHERS THEN
6055: -- dbms_output.put_line('error occured d ='||sqlerrm);
6056: g_error_api_path := SUBSTR('GET_DISTRIBUTION LINES:'||g_error_api_path,1,230);
6060: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
6061: l_api_name);
6062: end if; */
6063:
6064: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6065:
6066: end Get_Distribution_Lines;
6067:
6068:
6210:
6211: --#fnd_file.put_line(fnd_file.log,'autopop status='|| l_auto_pop_status);
6212: --insert into psp_stout values(1, 'after autopop call');
6213:
6214: IF (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
6215: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) THEN
6216: --dbms_output.put_line('autopop returned an error ');
6217: IF l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6218:
6211: --#fnd_file.put_line(fnd_file.log,'autopop status='|| l_auto_pop_status);
6212: --insert into psp_stout values(1, 'after autopop call');
6213:
6214: IF (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
6215: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) THEN
6216: --dbms_output.put_line('autopop returned an error ');
6217: IF l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6218:
6219: if l_acct_type ='N' then
6213:
6214: IF (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
6215: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) THEN
6216: --dbms_output.put_line('autopop returned an error ');
6217: IF l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6218:
6219: if l_acct_type ='N' then
6220: l_auto_status := 'AUTO_POP_NA_ERROR';
6221: else
6222: -- new code for expenditure type error as part of autopop performance patch
6223: l_auto_status :='AUTO_POP_EXP_ERROR';
6224: end if;
6225:
6226: ELSIF l_auto_pop_status = FND_API.G_RET_STS_ERROR THEN
6227: l_auto_status := 'AUTO_POP_NO_VALUE';
6228: END IF;
6229:
6230: open dist_line_psl_cur(autopop_exc_rec.payroll_sub_line_id, autopop_exc_rec.schedule_line_id);
6360: p_set_of_books_id,
6361: l_dist_line_id,
6362: l_return_status);
6363:
6364: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6366: END IF;
6367:
6368: -- end if;
6361: l_dist_line_id,
6362: l_return_status);
6363:
6364: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6366: END IF;
6367:
6368: -- end if;
6369: -- end loop;
6538: ret_gl_code_combination_id => l_new_gl_code_combination_id,
6539: retcode => l_auto_pop_status);
6540:
6541: --insert into psp_stout values(1, 'after autopop call');
6542: IF (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
6543: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) THEN
6544: IF l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6545:
6546: if l_acct_type='N' then
6539: retcode => l_auto_pop_status);
6540:
6541: --insert into psp_stout values(1, 'after autopop call');
6542: IF (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
6543: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) THEN
6544: IF l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6545:
6546: if l_acct_type='N' then
6547: l_auto_status := 'AUTO_POP_NA_ERROR';
6540:
6541: --insert into psp_stout values(1, 'after autopop call');
6542: IF (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
6543: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) THEN
6544: IF l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6545:
6546: if l_acct_type='N' then
6547: l_auto_status := 'AUTO_POP_NA_ERROR';
6548: else
6551: -- new code for autopop error for expenditure type
6552:
6553: end if;
6554:
6555: ELSIF l_auto_pop_status = FND_API.G_RET_STS_ERROR THEN
6556: l_auto_status := 'AUTO_POP_NO_VALUE';
6557: END IF;
6558:
6559: open dist_line_odls_cur(autopop_odls_rec.payroll_sub_line_id, autopop_odls_rec.org_schedule_id);
6707: p_set_of_books_id,
6708: l_dist_line_id,
6709: l_return_status);
6710:
6711: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6713: END IF;
6714:
6715: -- end if; --
6708: l_dist_line_id,
6709: l_return_status);
6710:
6711: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6713: END IF;
6714:
6715: -- end if; --
6716: -- end loop;
6837:
6838: l_description := l_description||'#;';
6839:
6840: p_description := l_description;
6841: p_return_status := FND_API.G_RET_STS_SUCCESS;
6842:
6843: Exception
6844: WHEN OTHERS THEN
6845: p_return_status := FND_API.G_RET_STS_ERROR;
6841: p_return_status := FND_API.G_RET_STS_SUCCESS;
6842:
6843: Exception
6844: WHEN OTHERS THEN
6845: p_return_status := FND_API.G_RET_STS_ERROR;
6846: END;
6847: --- NIH Salary Cap enhancement.
6848: Procedure apply_salary_cap(p_payroll_control_id in integer,
6849: p_currency_code in varchar2,
7468: check_excess_poeta_rec.set_of_books_id,
7469: check_excess_poeta_rec.distribution_line_id,
7470: l_return_status);
7471:
7472: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7474: END IF;
7475: END IF;
7476: end if;
7469: check_excess_poeta_rec.distribution_line_id,
7470: l_return_status);
7471:
7472: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7474: END IF;
7475: END IF;
7476: end if;
7477: close check_excess_poeta;
7638: ret_expenditure_type => l_new_expenditure_type,
7639: ret_gl_code_combination_id => l_new_gl_code_combination_id,
7640: retcode => l_auto_pop_status);
7641:
7642: IF (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
7643: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) THEN
7644: IF l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7645: if l_acct_type ='N' then
7646: l_auto_status := 'AUTO_POP_NA_ERROR';
7639: ret_gl_code_combination_id => l_new_gl_code_combination_id,
7640: retcode => l_auto_pop_status);
7641:
7642: IF (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
7643: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) THEN
7644: IF l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7645: if l_acct_type ='N' then
7646: l_auto_status := 'AUTO_POP_NA_ERROR';
7647: else
7640: retcode => l_auto_pop_status);
7641:
7642: IF (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
7643: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) THEN
7644: IF l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7645: if l_acct_type ='N' then
7646: l_auto_status := 'AUTO_POP_NA_ERROR';
7647: else
7648: l_auto_status :='AUTO_POP_EXP_ERROR';
7646: l_auto_status := 'AUTO_POP_NA_ERROR';
7647: else
7648: l_auto_status :='AUTO_POP_EXP_ERROR';
7649: end if;
7650: ELSIF l_auto_pop_status = FND_API.G_RET_STS_ERROR THEN
7651: l_auto_status := 'AUTO_POP_NO_VALUE';
7652: END IF;
7653:
7654: open dist_line_exc_cur(autopop_exc_rec.payroll_sub_line_id,
7757: p_set_of_books_id,
7758: l_dist_line_id,
7759: l_return_status);
7760:
7761: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7763: END IF;
7764:
7765: else -- linkage status is successful
7758: l_dist_line_id,
7759: l_return_status);
7760:
7761: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7763: END IF;
7764:
7765: else -- linkage status is successful
7766:
8088: ret_gl_code_combination_id => l_new_gl_code_combination_id,
8089: retcode => l_auto_pop_status);
8090: ---fnd_file.put_line(fnd_file.log, 'Generic_account_autopop.. Suspense.. After autopop call');
8091:
8092: IF (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
8093: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) THEN
8094: IF l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8095: if l_acct_type ='N' then
8096: l_auto_status := 'AUTO_POP_NA_ERROR';
8089: retcode => l_auto_pop_status);
8090: ---fnd_file.put_line(fnd_file.log, 'Generic_account_autopop.. Suspense.. After autopop call');
8091:
8092: IF (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
8093: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) THEN
8094: IF l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8095: if l_acct_type ='N' then
8096: l_auto_status := 'AUTO_POP_NA_ERROR';
8097: else
8090: ---fnd_file.put_line(fnd_file.log, 'Generic_account_autopop.. Suspense.. After autopop call');
8091:
8092: IF (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
8093: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) THEN
8094: IF l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8095: if l_acct_type ='N' then
8096: l_auto_status := 'AUTO_POP_NA_ERROR';
8097: else
8098: l_auto_status :='AUTO_POP_EXP_ERROR';
8096: l_auto_status := 'AUTO_POP_NA_ERROR';
8097: else
8098: l_auto_status :='AUTO_POP_EXP_ERROR';
8099: end if;
8100: ELSIF l_auto_pop_status = FND_API.G_RET_STS_ERROR THEN
8101: l_auto_status := 'AUTO_POP_NO_VALUE';
8102: END IF;
8103:
8104: ----fnd_file.put_line(fnd_file.log,'error in autopop main in generic_account_autopop code='||l_auto_status||' sched type='||p_Schedule_type);
8148: p_business_group_id,
8149: p_set_of_books_id,
8150: l_dist_line_id,
8151: l_return_status);
8152: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8154: END IF;
8155: end if;
8156: end if;
8149: p_set_of_books_id,
8150: l_dist_line_id,
8151: l_return_status);
8152: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8154: END IF;
8155: end if;
8156: end if;
8157: end loop;
8238: p_set_of_books_id,
8239: l_dist_line_id,
8240: l_return_status);
8241:
8242: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8243: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8244: END IF;
8245: end if;
8246: else -- linkage status is successful
8239: l_dist_line_id,
8240: l_return_status);
8241:
8242: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8243: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8244: END IF;
8245: end if;
8246: else -- linkage status is successful
8247: if p_schedule_type = 'SUSPENSE' then
8648: end loop;
8649:
8650: if l_error_flag = 'Y' then
8651: psp_message_s.print_error(p_mode => FND_FILE.LOG,
8652: p_print_header => FND_API.G_TRUE);
8653: rollback;
8654: raise fnd_api.g_exc_unexpected_error;
8655: end if;
8656: end if;
8650: if l_error_flag = 'Y' then
8651: psp_message_s.print_error(p_mode => FND_FILE.LOG,
8652: p_print_header => FND_API.G_TRUE);
8653: rollback;
8654: raise fnd_api.g_exc_unexpected_error;
8655: end if;
8656: end if;
8657: g_time_period_id := nvl(g_time_period_id, -999);
8658: g_payroll_id := nvl(g_payroll_id, -999);
8669: --- fnd_file.put_line(fnd_file.log,' sqlstr ='||sqlstr);
8670: else
8671: fnd_msg_pub.add_exc_msg('PSB_LABOR_DIST','RANGE_CODE-NO RECORDS');
8672: psp_message_s.print_error(p_mode => FND_FILE.LOG,
8673: p_print_header => FND_API.G_TRUE);
8674: raise fnd_api.g_exc_unexpected_error;
8675: end if;
8676:
8677:
8670: else
8671: fnd_msg_pub.add_exc_msg('PSB_LABOR_DIST','RANGE_CODE-NO RECORDS');
8672: psp_message_s.print_error(p_mode => FND_FILE.LOG,
8673: p_print_header => FND_API.G_TRUE);
8674: raise fnd_api.g_exc_unexpected_error;
8675: end if;
8676:
8677:
8678: end range_code;