382: p_last_update_login => FND_GLOBAL.LOGIN_ID,
383: p_created_by => FND_GLOBAL.USER_ID,
384: p_creation_date => sysdate);
385:
386: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
387: raise FND_API.G_EXC_ERROR;
388: end if;
389:
390: end;
383: p_created_by => FND_GLOBAL.USER_ID,
384: p_creation_date => sysdate);
385:
386: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
387: raise FND_API.G_EXC_ERROR;
388: end if;
389:
390: end;
391: else
440: p_last_update_date => sysdate,
441: p_last_updated_by => FND_GLOBAL.USER_ID,
442: p_last_update_login => FND_GLOBAL.LOGIN_ID);
443:
444: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
445: raise FND_API.G_EXC_ERROR;
446: end if;
447:
448: end;
441: p_last_updated_by => FND_GLOBAL.USER_ID,
442: p_last_update_login => FND_GLOBAL.LOGIN_ID);
443:
444: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
445: raise FND_API.G_EXC_ERROR;
446: end if;
447:
448: end;
449: end if;
450:
451: end loop;
452:
453: -- Initialize API return status to success
454: p_return_status := FND_API.G_RET_STS_SUCCESS;
455:
456: EXCEPTION
457:
458: when FND_API.G_EXC_ERROR then
454: p_return_status := FND_API.G_RET_STS_SUCCESS;
455:
456: EXCEPTION
457:
458: when FND_API.G_EXC_ERROR then
459: p_return_status := FND_API.G_RET_STS_ERROR;
460:
461: when FND_API.G_EXC_UNEXPECTED_ERROR then
462: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
455:
456: EXCEPTION
457:
458: when FND_API.G_EXC_ERROR then
459: p_return_status := FND_API.G_RET_STS_ERROR;
460:
461: when FND_API.G_EXC_UNEXPECTED_ERROR then
462: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
463:
457:
458: when FND_API.G_EXC_ERROR then
459: p_return_status := FND_API.G_RET_STS_ERROR;
460:
461: when FND_API.G_EXC_UNEXPECTED_ERROR then
462: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
463:
464: when OTHERS then
465: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
458: when FND_API.G_EXC_ERROR then
459: p_return_status := FND_API.G_RET_STS_ERROR;
460:
461: when FND_API.G_EXC_UNEXPECTED_ERROR then
462: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
463:
464: when OTHERS then
465: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
466:
461: when FND_API.G_EXC_UNEXPECTED_ERROR then
462: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
463:
464: when OTHERS then
465: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
466:
467: END Upload_Attribute_Values;
468:
469: /* ----------------------------------------------------------------------- */
651: p_source_data_extract_id => p_source_data_extract_id,
652: p_source_business_group_id => l_business_group_id,
653: p_target_data_extract_id => p_target_data_extract_id);
654:
655: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
656: raise FND_API.G_EXC_ERROR;
657: end if;
658: Bug No 2579818 End */
659:
652: p_source_business_group_id => l_business_group_id,
653: p_target_data_extract_id => p_target_data_extract_id);
654:
655: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
656: raise FND_API.G_EXC_ERROR;
657: end if;
658: Bug No 2579818 End */
659:
660: for c_elem_rec in c_elem loop
721: p_last_update_login => FND_GLOBAL.LOGIN_ID,
722: p_created_by => FND_GLOBAL.USER_ID,
723: p_creation_date => sysdate);
724:
725: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
726: raise FND_API.G_EXC_ERROR;
727: end if;
728:
729: if c_elem_rec.option_flag = 'Y' then
722: p_created_by => FND_GLOBAL.USER_ID,
723: p_creation_date => sysdate);
724:
725: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
726: raise FND_API.G_EXC_ERROR;
727: end if;
728:
729: if c_elem_rec.option_flag = 'Y' then
730: begin
750: p_last_update_login => FND_GLOBAL.LOGIN_ID,
751: p_created_by => FND_GLOBAL.USER_ID,
752: p_creation_date => sysdate);
753:
754: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
755: raise FND_API.G_EXC_ERROR;
756: end if;
757:
758: for c_elemrates_rec in c_elemrates (c_elem_rec.pay_element_id, c_elemoptions_rec.pay_element_option_id) loop
751: p_created_by => FND_GLOBAL.USER_ID,
752: p_creation_date => sysdate);
753:
754: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
755: raise FND_API.G_EXC_ERROR;
756: end if;
757:
758: for c_elemrates_rec in c_elemrates (c_elem_rec.pay_element_id, c_elemoptions_rec.pay_element_option_id) loop
759: PSB_PAY_ELEMENT_RATES_PVT.Modify_Element_Rates
774: p_mid_value => c_elemrates_rec.mid_value,
775: p_minimum_value => c_elemrates_rec.minimum_value,
776: p_currency_code => c_elemrates_rec.currency_code);
777:
778: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
779: raise FND_API.G_EXC_ERROR;
780: end if;
781:
782: end loop;
775: p_minimum_value => c_elemrates_rec.minimum_value,
776: p_currency_code => c_elemrates_rec.currency_code);
777:
778: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
779: raise FND_API.G_EXC_ERROR;
780: end if;
781:
782: end loop;
783:
807: p_mid_value => c_elemrates_rec.mid_value,
808: p_minimum_value => c_elemrates_rec.minimum_value,
809: p_currency_code => c_elemrates_rec.currency_code);
810:
811: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
812: raise FND_API.G_EXC_ERROR;
813: end if;
814:
815: end loop;
808: p_minimum_value => c_elemrates_rec.minimum_value,
809: p_currency_code => c_elemrates_rec.currency_code);
810:
811: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
812: raise FND_API.G_EXC_ERROR;
813: end if;
814:
815: end loop;
816:
838: p_last_update_login => FND_GLOBAL.LOGIN_ID,
839: p_created_by => FND_GLOBAL.USER_ID,
840: p_creation_date => sysdate);
841:
842: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
843: raise FND_API.G_EXC_ERROR;
844: end if;
845:
846: -- Upload all Set Relations for the Position Set Group
839: p_created_by => FND_GLOBAL.USER_ID,
840: p_creation_date => sysdate);
841:
842: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
843: raise FND_API.G_EXC_ERROR;
844: end if;
845:
846: -- Upload all Set Relations for the Position Set Group
847:
886: p_last_update_login => FND_GLOBAL.LOGIN_ID,
887: p_created_by => FND_GLOBAL.USER_ID,
888: p_creation_date => sysdate);
889:
890: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
891: raise FND_API.G_EXC_ERROR;
892: end if;
893:
894: for c_possetline_rec in c_possetline (c_posset_rec.account_position_set_id) loop
887: p_created_by => FND_GLOBAL.USER_ID,
888: p_creation_date => sysdate);
889:
890: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
891: raise FND_API.G_EXC_ERROR;
892: end if;
893:
894: for c_possetline_rec in c_possetline (c_posset_rec.account_position_set_id) loop
895:
985: p_last_update_login => FND_GLOBAL.LOGIN_ID,
986: p_created_by => FND_GLOBAL.USER_ID,
987: p_creation_date => sysdate);
988:
989: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
990: raise FND_API.G_EXC_ERROR;
991: end if;
992:
993: for c_possetlineval_rec in c_possetlineval (c_possetline_rec.line_sequence_id) loop
986: p_created_by => FND_GLOBAL.USER_ID,
987: p_creation_date => sysdate);
988:
989: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
990: raise FND_API.G_EXC_ERROR;
991: end if;
992:
993: for c_possetlineval_rec in c_possetlineval (c_possetline_rec.line_sequence_id) loop
994:
1015: p_last_update_login => FND_GLOBAL.LOGIN_ID,
1016: p_created_by => FND_GLOBAL.USER_ID,
1017: p_creation_date => sysdate);
1018:
1019: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1020: raise FND_API.G_EXC_ERROR;
1021: end if;
1022:
1023: end loop; /* Loop for Position Set Line Val */
1016: p_created_by => FND_GLOBAL.USER_ID,
1017: p_creation_date => sysdate);
1018:
1019: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1020: raise FND_API.G_EXC_ERROR;
1021: end if;
1022:
1023: end loop; /* Loop for Position Set Line Val */
1024:
1132: p_last_update_login => FND_GLOBAL.LOGIN_ID,
1133: p_created_by => FND_GLOBAL.USER_ID,
1134: p_creation_date => sysdate);
1135:
1136: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1137: raise FND_API.G_EXC_ERROR;
1138: end if;
1139:
1140: for c_possetlineval_rec in c_possetlineval (c_possetline_rec.line_sequence_id) loop
1133: p_created_by => FND_GLOBAL.USER_ID,
1134: p_creation_date => sysdate);
1135:
1136: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1137: raise FND_API.G_EXC_ERROR;
1138: end if;
1139:
1140: for c_possetlineval_rec in c_possetlineval (c_possetline_rec.line_sequence_id) loop
1141:
1162: p_last_update_login => FND_GLOBAL.LOGIN_ID,
1163: p_created_by => FND_GLOBAL.USER_ID,
1164: p_creation_date => sysdate);
1165:
1166: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1167: raise FND_API.G_EXC_ERROR;
1168: end if;
1169:
1170: end loop;
1163: p_created_by => FND_GLOBAL.USER_ID,
1164: p_creation_date => sysdate);
1165:
1166: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1167: raise FND_API.G_EXC_ERROR;
1168: end if;
1169:
1170: end loop;
1171:
1206: p_last_update_login => FND_GLOBAL.LOGIN_ID,
1207: p_created_by => FND_GLOBAL.USER_ID,
1208: p_creation_date => sysdate);
1209:
1210: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1211: raise FND_API.G_EXC_ERROR;
1212: end if;
1213:
1214: end;
1207: p_created_by => FND_GLOBAL.USER_ID,
1208: p_creation_date => sysdate);
1209:
1210: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1211: raise FND_API.G_EXC_ERROR;
1212: end if;
1213:
1214: end;
1215: end if;
1245: p_last_update_date => sysdate,
1246: p_last_updated_by => FND_GLOBAL.USER_ID,
1247: p_last_update_login => FND_GLOBAL.LOGIN_ID);
1248:
1249: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1250: raise FND_API.G_EXC_ERROR;
1251: end if;
1252:
1253: end;
1246: p_last_updated_by => FND_GLOBAL.USER_ID,
1247: p_last_update_login => FND_GLOBAL.LOGIN_ID);
1248:
1249: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1250: raise FND_API.G_EXC_ERROR;
1251: end if;
1252:
1253: end;
1254: end if;
1292: p_last_update_login => FND_GLOBAL.LOGIN_ID,
1293: p_created_by => FND_GLOBAL.USER_ID,
1294: p_creation_date => sysdate);
1295:
1296: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1297: raise FND_API.G_EXC_ERROR;
1298: end if;
1299:
1300: end loop; /* Position Sets */
1293: p_created_by => FND_GLOBAL.USER_ID,
1294: p_creation_date => sysdate);
1295:
1296: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1297: raise FND_API.G_EXC_ERROR;
1298: end if;
1299:
1300: end loop; /* Position Sets */
1301:
1356: p_last_update_login => FND_GLOBAL.LOGIN_ID,
1357: p_created_by => FND_GLOBAL.USER_ID,
1358: p_creation_date => sysdate);
1359:
1360: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1361: raise FND_API.G_EXC_ERROR;
1362: end if;
1363:
1364: end loop; /* Element Distribution */
1357: p_created_by => FND_GLOBAL.USER_ID,
1358: p_creation_date => sysdate);
1359:
1360: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1361: raise FND_API.G_EXC_ERROR;
1362: end if;
1363:
1364: end loop; /* Element Distribution */
1365:
1414: P_LAST_UPDATE_DATE => sysdate,
1415: P_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
1416: P_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID);
1417:
1418: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1419: raise FND_API.G_EXC_ERROR;
1420: end if;
1421:
1422: if c_elem_rec.option_flag = 'Y' then
1415: P_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
1416: P_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID);
1417:
1418: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1419: raise FND_API.G_EXC_ERROR;
1420: end if;
1421:
1422: if c_elem_rec.option_flag = 'Y' then
1423: begin
1457: p_last_update_login => FND_GLOBAL.LOGIN_ID,
1458: p_created_by => FND_GLOBAL.USER_ID,
1459: p_creation_date => sysdate);
1460:
1461: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1462: raise FND_API.G_EXC_ERROR;
1463: end if;
1464:
1465: for c_elemrates_rec in c_elemrates(c_elem_rec.pay_element_id, c_elemoptions_rec.pay_element_option_id) loop
1458: p_created_by => FND_GLOBAL.USER_ID,
1459: p_creation_date => sysdate);
1460:
1461: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1462: raise FND_API.G_EXC_ERROR;
1463: end if;
1464:
1465: for c_elemrates_rec in c_elemrates(c_elem_rec.pay_element_id, c_elemoptions_rec.pay_element_option_id) loop
1466: PSB_PAY_ELEMENT_RATES_PVT.Modify_Element_Rates
1481: p_mid_value => c_elemrates_rec.mid_value,
1482: p_minimum_value => c_elemrates_rec.minimum_value,
1483: p_currency_code => c_elemrates_rec.currency_code);
1484:
1485: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1486: raise FND_API.G_EXC_ERROR;
1487: end if;
1488:
1489: end loop;
1482: p_minimum_value => c_elemrates_rec.minimum_value,
1483: p_currency_code => c_elemrates_rec.currency_code);
1484:
1485: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1486: raise FND_API.G_EXC_ERROR;
1487: end if;
1488:
1489: end loop;
1490:
1517: p_mid_value => c_elemrates_rec.mid_value,
1518: p_minimum_value => c_elemrates_rec.minimum_value,
1519: p_currency_code => c_elemrates_rec.currency_code);
1520:
1521: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1522: raise FND_API.G_EXC_ERROR;
1523: end if;
1524:
1525: end loop;
1518: p_minimum_value => c_elemrates_rec.minimum_value,
1519: p_currency_code => c_elemrates_rec.currency_code);
1520:
1521: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1522: raise FND_API.G_EXC_ERROR;
1523: end if;
1524:
1525: end loop;
1526:
1532:
1533: end loop;
1534:
1535: -- Initialize API return status to success
1536: p_return_status := FND_API.G_RET_STS_SUCCESS;
1537:
1538: EXCEPTION
1539:
1540: when FND_API.G_EXC_ERROR then
1536: p_return_status := FND_API.G_RET_STS_SUCCESS;
1537:
1538: EXCEPTION
1539:
1540: when FND_API.G_EXC_ERROR then
1541: p_return_status := FND_API.G_RET_STS_ERROR;
1542:
1543: when FND_API.G_EXC_UNEXPECTED_ERROR then
1544: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1537:
1538: EXCEPTION
1539:
1540: when FND_API.G_EXC_ERROR then
1541: p_return_status := FND_API.G_RET_STS_ERROR;
1542:
1543: when FND_API.G_EXC_UNEXPECTED_ERROR then
1544: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1545:
1539:
1540: when FND_API.G_EXC_ERROR then
1541: p_return_status := FND_API.G_RET_STS_ERROR;
1542:
1543: when FND_API.G_EXC_UNEXPECTED_ERROR then
1544: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1545:
1546: when OTHERS then
1547: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1540: when FND_API.G_EXC_ERROR then
1541: p_return_status := FND_API.G_RET_STS_ERROR;
1542:
1543: when FND_API.G_EXC_UNEXPECTED_ERROR then
1544: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1545:
1546: when OTHERS then
1547: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1548:
1543: when FND_API.G_EXC_UNEXPECTED_ERROR then
1544: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1545:
1546: when OTHERS then
1547: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1548:
1549: END Upload_Element;
1550:
1551: /* ----------------------------------------------------------------------- */
1692: p_last_update_login => FND_GLOBAL.LOGIN_ID,
1693: p_created_by => FND_GLOBAL.USER_ID,
1694: p_creation_date => sysdate);
1695:
1696: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1697: raise FND_API.G_EXC_ERROR;
1698: end if;
1699:
1700: if c_elem_rec.option_flag = 'Y' then
1693: p_created_by => FND_GLOBAL.USER_ID,
1694: p_creation_date => sysdate);
1695:
1696: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1697: raise FND_API.G_EXC_ERROR;
1698: end if;
1699:
1700: if c_elem_rec.option_flag = 'Y' then
1701: begin
1721: p_last_update_login => FND_GLOBAL.LOGIN_ID,
1722: p_created_by => FND_GLOBAL.USER_ID,
1723: p_creation_date => sysdate);
1724:
1725: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1726: raise FND_API.G_EXC_ERROR;
1727: end if;
1728:
1729: for c_elemrates_rec in c_elemrates (c_elem_rec.pay_element_id, c_elemoptions_rec.pay_element_option_id) loop
1722: p_created_by => FND_GLOBAL.USER_ID,
1723: p_creation_date => sysdate);
1724:
1725: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1726: raise FND_API.G_EXC_ERROR;
1727: end if;
1728:
1729: for c_elemrates_rec in c_elemrates (c_elem_rec.pay_element_id, c_elemoptions_rec.pay_element_option_id) loop
1730: PSB_PAY_ELEMENT_RATES_PVT.Modify_Element_Rates
1745: p_mid_value => c_elemrates_rec.mid_value,
1746: p_minimum_value => c_elemrates_rec.minimum_value,
1747: p_currency_code => c_elemrates_rec.currency_code);
1748:
1749: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1750: raise FND_API.G_EXC_ERROR;
1751: end if;
1752:
1753: end loop;
1746: p_minimum_value => c_elemrates_rec.minimum_value,
1747: p_currency_code => c_elemrates_rec.currency_code);
1748:
1749: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1750: raise FND_API.G_EXC_ERROR;
1751: end if;
1752:
1753: end loop;
1754:
1778: p_mid_value => c_elemrates_rec.mid_value,
1779: p_minimum_value => c_elemrates_rec.minimum_value,
1780: p_currency_code => c_elemrates_rec.currency_code);
1781:
1782: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1783: raise FND_API.G_EXC_ERROR;
1784: end if;
1785:
1786: end loop;
1779: p_minimum_value => c_elemrates_rec.minimum_value,
1780: p_currency_code => c_elemrates_rec.currency_code);
1781:
1782: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1783: raise FND_API.G_EXC_ERROR;
1784: end if;
1785:
1786: end loop;
1787:
1841: P_LAST_UPDATE_DATE => sysdate,
1842: P_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
1843: P_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID);
1844:
1845: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1846: raise FND_API.G_EXC_ERROR;
1847: end if;
1848:
1849: if c_elem_rec.option_flag = 'Y' then
1842: P_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
1843: P_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID);
1844:
1845: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1846: raise FND_API.G_EXC_ERROR;
1847: end if;
1848:
1849: if c_elem_rec.option_flag = 'Y' then
1850: begin
1884: p_last_update_login => FND_GLOBAL.LOGIN_ID,
1885: p_created_by => FND_GLOBAL.USER_ID,
1886: p_creation_date => sysdate);
1887:
1888: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1889: raise FND_API.G_EXC_ERROR;
1890: end if;
1891:
1892: for c_elemrates_rec in c_elemrates (c_elem_rec.pay_element_id, c_elemoptions_rec.pay_element_option_id) loop
1885: p_created_by => FND_GLOBAL.USER_ID,
1886: p_creation_date => sysdate);
1887:
1888: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1889: raise FND_API.G_EXC_ERROR;
1890: end if;
1891:
1892: for c_elemrates_rec in c_elemrates (c_elem_rec.pay_element_id, c_elemoptions_rec.pay_element_option_id) loop
1893:
1909: p_mid_value => c_elemrates_rec.mid_value,
1910: p_minimum_value => c_elemrates_rec.minimum_value,
1911: p_currency_code => c_elemrates_rec.currency_code);
1912:
1913: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1914: raise FND_API.G_EXC_ERROR;
1915: end if;
1916:
1917: end loop;
1910: p_minimum_value => c_elemrates_rec.minimum_value,
1911: p_currency_code => c_elemrates_rec.currency_code);
1912:
1913: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1914: raise FND_API.G_EXC_ERROR;
1915: end if;
1916:
1917: end loop;
1918:
1940: p_mid_value => c_elemrates_rec.mid_value,
1941: p_minimum_value => c_elemrates_rec.minimum_value,
1942: p_currency_code => c_elemrates_rec.currency_code);
1943:
1944: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1945: raise FND_API.G_EXC_ERROR;
1946: end if;
1947:
1948: end loop;
1941: p_minimum_value => c_elemrates_rec.minimum_value,
1942: p_currency_code => c_elemrates_rec.currency_code);
1943:
1944: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1945: raise FND_API.G_EXC_ERROR;
1946: end if;
1947:
1948: end loop;
1949:
1976: p_mid_value => c_elemrates_rec.mid_value,
1977: p_minimum_value => c_elemrates_rec.minimum_value,
1978: p_currency_code => c_elemrates_rec.currency_code);
1979:
1980: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1981: raise FND_API.G_EXC_ERROR;
1982: end if;
1983:
1984: end loop;
1977: p_minimum_value => c_elemrates_rec.minimum_value,
1978: p_currency_code => c_elemrates_rec.currency_code);
1979:
1980: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1981: raise FND_API.G_EXC_ERROR;
1982: end if;
1983:
1984: end loop;
1985:
2005:
2006: end loop;
2007:
2008: -- Initialize API return status to success
2009: p_return_status := FND_API.G_RET_STS_SUCCESS;
2010:
2011: EXCEPTION
2012:
2013: when FND_API.G_EXC_ERROR then
2009: p_return_status := FND_API.G_RET_STS_SUCCESS;
2010:
2011: EXCEPTION
2012:
2013: when FND_API.G_EXC_ERROR then
2014: p_return_status := FND_API.G_RET_STS_ERROR;
2015:
2016: when FND_API.G_EXC_UNEXPECTED_ERROR then
2017: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2010:
2011: EXCEPTION
2012:
2013: when FND_API.G_EXC_ERROR then
2014: p_return_status := FND_API.G_RET_STS_ERROR;
2015:
2016: when FND_API.G_EXC_UNEXPECTED_ERROR then
2017: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2018:
2012:
2013: when FND_API.G_EXC_ERROR then
2014: p_return_status := FND_API.G_RET_STS_ERROR;
2015:
2016: when FND_API.G_EXC_UNEXPECTED_ERROR then
2017: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2018:
2019: when OTHERS then
2020: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2013: when FND_API.G_EXC_ERROR then
2014: p_return_status := FND_API.G_RET_STS_ERROR;
2015:
2016: when FND_API.G_EXC_UNEXPECTED_ERROR then
2017: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2018:
2019: when OTHERS then
2020: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2021:
2016: when FND_API.G_EXC_UNEXPECTED_ERROR then
2017: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2018:
2019: when OTHERS then
2020: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2021:
2022: END Upload_Elements;
2023:
2024: /* ----------------------------------------------------------------------- */
2121:
2122: close C_Emp_All;
2123:
2124: -- Initialize API return status to success
2125: p_return_status := FND_API.G_RET_STS_SUCCESS;
2126:
2127: EXCEPTION
2128:
2129: when FND_API.G_EXC_ERROR then
2125: p_return_status := FND_API.G_RET_STS_SUCCESS;
2126:
2127: EXCEPTION
2128:
2129: when FND_API.G_EXC_ERROR then
2130: if C_Emp_All%ISOPEN then
2131: close C_Emp_All;
2132: end if;
2133: p_return_status := FND_API.G_RET_STS_ERROR;
2129: when FND_API.G_EXC_ERROR then
2130: if C_Emp_All%ISOPEN then
2131: close C_Emp_All;
2132: end if;
2133: p_return_status := FND_API.G_RET_STS_ERROR;
2134:
2135: when FND_API.G_EXC_UNEXPECTED_ERROR then
2136: if C_Emp_All%ISOPEN then
2137: close C_Emp_All;
2131: close C_Emp_All;
2132: end if;
2133: p_return_status := FND_API.G_RET_STS_ERROR;
2134:
2135: when FND_API.G_EXC_UNEXPECTED_ERROR then
2136: if C_Emp_All%ISOPEN then
2137: close C_Emp_All;
2138: end if;
2139: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2135: when FND_API.G_EXC_UNEXPECTED_ERROR then
2136: if C_Emp_All%ISOPEN then
2137: close C_Emp_All;
2138: end if;
2139: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2140:
2141: when OTHERS then
2142: if C_Emp_All%ISOPEN then
2143: close C_Emp_All;
2141: when OTHERS then
2142: if C_Emp_All%ISOPEN then
2143: close C_Emp_All;
2144: end if;
2145: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2146:
2147: END Upload_Employees;
2148:
2149: /*For Bug No : 2434152 End*/
2160: p_input_date IN DATE
2161: ) IS
2162: l_year_index NUMBER;
2163: BEGIN
2164: x_return_status := FND_API.G_RET_STS_SUCCESS;
2165: FOR l_year_index in 1..PSB_WS_ACCT1.g_num_budget_years LOOP
2166: IF p_input_date >=
2167: PSB_WS_ACCT1.g_budget_years(l_year_index).start_date
2168: AND
2181: IF p_budget_year_start_date IS NULL
2182: /* Bug 4060926 Start */
2183: OR p_budget_year_end_date IS NULL THEN
2184: /* Bug 4060926 End */
2185: x_return_status := FND_API.G_RET_STS_ERROR;
2186: END IF;
2187: END Get_Budget_Boundaries;
2188: /* Bug 3867577 End */
2189: /* ----------------------------------------------------------------------- */
2809: p_budget_year_end_date => l_budget_year_end_date,
2810: p_input_date => l_date_val
2811: );
2812:
2813: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2814: /* Bug 4060926 Start */
2815: l_debug_info := ' Error from 1st Get_Bud_bondaries API::>'
2816: ||l_date_val||','||l_budget_year_start_date
2817: ||l_budget_year_end_date;
2815: l_debug_info := ' Error from 1st Get_Bud_bondaries API::>'
2816: ||l_date_val||','||l_budget_year_start_date
2817: ||l_budget_year_end_date;
2818: /* Bug 4060926 End */
2819: RAISE FND_API.G_EXC_ERROR;
2820: END IF;
2821:
2822: -- If current record is end dated in mid year then next
2823: -- iteration of above call will give l_budget_year_start_date as
2904: p_budget_year_end_date => l_budget_year_end_date,
2905: p_input_date => l_date_val
2906: );
2907:
2908: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2909: /* Bug 4060926 Start */
2910: l_debug_info := ' Error from 2nd Get_Bud_bondaries API::>'
2911: ||l_date_val||','||l_budget_year_start_date
2912: ||l_budget_year_end_date||','||p_position_id;
2910: l_debug_info := ' Error from 2nd Get_Bud_bondaries API::>'
2911: ||l_date_val||','||l_budget_year_start_date
2912: ||l_budget_year_end_date||','||p_position_id;
2913: /* Bug 4060926 End */
2914: RAISE FND_API.G_EXC_ERROR;
2915: END IF;
2916:
2917: SELECT PSB_POSITION_PAY_DISTR_S.NEXTVAL
2918: INTO l_distribution_id
2987: p_expenditure_organization_id => NULL,
2988: p_description => NULL
2989: );
2990:
2991: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2992: /* Bug 4060926 Start */
2993: l_debug_info := ' Error from Mod_distr API for '||p_position_id;
2994: /* Bug 4060926 End */
2995: RAISE FND_API.G_EXC_ERROR;
2991: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2992: /* Bug 4060926 Start */
2993: l_debug_info := ' Error from Mod_distr API for '||p_position_id;
2994: /* Bug 4060926 End */
2995: RAISE FND_API.G_EXC_ERROR;
2996: END IF;
2997: END LOOP;
2998:
2999: EXCEPTION
2996: END IF;
2997: END LOOP;
2998:
2999: EXCEPTION
3000: WHEN FND_API.G_EXC_ERROR THEN
3001: /* Bug 4060926 Star */
3002: FND_FILE.PUT_LINE(FND_FILE.LOG, l_debug_info);
3003: /* Bug 4060926 End */
3004: ROLLBACK TO Upload_Salary_Position;
3001: /* Bug 4060926 Star */
3002: FND_FILE.PUT_LINE(FND_FILE.LOG, l_debug_info);
3003: /* Bug 4060926 End */
3004: ROLLBACK TO Upload_Salary_Position;
3005: x_return_status := FND_API.G_RET_STS_ERROR;
3006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3007: /* Bug 4060926 Star */
3008: FND_FILE.PUT_LINE(FND_FILE.LOG, l_debug_info);
3009: /* Bug 4060926 End */
3002: FND_FILE.PUT_LINE(FND_FILE.LOG, l_debug_info);
3003: /* Bug 4060926 End */
3004: ROLLBACK TO Upload_Salary_Position;
3005: x_return_status := FND_API.G_RET_STS_ERROR;
3006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3007: /* Bug 4060926 Star */
3008: FND_FILE.PUT_LINE(FND_FILE.LOG, l_debug_info);
3009: /* Bug 4060926 End */
3010: ROLLBACK TO Upload_Salary_Position;
3007: /* Bug 4060926 Star */
3008: FND_FILE.PUT_LINE(FND_FILE.LOG, l_debug_info);
3009: /* Bug 4060926 End */
3010: ROLLBACK TO Upload_Salary_Position;
3011: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3012: WHEN OTHERS THEN
3013: /* Bug 4060926 Star */
3014: FND_FILE.PUT_LINE(FND_FILE.LOG, l_debug_info);
3015: /* Bug 4060926 End */
3013: /* Bug 4060926 Star */
3014: FND_FILE.PUT_LINE(FND_FILE.LOG, l_debug_info);
3015: /* Bug 4060926 End */
3016: ROLLBACK TO Upload_Salary_Position;
3017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3018: END Upload_Salary_Distribution;
3019: /* ----------------------------------------------------------------------- */
3020: /* Bug 3867577 End */
3021:
3302: p_attribute20 => c_positions_rec.attribute20,
3303: p_attribute_category => c_positions_rec.attribute_category,
3304: p_name => c_positions_rec.name);
3305:
3306: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3307: raise FND_API.G_EXC_ERROR;
3308: end if;
3309:
3310: -- Upload Position Attribute Assignments
3303: p_attribute_category => c_positions_rec.attribute_category,
3304: p_name => c_positions_rec.name);
3305:
3306: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3307: raise FND_API.G_EXC_ERROR;
3308: end if;
3309:
3310: -- Upload Position Attribute Assignments
3311: open c_posassign_attr(c_positions_rec.position_id);
3359: p_global_default_flag => null,
3360: p_assignment_default_rule_id => null,
3361: p_modify_flag => null);
3362:
3363: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3364: raise FND_API.G_EXC_ERROR;
3365: end if;
3366:
3367: end loop;
3360: p_assignment_default_rule_id => null,
3361: p_modify_flag => null);
3362:
3363: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3364: raise FND_API.G_EXC_ERROR;
3365: end if;
3366:
3367: end loop;
3368: exit when c_posassign_attr%NOTFOUND;
3421: p_global_default_flag => null,
3422: p_assignment_default_rule_id => null,
3423: p_modify_flag => null);
3424:
3425: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3426: raise FND_API.G_EXC_ERROR;
3427: end if;
3428:
3429: end loop;
3422: p_assignment_default_rule_id => null,
3423: p_modify_flag => null);
3424:
3425: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3426: raise FND_API.G_EXC_ERROR;
3427: end if;
3428:
3429: end loop;
3430:
3467: p_global_default_flag => null,
3468: p_assignment_default_rule_id => null,
3469: p_modify_flag => null);
3470:
3471: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3472: raise FND_API.G_EXC_ERROR;
3473: end if;
3474:
3475: end loop;
3468: p_assignment_default_rule_id => null,
3469: p_modify_flag => null);
3470:
3471: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3472: raise FND_API.G_EXC_ERROR;
3473: end if;
3474:
3475: end loop;
3476:
3510: p_flexfield_mapping_set_id => p_flex_mapping_set_id,
3511: p_mapping_mode => 'GL_POSTING');
3512:
3513: if l_mapped_ccid = 0 then
3514: raise FND_API.G_EXC_ERROR;
3515: end if;
3516:
3517: for c_posdistr_seq_rec in c_posdistr_seq loop
3518: l_distribution_id := c_posdistr_seq_rec.seq;
3541: p_expenditure_type => null,
3542: p_expenditure_organization_id => null,
3543: p_description => null);
3544:
3545: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3546: raise FND_API.G_EXC_ERROR;
3547: end if;
3548:
3549: end;
3542: p_expenditure_organization_id => null,
3543: p_description => null);
3544:
3545: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3546: raise FND_API.G_EXC_ERROR;
3547: end if;
3548:
3549: end;
3550: end if;
3572: p_to_budget_year_id => p_to_budget_year_id,
3573: p_position_exists => FALSE
3574: );
3575:
3576: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
3577: RAISE FND_API.G_EXC_ERROR;
3578: END IF;
3579: END IF;
3580:
3573: p_position_exists => FALSE
3574: );
3575:
3576: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
3577: RAISE FND_API.G_EXC_ERROR;
3578: END IF;
3579: END IF;
3580:
3581:
3611: p_expenditure_type => null,
3612: p_expenditure_organization_id => null,
3613: p_description => null);
3614:
3615: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3616: raise FND_API.G_EXC_ERROR;
3617: end if;*/
3618: /* Bug 3867577 End */
3619:
3612: p_expenditure_organization_id => null,
3613: p_description => null);
3614:
3615: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3616: raise FND_API.G_EXC_ERROR;
3617: end if;*/
3618: /* Bug 3867577 End */
3619:
3620: end;
3630:
3631: PSB_POSITIONS_PVT.UPDATE_ROW
3632: (
3633: p_api_version => 1.0,
3634: p_init_msg_lISt => FND_API.G_FALSE,
3635: p_commit => FND_API.G_FALSE,
3636: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3637: p_return_status => l_return_status,
3638: p_msg_count => l_msg_count,
3631: PSB_POSITIONS_PVT.UPDATE_ROW
3632: (
3633: p_api_version => 1.0,
3634: p_init_msg_lISt => FND_API.G_FALSE,
3635: p_commit => FND_API.G_FALSE,
3636: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3637: p_return_status => l_return_status,
3638: p_msg_count => l_msg_count,
3639: p_msg_data => l_msg_data,
3632: (
3633: p_api_version => 1.0,
3634: p_init_msg_lISt => FND_API.G_FALSE,
3635: p_commit => FND_API.G_FALSE,
3636: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3637: p_return_status => l_return_status,
3638: p_msg_count => l_msg_count,
3639: p_msg_data => l_msg_data,
3640: p_position_id => l_position_id,
3673: p_attribute20 => c_positions_rec.attribute20,
3674: p_attribute_category => c_positions_rec.attribute_category,
3675: p_name => c_positions_rec.name);
3676:
3677: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3678: raise FND_API.G_EXC_ERROR;
3679: end if;
3680:
3681: -- Upload Position Attribute Assignments
3674: p_attribute_category => c_positions_rec.attribute_category,
3675: p_name => c_positions_rec.name);
3676:
3677: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3678: raise FND_API.G_EXC_ERROR;
3679: end if;
3680:
3681: -- Upload Position Attribute Assignments
3682:
3727: p_assignment_default_rule_id => null,
3728: p_modify_flag => null,
3729: p_rowid => l_rowid);
3730:
3731: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3732: raise FND_API.G_EXC_ERROR;
3733: end if;
3734:
3735: end loop;
3728: p_modify_flag => null,
3729: p_rowid => l_rowid);
3730:
3731: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3732: raise FND_API.G_EXC_ERROR;
3733: end if;
3734:
3735: end loop;
3736: exit when c_posassign_attr%NOTFOUND;
3785: p_assignment_default_rule_id => null,
3786: p_modify_flag => null,
3787: p_rowid => l_rowid);
3788:
3789: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3790: raise FND_API.G_EXC_ERROR;
3791: end if;
3792:
3793: end loop;
3786: p_modify_flag => null,
3787: p_rowid => l_rowid);
3788:
3789: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3790: raise FND_API.G_EXC_ERROR;
3791: end if;
3792:
3793: end loop;
3794:
3827: p_assignment_default_rule_id => null,
3828: p_modify_flag => null,
3829: p_rowid => l_rowid);
3830:
3831: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3832: raise FND_API.G_EXC_ERROR;
3833: end if;
3834:
3835: end loop;
3828: p_modify_flag => null,
3829: p_rowid => l_rowid);
3830:
3831: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3832: raise FND_API.G_EXC_ERROR;
3833: end if;
3834:
3835: end loop;
3836:
3871: p_flexfield_mapping_set_id => p_flex_mapping_set_id,
3872: p_mapping_mode => 'GL_POSTING');
3873:
3874: if l_mapped_ccid = 0 then
3875: raise FND_API.G_EXC_ERROR;
3876: end if;
3877:
3878: PSB_POSITION_PAY_DISTR_PVT.Modify_Distribution
3879: (p_api_version => 1.0,
3898: p_expenditure_type => null,
3899: p_expenditure_organization_id => null,
3900: p_description => null);
3901:
3902: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3903: raise FND_API.G_EXC_ERROR;
3904: end if;
3905:
3906: end;
3899: p_expenditure_organization_id => null,
3900: p_description => null);
3901:
3902: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3903: raise FND_API.G_EXC_ERROR;
3904: end if;
3905:
3906: end;
3907: end if;
3930: p_to_budget_year_id => p_to_budget_year_id,
3931: p_position_exists => TRUE
3932: );
3933:
3934: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
3935: RAISE FND_API.G_EXC_ERROR;
3936: END IF;
3937: END IF;
3938:
3931: p_position_exists => TRUE
3932: );
3933:
3934: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
3935: RAISE FND_API.G_EXC_ERROR;
3936: END IF;
3937: END IF;
3938:
3939: -- Commenting out the existing bunch of code as no enddating
3963: p_expenditure_type => null,
3964: p_expenditure_organization_id => null,
3965: p_description => null);
3966:
3967: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3968: raise FND_API.G_EXC_ERROR;
3969: end if; */
3970: /* Bug 3867577 End */
3971:
3964: p_expenditure_organization_id => null,
3965: p_description => null);
3966:
3967: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3968: raise FND_API.G_EXC_ERROR;
3969: end if; */
3970: /* Bug 3867577 End */
3971:
3972: end;
3979:
3980: end loop;
3981:
3982: -- Initialize API return status to success
3983: p_return_status := FND_API.G_RET_STS_SUCCESS;
3984:
3985: EXCEPTION
3986:
3987: when FND_API.G_EXC_ERROR then
3983: p_return_status := FND_API.G_RET_STS_SUCCESS;
3984:
3985: EXCEPTION
3986:
3987: when FND_API.G_EXC_ERROR then
3988: if c_posassign_attr%ISOPEN then
3989: close c_posassign_attr;
3990: end if;
3991: p_return_status := FND_API.G_RET_STS_ERROR;
3987: when FND_API.G_EXC_ERROR then
3988: if c_posassign_attr%ISOPEN then
3989: close c_posassign_attr;
3990: end if;
3991: p_return_status := FND_API.G_RET_STS_ERROR;
3992:
3993: when FND_API.G_EXC_UNEXPECTED_ERROR then
3994: if c_posassign_attr%ISOPEN then
3995: close c_posassign_attr;
3989: close c_posassign_attr;
3990: end if;
3991: p_return_status := FND_API.G_RET_STS_ERROR;
3992:
3993: when FND_API.G_EXC_UNEXPECTED_ERROR then
3994: if c_posassign_attr%ISOPEN then
3995: close c_posassign_attr;
3996: end if;
3997: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3993: when FND_API.G_EXC_UNEXPECTED_ERROR then
3994: if c_posassign_attr%ISOPEN then
3995: close c_posassign_attr;
3996: end if;
3997: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3998:
3999: when OTHERS then
4000: if c_posassign_attr%ISOPEN then
4001: close c_posassign_attr;
3999: when OTHERS then
4000: if c_posassign_attr%ISOPEN then
4001: close c_posassign_attr;
4002: end if;
4003: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4004:
4005: END Upload_Positions;
4006:
4007: /* ----------------------------------------------------------------------- */
4720: p_flexfield_mapping_set_id => p_flex_mapping_set_id,
4721: p_mapping_mode => 'GL_POSTING');
4722:
4723: if l_mapped_ccid = 0 then
4724: raise FND_API.G_EXC_ERROR;
4725: end if;
4726:
4727: end;
4728: else
4797: p_fte => l_fte_fte(i),
4798: p_start_date => l_fte_start_date(i),
4799: p_end_date => l_fte_end_date(i));
4800:
4801: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4802: raise FND_API.G_EXC_ERROR;
4803: END IF;
4804:
4805: END IF;
4798: p_start_date => l_fte_start_date(i),
4799: p_end_date => l_fte_end_date(i));
4800:
4801: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4802: raise FND_API.G_EXC_ERROR;
4803: END IF;
4804:
4805: END IF;
4806: END LOOP;
4870: p_end_date => l_cost_end_date(i),
4871: p_currency_code => l_cost_currency_code(i),
4872: p_element_cost => l_cost_element_cost(i));
4873:
4874: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4875: raise FND_API.G_EXC_ERROR;
4876: END IF;
4877:
4878: END IF;
4871: p_currency_code => l_cost_currency_code(i),
4872: p_element_cost => l_cost_element_cost(i));
4873:
4874: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4875: raise FND_API.G_EXC_ERROR;
4876: END IF;
4877:
4878: END IF;
4879: END LOOP;
4948: p_code_combination_id => l_account_cc_id(i),
4949: p_currency_code => l_account_currency_code(i),
4950: p_amount => l_account_amount(i));
4951:
4952: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4953: raise FND_API.G_EXC_ERROR;
4954: END IF;
4955:
4956: END IF;
4949: p_currency_code => l_account_currency_code(i),
4950: p_amount => l_account_amount(i));
4951:
4952: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4953: raise FND_API.G_EXC_ERROR;
4954: END IF;
4955:
4956: END IF;
4957: END LOOP;
5035: p_fte => l_fte_fte(i),
5036: p_start_date => l_fte_start_date(i),
5037: p_end_date => l_fte_end_date(i));
5038:
5039: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5040: raise FND_API.G_EXC_ERROR;
5041: END IF;
5042: END IF;
5043:
5036: p_start_date => l_fte_start_date(i),
5037: p_end_date => l_fte_end_date(i));
5038:
5039: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5040: raise FND_API.G_EXC_ERROR;
5041: END IF;
5042: END IF;
5043:
5044: END LOOP;
5110: p_end_date => l_cost_end_date(i),
5111: p_currency_code => l_cost_currency_code(i),
5112: p_element_cost => l_cost_element_cost(i));
5113:
5114: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5115: raise FND_API.G_EXC_ERROR;
5116: END IF;
5117:
5118: END IF;
5111: p_currency_code => l_cost_currency_code(i),
5112: p_element_cost => l_cost_element_cost(i));
5113:
5114: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5115: raise FND_API.G_EXC_ERROR;
5116: END IF;
5117:
5118: END IF;
5119: END LOOP;
5189: p_code_combination_id => l_account_cc_id(i),
5190: p_currency_code => l_account_currency_code(i),
5191: p_amount => l_account_amount(i));
5192:
5193: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5194: raise FND_API.G_EXC_ERROR;
5195: END IF;
5196:
5197: END IF;
5190: p_currency_code => l_account_currency_code(i),
5191: p_amount => l_account_amount(i));
5192:
5193: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5194: raise FND_API.G_EXC_ERROR;
5195: END IF;
5196:
5197: END IF;
5198: END LOOP;
5216: commit work;
5217: /*For Bug No : 2434152 End*/
5218:
5219: -- Initialize API return status to success
5220: p_return_status := FND_API.G_RET_STS_SUCCESS;
5221:
5222: EXCEPTION
5223:
5224: when FND_API.G_EXC_ERROR then
5220: p_return_status := FND_API.G_RET_STS_SUCCESS;
5221:
5222: EXCEPTION
5223:
5224: when FND_API.G_EXC_ERROR then
5225: /*For Bug No : 2434152 Start*/
5226: rollback to Upload_Position_Worksheet_Pvt;
5227: /*For Bug No : 2434152 End*/
5228: p_return_status := FND_API.G_RET_STS_ERROR;
5224: when FND_API.G_EXC_ERROR then
5225: /*For Bug No : 2434152 Start*/
5226: rollback to Upload_Position_Worksheet_Pvt;
5227: /*For Bug No : 2434152 End*/
5228: p_return_status := FND_API.G_RET_STS_ERROR;
5229:
5230: when FND_API.G_EXC_UNEXPECTED_ERROR then
5231: /*For Bug No : 2434152 Start*/
5232: rollback to Upload_Position_Worksheet_Pvt;
5226: rollback to Upload_Position_Worksheet_Pvt;
5227: /*For Bug No : 2434152 End*/
5228: p_return_status := FND_API.G_RET_STS_ERROR;
5229:
5230: when FND_API.G_EXC_UNEXPECTED_ERROR then
5231: /*For Bug No : 2434152 Start*/
5232: rollback to Upload_Position_Worksheet_Pvt;
5233: /*For Bug No : 2434152 End*/
5234: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5230: when FND_API.G_EXC_UNEXPECTED_ERROR then
5231: /*For Bug No : 2434152 Start*/
5232: rollback to Upload_Position_Worksheet_Pvt;
5233: /*For Bug No : 2434152 End*/
5234: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5235:
5236: when OTHERS then
5237: /*For Bug No : 2434152 Start*/
5238: rollback to Upload_Position_Worksheet_Pvt;
5236: when OTHERS then
5237: /*For Bug No : 2434152 Start*/
5238: rollback to Upload_Position_Worksheet_Pvt;
5239: /*For Bug No : 2434152 End*/
5240: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5241:
5242: END Upload_Position_Worksheet;
5243:
5244: /* ----------------------------------------------------------------------- */
5350: end;
5351: end if;
5352:
5353: -- Initialize API return status to success
5354: p_return_status := FND_API.G_RET_STS_SUCCESS;
5355:
5356: EXCEPTION
5357:
5358: when FND_API.G_EXC_ERROR then
5354: p_return_status := FND_API.G_RET_STS_SUCCESS;
5355:
5356: EXCEPTION
5357:
5358: when FND_API.G_EXC_ERROR then
5359: p_return_status := FND_API.G_RET_STS_ERROR;
5360:
5361: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
5362: p_data => p_msg_data);
5355:
5356: EXCEPTION
5357:
5358: when FND_API.G_EXC_ERROR then
5359: p_return_status := FND_API.G_RET_STS_ERROR;
5360:
5361: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
5362: p_data => p_msg_data);
5363:
5360:
5361: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
5362: p_data => p_msg_data);
5363:
5364: when FND_API.G_EXC_UNEXPECTED_ERROR then
5365: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5366:
5367: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
5368: p_data => p_msg_data);
5361: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
5362: p_data => p_msg_data);
5363:
5364: when FND_API.G_EXC_UNEXPECTED_ERROR then
5365: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5366:
5367: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
5368: p_data => p_msg_data);
5369:
5367: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
5368: p_data => p_msg_data);
5369:
5370: when OTHERS then
5371: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5372:
5373: if FND_MSG_PUB.Check_Msg_Level
5374: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
5375: FND_MSG_PUB.Add_Exc_Msg
5628: if ((l_no_hr_pos_count > 0) or (l_no_acct_dist > 0)) then
5629: FND_MESSAGE.SET_NAME('PSB','PSB_DEBUG_MESSAGE');
5630: FND_MESSAGE.SET_TOKEN('MESSAGE', 'HR Pos Count 0');
5631: FND_MSG_PUB.Add;
5632: raise FND_API.G_EXC_ERROR;
5633: end if;
5634:
5635: -- Initialize API return status to success
5636: p_return_status := FND_API.G_RET_STS_SUCCESS;
5632: raise FND_API.G_EXC_ERROR;
5633: end if;
5634:
5635: -- Initialize API return status to success
5636: p_return_status := FND_API.G_RET_STS_SUCCESS;
5637:
5638: EXCEPTION
5639:
5640: when FND_API.G_EXC_ERROR then
5636: p_return_status := FND_API.G_RET_STS_SUCCESS;
5637:
5638: EXCEPTION
5639:
5640: when FND_API.G_EXC_ERROR then
5641: p_return_status := FND_API.G_RET_STS_ERROR;
5642:
5643: FND_MSG_PUB.Add_Exc_Msg
5644: (p_pkg_name => G_PKG_NAME,
5637:
5638: EXCEPTION
5639:
5640: when FND_API.G_EXC_ERROR then
5641: p_return_status := FND_API.G_RET_STS_ERROR;
5642:
5643: FND_MSG_PUB.Add_Exc_Msg
5644: (p_pkg_name => G_PKG_NAME,
5645: p_procedure_name => l_api_name);
5646:
5647: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
5648: p_data => l_msg_data);
5649:
5650: when FND_API.G_EXC_UNEXPECTED_ERROR then
5651: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5652:
5653: FND_MSG_PUB.Add_Exc_Msg
5654: (p_pkg_name => G_PKG_NAME,
5647: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
5648: p_data => l_msg_data);
5649:
5650: when FND_API.G_EXC_UNEXPECTED_ERROR then
5651: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5652:
5653: FND_MSG_PUB.Add_Exc_Msg
5654: (p_pkg_name => G_PKG_NAME,
5655: p_procedure_name => l_api_name);
5657: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
5658: p_data => l_msg_data);
5659:
5660: when OTHERS then
5661: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5662:
5663: if FND_MSG_PUB.Check_Msg_Level
5664: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
5665: FND_MSG_PUB.Add_Exc_Msg
5675: /* ----------------------------------------------------------------------- */
5676:
5677: PROCEDURE Upload_Worksheet
5678: ( p_api_version IN NUMBER,
5679: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5680: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5681: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
5682: p_return_status OUT NOCOPY VARCHAR2,
5683: p_msg_count OUT NOCOPY NUMBER,
5676:
5677: PROCEDURE Upload_Worksheet
5678: ( p_api_version IN NUMBER,
5679: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5680: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5681: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
5682: p_return_status OUT NOCOPY VARCHAR2,
5683: p_msg_count OUT NOCOPY NUMBER,
5684: p_msg_data OUT NOCOPY VARCHAR2,
5677: PROCEDURE Upload_Worksheet
5678: ( p_api_version IN NUMBER,
5679: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5680: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5681: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
5682: p_return_status OUT NOCOPY VARCHAR2,
5683: p_msg_count OUT NOCOPY NUMBER,
5684: p_msg_data OUT NOCOPY VARCHAR2,
5685: p_worksheet_id IN NUMBER,
5735: SAVEPOINT Upload_Worksheet_Pvt;
5736:
5737: -- Standard call to check for call compatibility.
5738:
5739: if not FND_API.Compatible_API_Call (l_api_version,
5740: p_api_version,
5741: l_api_name,
5742: G_PKG_NAME)
5743: then
5740: p_api_version,
5741: l_api_name,
5742: G_PKG_NAME)
5743: then
5744: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5745: end if;
5746:
5747: -- Initialize message list if p_init_msg_list is set to TRUE.
5748:
5745: end if;
5746:
5747: -- Initialize message list if p_init_msg_list is set to TRUE.
5748:
5749: if FND_API.to_Boolean (p_init_msg_list) then
5750: FND_MSG_PUB.initialize;
5751: end if;
5752:
5753: for c_WS_Rec in c_WS loop
5758: l_flex_mapping_set_id := c_WS_Rec.flex_mapping_set_id;
5759: l_position_id_flex_num := c_WS_Rec.position_id_flex_num;
5760: end loop;
5761:
5762: if l_budget_calendar_id <> nvl(PSB_WS_ACCT1.g_budget_calendar_id, FND_API.G_MISS_NUM) then
5763: begin
5764:
5765: PSB_WS_ACCT1.Cache_Budget_Calendar
5766: (p_return_status => l_return_status,
5765: PSB_WS_ACCT1.Cache_Budget_Calendar
5766: (p_return_status => l_return_status,
5767: p_budget_calendar_id => l_budget_calendar_id);
5768:
5769: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5770: raise FND_API.G_EXC_ERROR;
5771: end if;
5772:
5773: end;
5766: (p_return_status => l_return_status,
5767: p_budget_calendar_id => l_budget_calendar_id);
5768:
5769: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5770: raise FND_API.G_EXC_ERROR;
5771: end if;
5772:
5773: end;
5774: /* start bug 4545590 */
5836: --p_msg_data => l_msg_data,
5837: p_event_type => 'BP',
5838: p_source_id => p_worksheet_id);
5839:
5840: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5841: raise FND_API.G_EXC_ERROR;
5842: end if;
5843:
5844: -- Lock Worksheet in exclusive mode
5837: p_event_type => 'BP',
5838: p_source_id => p_worksheet_id);
5839:
5840: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5841: raise FND_API.G_EXC_ERROR;
5842: end if;
5843:
5844: -- Lock Worksheet in exclusive mode
5845:
5849: p_concurrency_class => 'WORKSHEET_CONSOLIDATION',
5850: p_concurrency_entity_name => 'DATA_EXTRACT',
5851: p_concurrency_entity_id => p_worksheet_id);
5852:
5853: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5854: raise FND_API.G_EXC_ERROR;
5855: end if;
5856:
5857: Upload_Attribute_Values
5850: p_concurrency_entity_name => 'DATA_EXTRACT',
5851: p_concurrency_entity_id => p_worksheet_id);
5852:
5853: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5854: raise FND_API.G_EXC_ERROR;
5855: end if;
5856:
5857: Upload_Attribute_Values
5858: (p_return_status => l_return_status,
5859: p_source_data_extract_id => l_data_extract_id,
5860: p_source_business_group_id => l_business_group_id,
5861: p_target_data_extract_id => l_system_data_extract_id);
5862:
5863: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5864: raise FND_API.G_EXC_ERROR;
5865: end if;
5866:
5867: commit work;
5860: p_source_business_group_id => l_business_group_id,
5861: p_target_data_extract_id => l_system_data_extract_id);
5862:
5863: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5864: raise FND_API.G_EXC_ERROR;
5865: end if;
5866:
5867: commit work;
5868:
5874: p_budget_calendar_id => l_budget_calendar_id,
5875: p_flex_mapping_set_id => l_flex_mapping_set_id,
5876: p_budget_group_id => l_budget_group_id);
5877:
5878: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5879: raise FND_API.G_EXC_ERROR;
5880: end if;
5881:
5882: commit work;
5875: p_flex_mapping_set_id => l_flex_mapping_set_id,
5876: p_budget_group_id => l_budget_group_id);
5877:
5878: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5879: raise FND_API.G_EXC_ERROR;
5880: end if;
5881:
5882: commit work;
5883:
5886: p_source_data_extract_id => l_data_extract_id,
5887: p_source_business_group_id => l_business_group_id,
5888: p_target_data_extract_id => l_system_data_extract_id);
5889:
5890: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5891: raise FND_API.G_EXC_ERROR;
5892: end if;
5893:
5894: commit work;
5887: p_source_business_group_id => l_business_group_id,
5888: p_target_data_extract_id => l_system_data_extract_id);
5889:
5890: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5891: raise FND_API.G_EXC_ERROR;
5892: end if;
5893:
5894: commit work;
5895:
5906: p_to_budget_year_id => p_to_budget_year_id
5907: /* Bug 3867577 End */
5908: );
5909:
5910: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5911: raise FND_API.G_EXC_ERROR;
5912: end if;
5913:
5914: commit work;
5907: /* Bug 3867577 End */
5908: );
5909:
5910: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5911: raise FND_API.G_EXC_ERROR;
5912: end if;
5913:
5914: commit work;
5915: /*For Bug No : 2434152 Start*/
5926: p_msg_count => l_msg_count,
5927: p_msg_data => l_msg_data,
5928: p_data_extract_id => l_system_data_extract_id);
5929:
5930: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5931: raise FND_API.G_EXC_ERROR;
5932: end if;
5933:
5934: commit work;
5927: p_msg_data => l_msg_data,
5928: p_data_extract_id => l_system_data_extract_id);
5929:
5930: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5931: raise FND_API.G_EXC_ERROR;
5932: end if;
5933:
5934: commit work;
5935:
5941: p_concurrency_class => 'WORKSHEET_CONSOLIDATION',
5942: p_concurrency_entity_name => 'WORKSHEET',
5943: p_concurrency_entity_id => p_worksheet_id);
5944:
5945: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5946: raise FND_API.G_EXC_ERROR;
5947: end if;
5948:
5949: Upload_Position_Worksheet
5942: p_concurrency_entity_name => 'WORKSHEET',
5943: p_concurrency_entity_id => p_worksheet_id);
5944:
5945: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5946: raise FND_API.G_EXC_ERROR;
5947: end if;
5948:
5949: Upload_Position_Worksheet
5950: (p_return_status => l_return_status,
5953: p_budget_calendar_id => l_budget_calendar_id,
5954: p_target_data_extract_id => l_system_data_extract_id,
5955: p_hr_budget_id => p_hr_budget_id);
5956:
5957: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5958: raise FND_API.G_EXC_ERROR;
5959: end if;
5960:
5961: Record_Position_Transaction
5954: p_target_data_extract_id => l_system_data_extract_id,
5955: p_hr_budget_id => p_hr_budget_id);
5956:
5957: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5958: raise FND_API.G_EXC_ERROR;
5959: end if;
5960:
5961: Record_Position_Transaction
5962: (p_return_status => l_return_status,
5969: p_to_budget_year_id => p_to_budget_year_id,
5970: p_transfer_to_interface => 'Y',
5971: p_transfer_to_hrms => 'N');
5972:
5973: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5974: raise FND_API.G_EXC_ERROR;
5975: end if;
5976:
5977: -- Standard check of p_commit.
5970: p_transfer_to_interface => 'Y',
5971: p_transfer_to_hrms => 'N');
5972:
5973: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5974: raise FND_API.G_EXC_ERROR;
5975: end if;
5976:
5977: -- Standard check of p_commit.
5978: if FND_API.to_Boolean (p_commit) then
5974: raise FND_API.G_EXC_ERROR;
5975: end if;
5976:
5977: -- Standard check of p_commit.
5978: if FND_API.to_Boolean (p_commit) then
5979: commit work;
5980: end if;
5981:
5982: -- Standard call to get message count and if count is 1, get message info.
5983: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
5984: p_data => p_msg_data);
5985:
5986: -- Initialize API return status to success
5987: p_return_status := FND_API.G_RET_STS_SUCCESS;
5988:
5989: EXCEPTION
5990:
5991: when FND_API.G_EXC_ERROR then
5987: p_return_status := FND_API.G_RET_STS_SUCCESS;
5988:
5989: EXCEPTION
5990:
5991: when FND_API.G_EXC_ERROR then
5992: /*For Bug No : 2434152 Start*/
5993: --rollback to Upload_Worksheet_Pvt;
5994: rollback;
5995: /*For Bug No : 2434152 End*/
5992: /*For Bug No : 2434152 Start*/
5993: --rollback to Upload_Worksheet_Pvt;
5994: rollback;
5995: /*For Bug No : 2434152 End*/
5996: p_return_status := FND_API.G_RET_STS_ERROR;
5997:
5998: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
5999: p_data => p_msg_data);
6000:
5997:
5998: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
5999: p_data => p_msg_data);
6000:
6001: when FND_API.G_EXC_UNEXPECTED_ERROR then
6002: /*For Bug No : 2434152 Start*/
6003: --rollback to Upload_Worksheet_Pvt;
6004: rollback;
6005: /*For Bug No : 2434152 End*/
6002: /*For Bug No : 2434152 Start*/
6003: --rollback to Upload_Worksheet_Pvt;
6004: rollback;
6005: /*For Bug No : 2434152 End*/
6006: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6007:
6008: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6009: p_data => p_msg_data);
6010:
6012: /*For Bug No : 2434152 Start*/
6013: --rollback to Upload_Worksheet_Pvt;
6014: rollback;
6015: /*For Bug No : 2434152 End*/
6016: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6017:
6018: if FND_MSG_PUB.Check_Msg_Level
6019: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
6020: FND_MSG_PUB.Add_Exc_Msg
6111:
6112: Upload_Budget_HRMS
6113: (p_api_version => 1.0,
6114: p_return_status => l_return_status,
6115: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6116: p_msg_count => l_msg_count,
6117: p_msg_data => l_msg_data,
6118: p_event_type => 'BP',
6119: p_source_id => p_worksheet_id,
6120: p_hr_budget_id => p_hr_budget_id,
6121: p_from_budget_year_id => p_from_budget_year_id,
6122: p_to_budget_year_id => p_to_budget_year_id);
6123:
6124: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6125: raise FND_API.G_EXC_ERROR;
6126: end if;
6127:
6128: Upload_Worksheet
6121: p_from_budget_year_id => p_from_budget_year_id,
6122: p_to_budget_year_id => p_to_budget_year_id);
6123:
6124: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6125: raise FND_API.G_EXC_ERROR;
6126: end if;
6127:
6128: Upload_Worksheet
6129: (p_api_version => 1.0,
6126: end if;
6127:
6128: Upload_Worksheet
6129: (p_api_version => 1.0,
6130: p_commit => FND_API.G_TRUE,
6131: p_init_msg_list => FND_API.G_TRUE,
6132: p_return_status => l_return_status,
6133: p_msg_count => l_msg_count,
6134: p_msg_data => l_msg_data,
6127:
6128: Upload_Worksheet
6129: (p_api_version => 1.0,
6130: p_commit => FND_API.G_TRUE,
6131: p_init_msg_list => FND_API.G_TRUE,
6132: p_return_status => l_return_status,
6133: p_msg_count => l_msg_count,
6134: p_msg_data => l_msg_data,
6135: p_worksheet_id => p_worksheet_id,
6136: p_hr_budget_id => p_hr_budget_id,
6137: p_from_budget_year_id => p_from_budget_year_id,
6138: p_to_budget_year_id => p_to_budget_year_id);
6139:
6140: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6141: raise FND_API.G_EXC_ERROR;
6142: end if;
6143:
6144: if ((p_run_mode = 'F') and (p_hr_budget_id is not null)) then
6137: p_from_budget_year_id => p_from_budget_year_id,
6138: p_to_budget_year_id => p_to_budget_year_id);
6139:
6140: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6141: raise FND_API.G_EXC_ERROR;
6142: end if;
6143:
6144: if ((p_run_mode = 'F') and (p_hr_budget_id is not null)) then
6145: begin
6146:
6147: Upload_Budget_HRMS
6148: (p_api_version => 1.0,
6149: p_return_status => l_return_status,
6150: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
6151: p_msg_count => l_msg_count,
6152: p_msg_data => l_msg_data,
6153: p_event_type => 'BP',
6154: p_source_id => p_worksheet_id,
6155: p_hr_budget_id => p_hr_budget_id,
6156: p_from_budget_year_id => p_from_budget_year_id,
6157: p_to_budget_year_id => p_to_budget_year_id);
6158:
6159: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6160: raise FND_API.G_EXC_ERROR;
6161: end if;
6162:
6163: end;
6156: p_from_budget_year_id => p_from_budget_year_id,
6157: p_to_budget_year_id => p_to_budget_year_id);
6158:
6159: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6160: raise FND_API.G_EXC_ERROR;
6161: end if;
6162:
6163: end;
6164: end if;
6170: commit work;
6171:
6172: EXCEPTION
6173:
6174: when FND_API.G_EXC_ERROR then
6175: PSB_MESSAGE_S.Print_Error (p_mode => FND_FILE.LOG,
6176: p_print_header => FND_API.G_TRUE);
6177: retcode := 2;
6178:
6172: EXCEPTION
6173:
6174: when FND_API.G_EXC_ERROR then
6175: PSB_MESSAGE_S.Print_Error (p_mode => FND_FILE.LOG,
6176: p_print_header => FND_API.G_TRUE);
6177: retcode := 2;
6178:
6179: when FND_API.G_EXC_UNEXPECTED_ERROR then
6180: PSB_MESSAGE_S.Print_Error (p_mode => FND_FILE.LOG,
6175: PSB_MESSAGE_S.Print_Error (p_mode => FND_FILE.LOG,
6176: p_print_header => FND_API.G_TRUE);
6177: retcode := 2;
6178:
6179: when FND_API.G_EXC_UNEXPECTED_ERROR then
6180: PSB_MESSAGE_S.Print_Error (p_mode => FND_FILE.LOG,
6181: p_print_header => FND_API.G_TRUE);
6182: retcode := 2;
6183:
6177: retcode := 2;
6178:
6179: when FND_API.G_EXC_UNEXPECTED_ERROR then
6180: PSB_MESSAGE_S.Print_Error (p_mode => FND_FILE.LOG,
6181: p_print_header => FND_API.G_TRUE);
6182: retcode := 2;
6183:
6184: when OTHERS then
6185: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
6187: l_api_name);
6188: end if;
6189:
6190: PSB_MESSAGE_S.Print_Error (p_mode => FND_FILE.LOG,
6191: p_print_header => FND_API.G_TRUE);
6192: retcode := 2;
6193:
6194: END Upload_Worksheet_CP;
6195:
6247: p_amount, sysdate, FND_GLOBAL.USER_ID, FND_GLOBAL.LOGIN_ID, FND_GLOBAL.USER_ID, sysdate)
6248: RETURNING position_account_line_id into l_position_account_line_id;
6249:
6250: -- Initialize API return status to success
6251: p_return_status := FND_API.G_RET_STS_SUCCESS;
6252:
6253: EXCEPTION
6254:
6255: when FND_API.G_EXC_ERROR then
6251: p_return_status := FND_API.G_RET_STS_SUCCESS;
6252:
6253: EXCEPTION
6254:
6255: when FND_API.G_EXC_ERROR then
6256: p_return_status := FND_API.G_RET_STS_ERROR;
6257:
6258: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6259: p_data => p_msg_data);
6252:
6253: EXCEPTION
6254:
6255: when FND_API.G_EXC_ERROR then
6256: p_return_status := FND_API.G_RET_STS_ERROR;
6257:
6258: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6259: p_data => p_msg_data);
6260:
6257:
6258: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6259: p_data => p_msg_data);
6260:
6261: when FND_API.G_EXC_UNEXPECTED_ERROR then
6262: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6263:
6264: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6265: p_data => p_msg_data);
6258: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6259: p_data => p_msg_data);
6260:
6261: when FND_API.G_EXC_UNEXPECTED_ERROR then
6262: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6263:
6264: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6265: p_data => p_msg_data);
6266:
6264: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6265: p_data => p_msg_data);
6266:
6267: when OTHERS then
6268: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6269:
6270: if FND_MSG_PUB.Check_Msg_Level
6271: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
6272: FND_MSG_PUB.Add_Exc_Msg
6286: p_msg_count OUT NOCOPY NUMBER,
6287: p_msg_data OUT NOCOPY VARCHAR2,
6288: p_position_account_line_id IN NUMBER,
6289: p_budget_group_id IN NUMBER,
6290: p_start_date IN DATE := FND_API.G_MISS_DATE,
6291: p_end_date IN DATE := FND_API.G_MISS_DATE,
6292: p_amount IN NUMBER
6293: ) IS
6294:
6287: p_msg_data OUT NOCOPY VARCHAR2,
6288: p_position_account_line_id IN NUMBER,
6289: p_budget_group_id IN NUMBER,
6290: p_start_date IN DATE := FND_API.G_MISS_DATE,
6291: p_end_date IN DATE := FND_API.G_MISS_DATE,
6292: p_amount IN NUMBER
6293: ) IS
6294:
6295: l_api_name CONSTANT VARCHAR2(30) := 'Update_Position_Accounts';
6298:
6299: update PSB_POSITION_ACCOUNTS
6300: set amount = p_amount,
6301: budget_group_id = p_budget_group_id,
6302: start_date = decode(p_start_date, FND_API.G_MISS_DATE, start_date, p_start_date),
6303: end_date = decode(p_end_date, FND_API.G_MISS_DATE, end_date, p_end_date),
6304: last_update_date = sysdate,
6305: last_updated_by = FND_GLOBAL.USER_ID,
6306: last_update_login = FND_GLOBAL.LOGIN_ID
6299: update PSB_POSITION_ACCOUNTS
6300: set amount = p_amount,
6301: budget_group_id = p_budget_group_id,
6302: start_date = decode(p_start_date, FND_API.G_MISS_DATE, start_date, p_start_date),
6303: end_date = decode(p_end_date, FND_API.G_MISS_DATE, end_date, p_end_date),
6304: last_update_date = sysdate,
6305: last_updated_by = FND_GLOBAL.USER_ID,
6306: last_update_login = FND_GLOBAL.LOGIN_ID
6307: where position_account_line_id = p_position_account_line_id;
6306: last_update_login = FND_GLOBAL.LOGIN_ID
6307: where position_account_line_id = p_position_account_line_id;
6308:
6309: -- Initialize API return status to success
6310: p_return_status := FND_API.G_RET_STS_SUCCESS;
6311:
6312: EXCEPTION
6313:
6314: when FND_API.G_EXC_ERROR then
6310: p_return_status := FND_API.G_RET_STS_SUCCESS;
6311:
6312: EXCEPTION
6313:
6314: when FND_API.G_EXC_ERROR then
6315: p_return_status := FND_API.G_RET_STS_ERROR;
6316:
6317: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6318: p_data => p_msg_data);
6311:
6312: EXCEPTION
6313:
6314: when FND_API.G_EXC_ERROR then
6315: p_return_status := FND_API.G_RET_STS_ERROR;
6316:
6317: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6318: p_data => p_msg_data);
6319:
6316:
6317: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6318: p_data => p_msg_data);
6319:
6320: when FND_API.G_EXC_UNEXPECTED_ERROR then
6321: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6322:
6323: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6324: p_data => p_msg_data);
6317: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6318: p_data => p_msg_data);
6319:
6320: when FND_API.G_EXC_UNEXPECTED_ERROR then
6321: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6322:
6323: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6324: p_data => p_msg_data);
6325:
6323: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6324: p_data => p_msg_data);
6325:
6326: when OTHERS then
6327: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6328:
6329: if FND_MSG_PUB.Check_Msg_Level
6330: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
6331: FND_MSG_PUB.Add_Exc_Msg
6354: delete from PSB_POSITION_ACCOUNTS
6355: where position_account_line_id = p_position_account_line_id;
6356:
6357: -- Initialize API return status to success
6358: p_return_status := FND_API.G_RET_STS_SUCCESS;
6359:
6360: EXCEPTION
6361:
6362: when FND_API.G_EXC_ERROR then
6358: p_return_status := FND_API.G_RET_STS_SUCCESS;
6359:
6360: EXCEPTION
6361:
6362: when FND_API.G_EXC_ERROR then
6363: p_return_status := FND_API.G_RET_STS_ERROR;
6364:
6365: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6366: p_data => p_msg_data);
6359:
6360: EXCEPTION
6361:
6362: when FND_API.G_EXC_ERROR then
6363: p_return_status := FND_API.G_RET_STS_ERROR;
6364:
6365: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6366: p_data => p_msg_data);
6367:
6364:
6365: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6366: p_data => p_msg_data);
6367:
6368: when FND_API.G_EXC_UNEXPECTED_ERROR then
6369: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6370:
6371: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6372: p_data => p_msg_data);
6365: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6366: p_data => p_msg_data);
6367:
6368: when FND_API.G_EXC_UNEXPECTED_ERROR then
6369: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6370:
6371: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6372: p_data => p_msg_data);
6373:
6371: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6372: p_data => p_msg_data);
6373:
6374: when OTHERS then
6375: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6376:
6377: if FND_MSG_PUB.Check_Msg_Level
6378: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
6379: FND_MSG_PUB.Add_Exc_Msg
6389: /* ----------------------------------------------------------------------- */
6390:
6391: PROCEDURE Modify_Position_Accounts
6392: ( p_api_version IN NUMBER,
6393: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6394: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6395: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
6396: p_return_status OUT NOCOPY VARCHAR2,
6397: p_msg_count OUT NOCOPY NUMBER,
6390:
6391: PROCEDURE Modify_Position_Accounts
6392: ( p_api_version IN NUMBER,
6393: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6394: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6395: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
6396: p_return_status OUT NOCOPY VARCHAR2,
6397: p_msg_count OUT NOCOPY NUMBER,
6398: p_msg_data OUT NOCOPY VARCHAR2,
6391: PROCEDURE Modify_Position_Accounts
6392: ( p_api_version IN NUMBER,
6393: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6394: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6395: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
6396: p_return_status OUT NOCOPY VARCHAR2,
6397: p_msg_count OUT NOCOPY NUMBER,
6398: p_msg_data OUT NOCOPY VARCHAR2,
6399: p_position_id IN NUMBER,
6429: and nvl(hr_budget_id, -1) = nvl(p_hr_budget_id, -1)
6430: and code_combination_id = p_code_combination_id
6431: and currency_code = p_currency_code
6432: and nvl(budget_revision_id, -1) = nvl(p_budget_revision_id, -1)
6433: and nvl(base_line_version, FND_API.G_MISS_CHAR) = nvl(p_base_line_version, FND_API.G_MISS_CHAR)
6434: and ((((p_end_date is not null)
6435: and ((start_date <= p_end_date)
6436: and (end_date is null))
6437: or ((start_date between p_start_date and p_end_date)
6444: BEGIN
6445:
6446: -- Standard call to check for call compatibility.
6447:
6448: if not FND_API.Compatible_API_Call (l_api_version,
6449: p_api_version,
6450: l_api_name,
6451: G_PKG_NAME)
6452: then
6449: p_api_version,
6450: l_api_name,
6451: G_PKG_NAME)
6452: then
6453: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6454: end if;
6455:
6456: -- Initialize message list if p_init_msg_list is set to TRUE.
6457:
6454: end if;
6455:
6456: -- Initialize message list if p_init_msg_list is set to TRUE.
6457:
6458: if FND_API.to_Boolean (p_init_msg_list) then
6459: FND_MSG_PUB.initialize;
6460: end if;
6461:
6462: /*For Bug No : 1808322 Start*/
6473: and nvl(hr_budget_id, -1) = nvl(p_hr_budget_id, -1)
6474: and code_combination_id = p_code_combination_id
6475: and currency_code = p_currency_code
6476: and nvl(budget_revision_id, -1) = nvl(p_budget_revision_id, -1)
6477: and nvl(base_line_version, FND_API.G_MISS_CHAR) = nvl(p_base_line_version, FND_API.G_MISS_CHAR)
6478: and start_date = p_start_date
6479: and nvl(end_date, FND_API.G_MISS_DATE) = nvl(p_end_date, FND_API.G_MISS_DATE);
6480:
6481: /*For Bug No : 1808322 Start*/
6475: and currency_code = p_currency_code
6476: and nvl(budget_revision_id, -1) = nvl(p_budget_revision_id, -1)
6477: and nvl(base_line_version, FND_API.G_MISS_CHAR) = nvl(p_base_line_version, FND_API.G_MISS_CHAR)
6478: and start_date = p_start_date
6479: and nvl(end_date, FND_API.G_MISS_DATE) = nvl(p_end_date, FND_API.G_MISS_DATE);
6480:
6481: /*For Bug No : 1808322 Start*/
6482: IF SQL%NOTFOUND THEN
6483: l_update_flag := FALSE;
6549: p_amount => p_amount,
6550: p_budget_revision_id => p_budget_revision_id,
6551: p_base_line_version => p_base_line_version);
6552:
6553: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6554: raise FND_API.G_EXC_ERROR;
6555: end if;
6556:
6557: end;
6550: p_budget_revision_id => p_budget_revision_id,
6551: p_base_line_version => p_base_line_version);
6552:
6553: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6554: raise FND_API.G_EXC_ERROR;
6555: end if;
6556:
6557: end;
6558: else
6575: p_budget_group_id => p_budget_group_id,
6576: p_end_date => p_end_date,
6577: p_amount => p_amount);
6578:
6579: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6580: raise FND_API.G_EXC_ERROR;
6581: end if;
6582:
6583: g_accounts(l_account_index).delete_flag := FALSE;
6576: p_end_date => p_end_date,
6577: p_amount => p_amount);
6578:
6579: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6580: raise FND_API.G_EXC_ERROR;
6581: end if;
6582:
6583: g_accounts(l_account_index).delete_flag := FALSE;
6584:
6610: p_original_end_date => g_accounts(l_account_index).end_date,
6611: p_new_start_date => g_accounts(l_account_index).start_date,
6612: p_new_end_date => p_start_date - 1));
6613:
6614: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6615: raise FND_API.G_EXC_ERROR;
6616: else
6617: l_updated_record := TRUE;
6618: end if;
6611: p_new_start_date => g_accounts(l_account_index).start_date,
6612: p_new_end_date => p_start_date - 1));
6613:
6614: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6615: raise FND_API.G_EXC_ERROR;
6616: else
6617: l_updated_record := TRUE;
6618: end if;
6619:
6638: p_original_end_date => g_accounts(l_account_index).end_date,
6639: p_new_start_date => p_end_date + 1,
6640: p_new_end_date => g_accounts(l_account_index).end_date));
6641:
6642: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6643: raise FND_API.G_EXC_ERROR;
6644: else
6645: l_updated_record := FALSE;
6646: end if;
6639: p_new_start_date => p_end_date + 1,
6640: p_new_end_date => g_accounts(l_account_index).end_date));
6641:
6642: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6643: raise FND_API.G_EXC_ERROR;
6644: else
6645: l_updated_record := FALSE;
6646: end if;
6647:
6667: p_amount => p_amount,
6668: p_budget_revision_id => p_budget_revision_id,
6669: p_base_line_version => p_base_line_version);
6670:
6671: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6672: raise FND_API.G_EXC_ERROR;
6673: else
6674: l_created_record := TRUE;
6675: end if;
6668: p_budget_revision_id => p_budget_revision_id,
6669: p_base_line_version => p_base_line_version);
6670:
6671: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6672: raise FND_API.G_EXC_ERROR;
6673: else
6674: l_created_record := TRUE;
6675: end if;
6676:
6704: p_new_end_date => g_accounts(l_account_index).end_date),
6705: p_budget_revision_id => g_accounts(l_account_index).budget_revision_id,
6706: p_base_line_version => g_accounts(l_account_index).base_line_version);
6707:
6708: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6709: raise FND_API.G_EXC_ERROR;
6710: end if;
6711:
6712: end;
6705: p_budget_revision_id => g_accounts(l_account_index).budget_revision_id,
6706: p_base_line_version => g_accounts(l_account_index).base_line_version);
6707:
6708: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6709: raise FND_API.G_EXC_ERROR;
6710: end if;
6711:
6712: end;
6713: else
6726: p_original_end_date => g_accounts(l_account_index).end_date,
6727: p_new_start_date => p_end_date + 1,
6728: p_new_end_date => g_accounts(l_account_index).end_date));
6729:
6730: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6731: raise FND_API.G_EXC_ERROR;
6732: end if;
6733:
6734: g_accounts(l_account_index).delete_flag := FALSE;
6727: p_new_start_date => p_end_date + 1,
6728: p_new_end_date => g_accounts(l_account_index).end_date));
6729:
6730: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6731: raise FND_API.G_EXC_ERROR;
6732: end if;
6733:
6734: g_accounts(l_account_index).delete_flag := FALSE;
6735:
6760: p_msg_count => l_msg_count,
6761: p_msg_data => l_msg_data,
6762: p_position_account_line_id => g_accounts(l_account_index).position_account_line_id);
6763:
6764: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6765: raise FND_API.G_EXC_ERROR;
6766: end if;
6767:
6768: end;
6761: p_msg_data => l_msg_data,
6762: p_position_account_line_id => g_accounts(l_account_index).position_account_line_id);
6763:
6764: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6765: raise FND_API.G_EXC_ERROR;
6766: end if;
6767:
6768: end;
6769: end if;
6773: end;
6774: end if;
6775:
6776: -- Standard check of p_commit.
6777: if FND_API.to_Boolean (p_commit) then
6778: commit work;
6779: end if;
6780:
6781: -- Standard call to get message count and if count is 1, get message info.
6782: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6783: p_data => p_msg_data);
6784:
6785: -- Initialize API return status to success
6786: p_return_status := FND_API.G_RET_STS_SUCCESS;
6787:
6788: EXCEPTION
6789:
6790: when FND_API.G_EXC_ERROR then
6786: p_return_status := FND_API.G_RET_STS_SUCCESS;
6787:
6788: EXCEPTION
6789:
6790: when FND_API.G_EXC_ERROR then
6791: p_return_status := FND_API.G_RET_STS_ERROR;
6792:
6793: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6794: p_data => p_msg_data);
6787:
6788: EXCEPTION
6789:
6790: when FND_API.G_EXC_ERROR then
6791: p_return_status := FND_API.G_RET_STS_ERROR;
6792:
6793: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6794: p_data => p_msg_data);
6795:
6792:
6793: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6794: p_data => p_msg_data);
6795:
6796: when FND_API.G_EXC_UNEXPECTED_ERROR then
6797: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6798:
6799: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6800: p_data => p_msg_data);
6793: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6794: p_data => p_msg_data);
6795:
6796: when FND_API.G_EXC_UNEXPECTED_ERROR then
6797: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6798:
6799: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6800: p_data => p_msg_data);
6801:
6799: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6800: p_data => p_msg_data);
6801:
6802: when OTHERS then
6803: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6804:
6805: if FND_MSG_PUB.Check_Msg_Level
6806: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
6807: FND_MSG_PUB.Add_Exc_Msg
6845: p_element_cost, sysdate, FND_GLOBAL.USER_ID, FND_GLOBAL.LOGIN_ID, FND_GLOBAL.USER_ID, sysdate)
6846: RETURNING position_element_line_id INTO l_position_element_line_id;
6847:
6848: -- Initialize API return status to success
6849: p_return_status := FND_API.G_RET_STS_SUCCESS;
6850:
6851: EXCEPTION
6852:
6853: when FND_API.G_EXC_ERROR then
6849: p_return_status := FND_API.G_RET_STS_SUCCESS;
6850:
6851: EXCEPTION
6852:
6853: when FND_API.G_EXC_ERROR then
6854: p_return_status := FND_API.G_RET_STS_ERROR;
6855:
6856: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6857: p_data => p_msg_data);
6850:
6851: EXCEPTION
6852:
6853: when FND_API.G_EXC_ERROR then
6854: p_return_status := FND_API.G_RET_STS_ERROR;
6855:
6856: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6857: p_data => p_msg_data);
6858:
6855:
6856: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6857: p_data => p_msg_data);
6858:
6859: when FND_API.G_EXC_UNEXPECTED_ERROR then
6860: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6861:
6862: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6863: p_data => p_msg_data);
6856: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6857: p_data => p_msg_data);
6858:
6859: when FND_API.G_EXC_UNEXPECTED_ERROR then
6860: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6861:
6862: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6863: p_data => p_msg_data);
6864:
6862: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6863: p_data => p_msg_data);
6864:
6865: when OTHERS then
6866: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6867:
6868: if FND_MSG_PUB.Check_Msg_Level
6869: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
6870: FND_MSG_PUB.Add_Exc_Msg
6880: ( p_return_status OUT NOCOPY VARCHAR2,
6881: p_msg_count OUT NOCOPY NUMBER,
6882: p_msg_data OUT NOCOPY VARCHAR2,
6883: p_position_element_line_id IN NUMBER,
6884: p_start_date IN DATE := FND_API.G_MISS_DATE,
6885: p_end_date IN DATE := FND_API.G_MISS_DATE,
6886: p_element_cost IN NUMBER
6887: ) IS
6888:
6881: p_msg_count OUT NOCOPY NUMBER,
6882: p_msg_data OUT NOCOPY VARCHAR2,
6883: p_position_element_line_id IN NUMBER,
6884: p_start_date IN DATE := FND_API.G_MISS_DATE,
6885: p_end_date IN DATE := FND_API.G_MISS_DATE,
6886: p_element_cost IN NUMBER
6887: ) IS
6888:
6889: l_api_name CONSTANT VARCHAR2(30) := 'Update_Position_Costs';
6891: BEGIN
6892:
6893: update PSB_POSITION_COSTS
6894: set element_cost = p_element_cost,
6895: start_date = decode(p_start_date, FND_API.G_MISS_DATE, start_date, p_start_date),
6896: end_date = decode(p_end_date, FND_API.G_MISS_DATE, end_date, p_end_date),
6897: last_update_date = sysdate,
6898: last_updated_by = FND_GLOBAL.USER_ID,
6899: last_update_login = FND_GLOBAL.LOGIN_ID
6892:
6893: update PSB_POSITION_COSTS
6894: set element_cost = p_element_cost,
6895: start_date = decode(p_start_date, FND_API.G_MISS_DATE, start_date, p_start_date),
6896: end_date = decode(p_end_date, FND_API.G_MISS_DATE, end_date, p_end_date),
6897: last_update_date = sysdate,
6898: last_updated_by = FND_GLOBAL.USER_ID,
6899: last_update_login = FND_GLOBAL.LOGIN_ID
6900: where position_element_line_id = p_position_element_line_id;
6899: last_update_login = FND_GLOBAL.LOGIN_ID
6900: where position_element_line_id = p_position_element_line_id;
6901:
6902: -- Initialize API return status to success
6903: p_return_status := FND_API.G_RET_STS_SUCCESS;
6904:
6905: EXCEPTION
6906:
6907: when FND_API.G_EXC_ERROR then
6903: p_return_status := FND_API.G_RET_STS_SUCCESS;
6904:
6905: EXCEPTION
6906:
6907: when FND_API.G_EXC_ERROR then
6908: p_return_status := FND_API.G_RET_STS_ERROR;
6909:
6910: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6911: p_data => p_msg_data);
6904:
6905: EXCEPTION
6906:
6907: when FND_API.G_EXC_ERROR then
6908: p_return_status := FND_API.G_RET_STS_ERROR;
6909:
6910: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6911: p_data => p_msg_data);
6912:
6909:
6910: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6911: p_data => p_msg_data);
6912:
6913: when FND_API.G_EXC_UNEXPECTED_ERROR then
6914: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6915:
6916: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6917: p_data => p_msg_data);
6910: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6911: p_data => p_msg_data);
6912:
6913: when FND_API.G_EXC_UNEXPECTED_ERROR then
6914: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6915:
6916: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6917: p_data => p_msg_data);
6918:
6916: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6917: p_data => p_msg_data);
6918:
6919: when OTHERS then
6920: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6921:
6922: if FND_MSG_PUB.Check_Msg_Level
6923: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
6924: FND_MSG_PUB.Add_Exc_Msg
6947: delete from PSB_POSITION_COSTS
6948: where position_element_line_id = p_position_element_line_id;
6949:
6950: -- Initialize API return status to success
6951: p_return_status := FND_API.G_RET_STS_SUCCESS;
6952:
6953: EXCEPTION
6954:
6955: when FND_API.G_EXC_ERROR then
6951: p_return_status := FND_API.G_RET_STS_SUCCESS;
6952:
6953: EXCEPTION
6954:
6955: when FND_API.G_EXC_ERROR then
6956: p_return_status := FND_API.G_RET_STS_ERROR;
6957:
6958: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6959: p_data => p_msg_data);
6952:
6953: EXCEPTION
6954:
6955: when FND_API.G_EXC_ERROR then
6956: p_return_status := FND_API.G_RET_STS_ERROR;
6957:
6958: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6959: p_data => p_msg_data);
6960:
6957:
6958: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6959: p_data => p_msg_data);
6960:
6961: when FND_API.G_EXC_UNEXPECTED_ERROR then
6962: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6963:
6964: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6965: p_data => p_msg_data);
6958: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6959: p_data => p_msg_data);
6960:
6961: when FND_API.G_EXC_UNEXPECTED_ERROR then
6962: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6963:
6964: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6965: p_data => p_msg_data);
6966:
6964: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6965: p_data => p_msg_data);
6966:
6967: when OTHERS then
6968: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6969:
6970: if FND_MSG_PUB.Check_Msg_Level
6971: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
6972: FND_MSG_PUB.Add_Exc_Msg
6982: /* ----------------------------------------------------------------------- */
6983:
6984: PROCEDURE Modify_Position_Costs
6985: ( p_api_version IN NUMBER,
6986: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6987: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6988: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
6989: p_return_status OUT NOCOPY VARCHAR2,
6990: p_msg_count OUT NOCOPY NUMBER,
6983:
6984: PROCEDURE Modify_Position_Costs
6985: ( p_api_version IN NUMBER,
6986: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6987: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6988: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
6989: p_return_status OUT NOCOPY VARCHAR2,
6990: p_msg_count OUT NOCOPY NUMBER,
6991: p_msg_data OUT NOCOPY VARCHAR2,
6984: PROCEDURE Modify_Position_Costs
6985: ( p_api_version IN NUMBER,
6986: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6987: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6988: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
6989: p_return_status OUT NOCOPY VARCHAR2,
6990: p_msg_count OUT NOCOPY NUMBER,
6991: p_msg_data OUT NOCOPY VARCHAR2,
6992: p_position_id IN NUMBER,
7021: and nvl(hr_budget_id, -1) = nvl(p_hr_budget_id, -1)
7022: and pay_element_id = p_pay_element_id
7023: and currency_code = p_currency_code
7024: and nvl(budget_revision_id, -1) = nvl(p_budget_revision_id, -1)
7025: and nvl(base_line_version, FND_API.G_MISS_CHAR) = nvl(p_base_line_version, FND_API.G_MISS_CHAR)
7026: and ((((p_end_date is not null)
7027: and ((start_date <= p_end_date)
7028: and (end_date is null))
7029: or ((start_date between p_start_date and p_end_date)
7036: BEGIN
7037:
7038: -- Standard call to check for call compatibility.
7039:
7040: if not FND_API.Compatible_API_Call (l_api_version,
7041: p_api_version,
7042: l_api_name,
7043: G_PKG_NAME)
7044: then
7041: p_api_version,
7042: l_api_name,
7043: G_PKG_NAME)
7044: then
7045: raise FND_API.G_EXC_UNEXPECTED_ERROR;
7046: end if;
7047:
7048: -- Initialize message list if p_init_msg_list is set to TRUE.
7049:
7046: end if;
7047:
7048: -- Initialize message list if p_init_msg_list is set to TRUE.
7049:
7050: if FND_API.to_Boolean (p_init_msg_list) then
7051: FND_MSG_PUB.initialize;
7052: end if;
7053:
7054: /*For Bug No : 1808322 Start*/
7063: and nvl(hr_budget_id, -1) = nvl(p_hr_budget_id, -1)
7064: and pay_element_id = p_pay_element_id
7065: and currency_code = p_currency_code
7066: and nvl(budget_revision_id, -1) = nvl(p_budget_revision_id, -1)
7067: and nvl(base_line_version, FND_API.G_MISS_CHAR) = nvl(p_base_line_version, FND_API.G_MISS_CHAR)
7068: and start_date = p_start_date
7069: and nvl(end_date, FND_API.G_MISS_DATE) = nvl(p_end_date, FND_API.G_MISS_DATE);
7070:
7071: /*For Bug No : 1808322 Start*/
7065: and currency_code = p_currency_code
7066: and nvl(budget_revision_id, -1) = nvl(p_budget_revision_id, -1)
7067: and nvl(base_line_version, FND_API.G_MISS_CHAR) = nvl(p_base_line_version, FND_API.G_MISS_CHAR)
7068: and start_date = p_start_date
7069: and nvl(end_date, FND_API.G_MISS_DATE) = nvl(p_end_date, FND_API.G_MISS_DATE);
7070:
7071: /*For Bug No : 1808322 Start*/
7072: IF SQL%NOTFOUND THEN
7073: l_update_flag := FALSE;
7134: p_element_cost => p_element_cost,
7135: p_budget_revision_id => p_budget_revision_id,
7136: p_base_line_version => p_base_line_version);
7137:
7138: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7139: raise FND_API.G_EXC_ERROR;
7140: end if;
7141:
7142: end;
7135: p_budget_revision_id => p_budget_revision_id,
7136: p_base_line_version => p_base_line_version);
7137:
7138: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7139: raise FND_API.G_EXC_ERROR;
7140: end if;
7141:
7142: end;
7143: else
7159: p_position_element_line_id => g_costs(l_cost_index).position_element_line_id,
7160: p_end_date => p_end_date,
7161: p_element_cost => p_element_cost);
7162:
7163: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7164: raise FND_API.G_EXC_ERROR;
7165: end if;
7166:
7167: g_costs(l_cost_index).delete_flag := FALSE;
7160: p_end_date => p_end_date,
7161: p_element_cost => p_element_cost);
7162:
7163: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7164: raise FND_API.G_EXC_ERROR;
7165: end if;
7166:
7167: g_costs(l_cost_index).delete_flag := FALSE;
7168:
7193: p_original_end_date => g_costs(l_cost_index).end_date,
7194: p_new_start_date => g_costs(l_cost_index).start_date,
7195: p_new_end_date => p_start_date - 1));
7196:
7197: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7198: raise FND_API.G_EXC_ERROR;
7199: else
7200: l_updated_record := TRUE;
7201: end if;
7194: p_new_start_date => g_costs(l_cost_index).start_date,
7195: p_new_end_date => p_start_date - 1));
7196:
7197: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7198: raise FND_API.G_EXC_ERROR;
7199: else
7200: l_updated_record := TRUE;
7201: end if;
7202:
7220: p_original_end_date => g_costs(l_cost_index).end_date,
7221: p_new_start_date => p_end_date + 1,
7222: p_new_end_date => g_costs(l_cost_index).end_date));
7223:
7224: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7225: raise FND_API.G_EXC_ERROR;
7226: else
7227: l_updated_record := FALSE;
7228: end if;
7221: p_new_start_date => p_end_date + 1,
7222: p_new_end_date => g_costs(l_cost_index).end_date));
7223:
7224: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7225: raise FND_API.G_EXC_ERROR;
7226: else
7227: l_updated_record := FALSE;
7228: end if;
7229:
7248: p_element_cost => p_element_cost,
7249: p_budget_revision_id => p_budget_revision_id,
7250: p_base_line_version => p_base_line_version);
7251:
7252: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7253: raise FND_API.G_EXC_ERROR;
7254: else
7255: l_created_record := TRUE;
7256: end if;
7249: p_budget_revision_id => p_budget_revision_id,
7250: p_base_line_version => p_base_line_version);
7251:
7252: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7253: raise FND_API.G_EXC_ERROR;
7254: else
7255: l_created_record := TRUE;
7256: end if;
7257:
7284: p_new_end_date => g_costs(l_cost_index).end_date),
7285: p_budget_revision_id => g_costs(l_cost_index).budget_revision_id,
7286: p_base_line_version => g_costs(l_cost_index).base_line_version);
7287:
7288: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7289: raise FND_API.G_EXC_ERROR;
7290: end if;
7291:
7292: end;
7285: p_budget_revision_id => g_costs(l_cost_index).budget_revision_id,
7286: p_base_line_version => g_costs(l_cost_index).base_line_version);
7287:
7288: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7289: raise FND_API.G_EXC_ERROR;
7290: end if;
7291:
7292: end;
7293: else
7305: p_original_end_date => g_costs(l_cost_index).end_date,
7306: p_new_start_date => p_end_date + 1,
7307: p_new_end_date => g_costs(l_cost_index).end_date));
7308:
7309: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7310: raise FND_API.G_EXC_ERROR;
7311: end if;
7312:
7313: g_costs(l_cost_index).delete_flag := FALSE;
7306: p_new_start_date => p_end_date + 1,
7307: p_new_end_date => g_costs(l_cost_index).end_date));
7308:
7309: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7310: raise FND_API.G_EXC_ERROR;
7311: end if;
7312:
7313: g_costs(l_cost_index).delete_flag := FALSE;
7314:
7339: p_msg_count => l_msg_count,
7340: p_msg_data => l_msg_data,
7341: p_position_element_line_id => g_costs(l_cost_index).position_element_line_id);
7342:
7343: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7344: raise FND_API.G_EXC_ERROR;
7345: end if;
7346:
7347: end;
7340: p_msg_data => l_msg_data,
7341: p_position_element_line_id => g_costs(l_cost_index).position_element_line_id);
7342:
7343: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7344: raise FND_API.G_EXC_ERROR;
7345: end if;
7346:
7347: end;
7348: end if;
7352: end;
7353: end if;
7354:
7355: -- Standard check of p_commit.
7356: if FND_API.to_Boolean (p_commit) then
7357: commit work;
7358: end if;
7359:
7360: -- Standard call to get message count and if count is 1, get message info.
7361: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7362: p_data => p_msg_data);
7363:
7364: -- Initialize API return status to success
7365: p_return_status := FND_API.G_RET_STS_SUCCESS;
7366:
7367: EXCEPTION
7368:
7369: when FND_API.G_EXC_ERROR then
7365: p_return_status := FND_API.G_RET_STS_SUCCESS;
7366:
7367: EXCEPTION
7368:
7369: when FND_API.G_EXC_ERROR then
7370: p_return_status := FND_API.G_RET_STS_ERROR;
7371:
7372: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7373: p_data => p_msg_data);
7366:
7367: EXCEPTION
7368:
7369: when FND_API.G_EXC_ERROR then
7370: p_return_status := FND_API.G_RET_STS_ERROR;
7371:
7372: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7373: p_data => p_msg_data);
7374:
7371:
7372: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7373: p_data => p_msg_data);
7374:
7375: when FND_API.G_EXC_UNEXPECTED_ERROR then
7376: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7377:
7378: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7379: p_data => p_msg_data);
7372: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7373: p_data => p_msg_data);
7374:
7375: when FND_API.G_EXC_UNEXPECTED_ERROR then
7376: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7377:
7378: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7379: p_data => p_msg_data);
7380:
7378: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7379: p_data => p_msg_data);
7380:
7381: when OTHERS then
7382: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7383:
7384: if FND_MSG_PUB.Check_Msg_Level
7385: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
7386: FND_MSG_PUB.Add_Exc_Msg
7423: p_start_date, p_end_date, nvl(p_fte, 0), sysdate, FND_GLOBAL.USER_ID, FND_GLOBAL.LOGIN_ID,
7424: FND_GLOBAL.USER_ID, sysdate) RETURNING position_fte_line_id INTO l_position_fte_line_id;
7425:
7426: -- Initialize API return status to success
7427: p_return_status := FND_API.G_RET_STS_SUCCESS;
7428:
7429: EXCEPTION
7430:
7431: when FND_API.G_EXC_ERROR then
7427: p_return_status := FND_API.G_RET_STS_SUCCESS;
7428:
7429: EXCEPTION
7430:
7431: when FND_API.G_EXC_ERROR then
7432: p_return_status := FND_API.G_RET_STS_ERROR;
7433:
7434: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7435: p_data => p_msg_data);
7428:
7429: EXCEPTION
7430:
7431: when FND_API.G_EXC_ERROR then
7432: p_return_status := FND_API.G_RET_STS_ERROR;
7433:
7434: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7435: p_data => p_msg_data);
7436:
7433:
7434: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7435: p_data => p_msg_data);
7436:
7437: when FND_API.G_EXC_UNEXPECTED_ERROR then
7438: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7439:
7440: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7441: p_data => p_msg_data);
7434: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7435: p_data => p_msg_data);
7436:
7437: when FND_API.G_EXC_UNEXPECTED_ERROR then
7438: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7439:
7440: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7441: p_data => p_msg_data);
7442:
7440: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7441: p_data => p_msg_data);
7442:
7443: when OTHERS then
7444: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7445:
7446: if FND_MSG_PUB.Check_Msg_Level
7447: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
7448: FND_MSG_PUB.Add_Exc_Msg
7461: ( p_return_status OUT NOCOPY VARCHAR2,
7462: p_msg_count OUT NOCOPY NUMBER,
7463: p_msg_data OUT NOCOPY VARCHAR2,
7464: p_position_fte_line_id IN NUMBER,
7465: p_start_date IN DATE := FND_API.G_MISS_DATE,
7466: p_end_date IN DATE := FND_API.G_MISS_DATE,
7467: p_fte IN NUMBER
7468: ) IS
7469:
7462: p_msg_count OUT NOCOPY NUMBER,
7463: p_msg_data OUT NOCOPY VARCHAR2,
7464: p_position_fte_line_id IN NUMBER,
7465: p_start_date IN DATE := FND_API.G_MISS_DATE,
7466: p_end_date IN DATE := FND_API.G_MISS_DATE,
7467: p_fte IN NUMBER
7468: ) IS
7469:
7470: l_api_name CONSTANT VARCHAR2(30) := 'Update_Position_FTE';
7472: BEGIN
7473:
7474: update PSB_POSITION_FTE
7475: set fte = nvl(p_fte, 0),
7476: start_date = decode(p_start_date, FND_API.G_MISS_DATE, start_date, p_start_date),
7477: end_date = decode(p_end_date, FND_API.G_MISS_DATE, end_date, p_end_date),
7478: last_update_date = sysdate,
7479: last_updated_by = FND_GLOBAL.USER_ID,
7480: last_update_login = FND_GLOBAL.LOGIN_ID
7473:
7474: update PSB_POSITION_FTE
7475: set fte = nvl(p_fte, 0),
7476: start_date = decode(p_start_date, FND_API.G_MISS_DATE, start_date, p_start_date),
7477: end_date = decode(p_end_date, FND_API.G_MISS_DATE, end_date, p_end_date),
7478: last_update_date = sysdate,
7479: last_updated_by = FND_GLOBAL.USER_ID,
7480: last_update_login = FND_GLOBAL.LOGIN_ID
7481: where position_fte_line_id = p_position_fte_line_id;
7480: last_update_login = FND_GLOBAL.LOGIN_ID
7481: where position_fte_line_id = p_position_fte_line_id;
7482:
7483: -- Initialize API return status to success
7484: p_return_status := FND_API.G_RET_STS_SUCCESS;
7485:
7486: EXCEPTION
7487:
7488: when FND_API.G_EXC_ERROR then
7484: p_return_status := FND_API.G_RET_STS_SUCCESS;
7485:
7486: EXCEPTION
7487:
7488: when FND_API.G_EXC_ERROR then
7489: p_return_status := FND_API.G_RET_STS_ERROR;
7490:
7491: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7492: p_data => p_msg_data);
7485:
7486: EXCEPTION
7487:
7488: when FND_API.G_EXC_ERROR then
7489: p_return_status := FND_API.G_RET_STS_ERROR;
7490:
7491: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7492: p_data => p_msg_data);
7493:
7490:
7491: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7492: p_data => p_msg_data);
7493:
7494: when FND_API.G_EXC_UNEXPECTED_ERROR then
7495: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7496:
7497: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7498: p_data => p_msg_data);
7491: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7492: p_data => p_msg_data);
7493:
7494: when FND_API.G_EXC_UNEXPECTED_ERROR then
7495: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7496:
7497: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7498: p_data => p_msg_data);
7499:
7497: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7498: p_data => p_msg_data);
7499:
7500: when OTHERS then
7501: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7502:
7503: if FND_MSG_PUB.Check_Msg_Level
7504: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
7505: FND_MSG_PUB.Add_Exc_Msg
7528: delete from PSB_POSITION_FTE
7529: where position_fte_line_id = p_position_fte_line_id;
7530:
7531: -- Initialize API return status to success
7532: p_return_status := FND_API.G_RET_STS_SUCCESS;
7533:
7534: EXCEPTION
7535:
7536: when FND_API.G_EXC_ERROR then
7532: p_return_status := FND_API.G_RET_STS_SUCCESS;
7533:
7534: EXCEPTION
7535:
7536: when FND_API.G_EXC_ERROR then
7537: p_return_status := FND_API.G_RET_STS_ERROR;
7538:
7539: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7540: p_data => p_msg_data);
7533:
7534: EXCEPTION
7535:
7536: when FND_API.G_EXC_ERROR then
7537: p_return_status := FND_API.G_RET_STS_ERROR;
7538:
7539: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7540: p_data => p_msg_data);
7541:
7538:
7539: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7540: p_data => p_msg_data);
7541:
7542: when FND_API.G_EXC_UNEXPECTED_ERROR then
7543: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7544:
7545: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7546: p_data => p_msg_data);
7539: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7540: p_data => p_msg_data);
7541:
7542: when FND_API.G_EXC_UNEXPECTED_ERROR then
7543: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7544:
7545: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7546: p_data => p_msg_data);
7547:
7545: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7546: p_data => p_msg_data);
7547:
7548: when OTHERS then
7549: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7550:
7551: if FND_MSG_PUB.Check_Msg_Level
7552: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
7553: FND_MSG_PUB.Add_Exc_Msg
7563: /* ----------------------------------------------------------------------- */
7564:
7565: PROCEDURE Modify_Position_FTE
7566: ( p_api_version IN NUMBER,
7567: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7568: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7569: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
7570: p_return_status OUT NOCOPY VARCHAR2,
7571: p_msg_count OUT NOCOPY NUMBER,
7564:
7565: PROCEDURE Modify_Position_FTE
7566: ( p_api_version IN NUMBER,
7567: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7568: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7569: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
7570: p_return_status OUT NOCOPY VARCHAR2,
7571: p_msg_count OUT NOCOPY NUMBER,
7572: p_msg_data OUT NOCOPY VARCHAR2,
7565: PROCEDURE Modify_Position_FTE
7566: ( p_api_version IN NUMBER,
7567: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7568: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7569: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
7570: p_return_status OUT NOCOPY VARCHAR2,
7571: p_msg_count OUT NOCOPY NUMBER,
7572: p_msg_data OUT NOCOPY VARCHAR2,
7573: p_position_id IN NUMBER,
7598: from PSB_POSITION_FTE
7599: where position_id = p_position_id
7600: and nvl(hr_budget_id, -1) = nvl(p_hr_budget_id, -1)
7601: and nvl(budget_revision_id, -1) = nvl(p_budget_revision_id, -1)
7602: and nvl(base_line_version, FND_API.G_MISS_CHAR) = nvl(p_base_line_version, FND_API.G_MISS_CHAR)
7603: and ((((p_end_date is not null)
7604: and ((start_date <= p_end_date)
7605: and (end_date is null))
7606: or ((start_date between p_start_date and p_end_date)
7613: BEGIN
7614:
7615: -- Standard call to check for call compatibility.
7616:
7617: if not FND_API.Compatible_API_Call (l_api_version,
7618: p_api_version,
7619: l_api_name,
7620: G_PKG_NAME)
7621: then
7618: p_api_version,
7619: l_api_name,
7620: G_PKG_NAME)
7621: then
7622: raise FND_API.G_EXC_UNEXPECTED_ERROR;
7623: end if;
7624:
7625: -- Initialize message list if p_init_msg_list is set to TRUE.
7626:
7623: end if;
7624:
7625: -- Initialize message list if p_init_msg_list is set to TRUE.
7626:
7627: if FND_API.to_Boolean (p_init_msg_list) then
7628: FND_MSG_PUB.initialize;
7629: end if;
7630:
7631: /*For Bug No : 1808322 Start*/
7639: last_update_login = FND_GLOBAL.LOGIN_ID
7640: where position_id = p_position_id
7641: and nvl(hr_budget_id, -1) = nvl(p_hr_budget_id, -1)
7642: and nvl(budget_revision_id, -1) = nvl(p_budget_revision_id, -1)
7643: and nvl(base_line_version, FND_API.G_MISS_CHAR) = nvl(p_base_line_version, FND_API.G_MISS_CHAR)
7644: and start_date = p_start_date
7645: and nvl(end_date, FND_API.G_MISS_DATE) = nvl(p_end_date, FND_API.G_MISS_DATE);
7646:
7647: /*For Bug No : 1808322 Start*/
7641: and nvl(hr_budget_id, -1) = nvl(p_hr_budget_id, -1)
7642: and nvl(budget_revision_id, -1) = nvl(p_budget_revision_id, -1)
7643: and nvl(base_line_version, FND_API.G_MISS_CHAR) = nvl(p_base_line_version, FND_API.G_MISS_CHAR)
7644: and start_date = p_start_date
7645: and nvl(end_date, FND_API.G_MISS_DATE) = nvl(p_end_date, FND_API.G_MISS_DATE);
7646:
7647: /*For Bug No : 1808322 Start*/
7648: IF SQL%NOTFOUND THEN
7649: l_update_flag := FALSE;
7703: p_fte => p_fte,
7704: p_budget_revision_id => p_budget_revision_id,
7705: p_base_line_version => p_base_line_version);
7706:
7707: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7708: raise FND_API.G_EXC_ERROR;
7709: end if;
7710:
7711: end;
7704: p_budget_revision_id => p_budget_revision_id,
7705: p_base_line_version => p_base_line_version);
7706:
7707: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7708: raise FND_API.G_EXC_ERROR;
7709: end if;
7710:
7711: end;
7712: else
7728: p_position_fte_line_id => g_fte(l_fte_index).position_fte_line_id,
7729: p_end_date => p_end_date,
7730: p_fte => p_fte);
7731:
7732: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7733: raise FND_API.G_EXC_ERROR;
7734: end if;
7735:
7736: g_fte(l_fte_index).delete_flag := FALSE;
7729: p_end_date => p_end_date,
7730: p_fte => p_fte);
7731:
7732: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7733: raise FND_API.G_EXC_ERROR;
7734: end if;
7735:
7736: g_fte(l_fte_index).delete_flag := FALSE;
7737:
7758: p_position_fte_line_id => g_fte(l_fte_index).position_fte_line_id,
7759: p_end_date => p_start_date - 1,
7760: p_fte => g_fte(l_fte_index).fte);
7761:
7762: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7763: raise FND_API.G_EXC_ERROR;
7764: else
7765: l_updated_record := TRUE;
7766: end if;
7759: p_end_date => p_start_date - 1,
7760: p_fte => g_fte(l_fte_index).fte);
7761:
7762: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7763: raise FND_API.G_EXC_ERROR;
7764: else
7765: l_updated_record := TRUE;
7766: end if;
7767:
7781: p_position_fte_line_id => g_fte(l_fte_index).position_fte_line_id,
7782: p_start_date => p_end_date + 1,
7783: p_fte => g_fte(l_fte_index).fte);
7784:
7785: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7786: raise FND_API.G_EXC_ERROR;
7787: else
7788: l_updated_record := FALSE;
7789: end if;
7782: p_start_date => p_end_date + 1,
7783: p_fte => g_fte(l_fte_index).fte);
7784:
7785: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7786: raise FND_API.G_EXC_ERROR;
7787: else
7788: l_updated_record := FALSE;
7789: end if;
7790:
7807: p_fte => p_fte,
7808: p_budget_revision_id => p_budget_revision_id,
7809: p_base_line_version => p_base_line_version);
7810:
7811: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7812: raise FND_API.G_EXC_ERROR;
7813: else
7814: l_created_record := TRUE;
7815: end if;
7808: p_budget_revision_id => p_budget_revision_id,
7809: p_base_line_version => p_base_line_version);
7810:
7811: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7812: raise FND_API.G_EXC_ERROR;
7813: else
7814: l_created_record := TRUE;
7815: end if;
7816:
7837: p_fte => g_fte(l_fte_index).fte,
7838: p_budget_revision_id => g_fte(l_fte_index).budget_revision_id,
7839: p_base_line_version => g_fte(l_fte_index).base_line_version);
7840:
7841: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7842: raise FND_API.G_EXC_ERROR;
7843: end if;
7844:
7845: end;
7838: p_budget_revision_id => g_fte(l_fte_index).budget_revision_id,
7839: p_base_line_version => g_fte(l_fte_index).base_line_version);
7840:
7841: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7842: raise FND_API.G_EXC_ERROR;
7843: end if;
7844:
7845: end;
7846: else
7854: p_start_date => p_end_date + 1,
7855: p_end_date => g_fte(l_fte_index).end_date,
7856: p_fte => g_fte(l_fte_index).fte);
7857:
7858: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7859: raise FND_API.G_EXC_ERROR;
7860: end if;
7861:
7862: g_fte(l_fte_index).delete_flag := FALSE;
7855: p_end_date => g_fte(l_fte_index).end_date,
7856: p_fte => g_fte(l_fte_index).fte);
7857:
7858: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7859: raise FND_API.G_EXC_ERROR;
7860: end if;
7861:
7862: g_fte(l_fte_index).delete_flag := FALSE;
7863:
7888: p_msg_count => l_msg_count,
7889: p_msg_data => l_msg_data,
7890: p_position_fte_line_id => g_fte(l_fte_index).position_fte_line_id);
7891:
7892: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7893: raise FND_API.G_EXC_ERROR;
7894: end if;
7895:
7896: end;
7889: p_msg_data => l_msg_data,
7890: p_position_fte_line_id => g_fte(l_fte_index).position_fte_line_id);
7891:
7892: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7893: raise FND_API.G_EXC_ERROR;
7894: end if;
7895:
7896: end;
7897: end if;
7901: end;
7902: end if;
7903:
7904: -- Standard check of p_commit.
7905: if FND_API.to_Boolean (p_commit) then
7906: commit work;
7907: end if;
7908:
7909: -- Standard call to get message count and if count is 1, get message info.
7910: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7911: p_data => p_msg_data);
7912:
7913: -- Initialize API return status to success
7914: p_return_status := FND_API.G_RET_STS_SUCCESS;
7915:
7916: EXCEPTION
7917:
7918: when FND_API.G_EXC_ERROR then
7914: p_return_status := FND_API.G_RET_STS_SUCCESS;
7915:
7916: EXCEPTION
7917:
7918: when FND_API.G_EXC_ERROR then
7919: p_return_status := FND_API.G_RET_STS_ERROR;
7920:
7921: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7922: p_data => p_msg_data);
7915:
7916: EXCEPTION
7917:
7918: when FND_API.G_EXC_ERROR then
7919: p_return_status := FND_API.G_RET_STS_ERROR;
7920:
7921: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7922: p_data => p_msg_data);
7923:
7920:
7921: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7922: p_data => p_msg_data);
7923:
7924: when FND_API.G_EXC_UNEXPECTED_ERROR then
7925: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7926:
7927: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7928: p_data => p_msg_data);
7921: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7922: p_data => p_msg_data);
7923:
7924: when FND_API.G_EXC_UNEXPECTED_ERROR then
7925: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7926:
7927: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7928: p_data => p_msg_data);
7929:
7927: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7928: p_data => p_msg_data);
7929:
7930: when OTHERS then
7931: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7932:
7933: if FND_MSG_PUB.Check_Msg_Level
7934: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
7935: FND_MSG_PUB.Add_Exc_Msg
7989: if l_org_notmapped then
7990: FND_MESSAGE.SET_NAME('PSB','PSB_DEBUG_MESSAGE');
7991: FND_MESSAGE.SET_TOKEN('MESSAGE', ' Org Mapping Failed');
7992: FND_MSG_PUB.Add;
7993: raise FND_API.G_EXC_ERROR;
7994: end if;
7995:
7996: -- Initialize API return status to success
7997: p_return_status := FND_API.G_RET_STS_SUCCESS;
7993: raise FND_API.G_EXC_ERROR;
7994: end if;
7995:
7996: -- Initialize API return status to success
7997: p_return_status := FND_API.G_RET_STS_SUCCESS;
7998:
7999: EXCEPTION
8000:
8001: when FND_API.G_EXC_ERROR then
7997: p_return_status := FND_API.G_RET_STS_SUCCESS;
7998:
7999: EXCEPTION
8000:
8001: when FND_API.G_EXC_ERROR then
8002: p_return_status := FND_API.G_RET_STS_ERROR;
8003:
8004: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8005: p_data => p_msg_data);
7998:
7999: EXCEPTION
8000:
8001: when FND_API.G_EXC_ERROR then
8002: p_return_status := FND_API.G_RET_STS_ERROR;
8003:
8004: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8005: p_data => p_msg_data);
8006:
8003:
8004: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8005: p_data => p_msg_data);
8006:
8007: when FND_API.G_EXC_UNEXPECTED_ERROR then
8008: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8009:
8010: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8011: p_data => p_msg_data);
8004: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8005: p_data => p_msg_data);
8006:
8007: when FND_API.G_EXC_UNEXPECTED_ERROR then
8008: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8009:
8010: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8011: p_data => p_msg_data);
8012:
8010: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8011: p_data => p_msg_data);
8012:
8013: when OTHERS then
8014: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8015:
8016: if FND_MSG_PUB.Check_Msg_Level
8017: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
8018: FND_MSG_PUB.Add_Exc_Msg
8112:
8113: message_token('PSB_PERIOD_TYPE', l_psb_period);
8114: message_token('HRMS_PERIOD_TYPE', l_hrms_period);
8115: add_message('PSB', 'PSB_PQH_PERIOD_TYPE_MISMATCH');
8116: raise FND_API.G_EXC_ERROR;
8117:
8118: end;
8119: end if;
8120:
8118: end;
8119: end if;
8120:
8121: -- Initialize API return status to success
8122: p_return_status := FND_API.G_RET_STS_SUCCESS;
8123:
8124: EXCEPTION
8125:
8126: when FND_API.G_EXC_ERROR then
8122: p_return_status := FND_API.G_RET_STS_SUCCESS;
8123:
8124: EXCEPTION
8125:
8126: when FND_API.G_EXC_ERROR then
8127: p_return_status := FND_API.G_RET_STS_ERROR;
8128:
8129: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8130: p_data => p_msg_data);
8123:
8124: EXCEPTION
8125:
8126: when FND_API.G_EXC_ERROR then
8127: p_return_status := FND_API.G_RET_STS_ERROR;
8128:
8129: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8130: p_data => p_msg_data);
8131:
8128:
8129: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8130: p_data => p_msg_data);
8131:
8132: when FND_API.G_EXC_UNEXPECTED_ERROR then
8133: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8134:
8135: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8136: p_data => p_msg_data);
8129: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8130: p_data => p_msg_data);
8131:
8132: when FND_API.G_EXC_UNEXPECTED_ERROR then
8133: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8134:
8135: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8136: p_data => p_msg_data);
8137:
8135: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8136: p_data => p_msg_data);
8137:
8138: when OTHERS then
8139: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8140:
8141: if FND_MSG_PUB.Check_Msg_Level
8142: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
8143: FND_MSG_PUB.Add_Exc_Msg
8293: PROCEDURE Validate_Budget_Document
8294: ( p_return_status OUT NOCOPY VARCHAR2,
8295: p_msg_count OUT NOCOPY NUMBER,
8296: p_msg_data OUT NOCOPY VARCHAR2,
8297: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8298: p_event_type IN VARCHAR2,
8299: p_source_id IN NUMBER,
8300: p_data_extract_id IN NUMBER,
8301: p_system_data_extract_id IN NUMBER) IS
8341: p_position_id => c_position_rec.position_id)) then
8342: begin
8343:
8344: /*For Bug No : 2292003 Start*/
8345: /*if p_validation_level = FND_API.G_VALID_LEVEL_NONE then
8346: --changed the c_position_rec.effective_start_date to g_de_as_of_date
8347: --in the following call of the procedure
8348: l_payroll_id := Get_Payroll(p_hr_position_id => c_position_rec.hr_position_id,
8349: p_data_extract_id => p_data_extract_id
8357: end if;*/
8358: /*For Bug No : 2292003 End*/
8359:
8360: -- check that all positions are mapped to HR positions
8361: if p_validation_level = FND_API.G_VALID_LEVEL_FULL then
8362: for c_no_hr_position_rec in c_no_hr_position (c_position_rec.position_id) loop
8363: /* Fix for Bug #2642767 Start */
8364: if c_no_hr_position_rec.transaction_id is null then
8365: message_token('POSITION',c_no_hr_position_rec.name);
8390: p_position_id => c_position_rec.position_id)) then
8391: begin
8392:
8393: /*For Bug No : 2292003 Start*/
8394: /*if p_validation_level = FND_API.G_VALID_LEVEL_NONE then
8395: --changed the c_position_rec.effective_start_date to g_de_as_of_date
8396: --in the following call of the procedure
8397: l_payroll_id := Get_Payroll(p_hr_position_id => c_position_rec.hr_position_id,
8398: p_data_extract_id => p_system_data_extract_id,
8406: end if;*/
8407: /*For Bug No : 2292003 End*/
8408:
8409: -- check that all positions are mapped to HR positions
8410: if p_validation_level = FND_API.G_VALID_LEVEL_FULL then
8411: for c_no_hr_position_rec in c_no_hr_position (c_position_rec.position_id) loop
8412: /* Fix for Bug #2642767 Start */
8413: if c_no_hr_position_rec.transaction_id is null then
8414: message_token('POSITION',c_no_hr_position_rec.name);
8433: if (l_no_hr_pos_count > 0) then
8434: FND_MESSAGE.SET_NAME('PSB','PSB_DEBUG_MESSAGE');
8435: FND_MESSAGE.SET_TOKEN('MESSAGE', 'No HR Pos Count');
8436: FND_MSG_PUB.Add;
8437: raise FND_API.G_EXC_ERROR;
8438: end if;
8439:
8440: -- Initialize API return status to success
8441: p_return_status := FND_API.G_RET_STS_SUCCESS;
8437: raise FND_API.G_EXC_ERROR;
8438: end if;
8439:
8440: -- Initialize API return status to success
8441: p_return_status := FND_API.G_RET_STS_SUCCESS;
8442:
8443: EXCEPTION
8444:
8445: when FND_API.G_EXC_ERROR then
8441: p_return_status := FND_API.G_RET_STS_SUCCESS;
8442:
8443: EXCEPTION
8444:
8445: when FND_API.G_EXC_ERROR then
8446: p_return_status := FND_API.G_RET_STS_ERROR;
8447:
8448: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8449: p_data => p_msg_data);
8442:
8443: EXCEPTION
8444:
8445: when FND_API.G_EXC_ERROR then
8446: p_return_status := FND_API.G_RET_STS_ERROR;
8447:
8448: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8449: p_data => p_msg_data);
8450:
8447:
8448: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8449: p_data => p_msg_data);
8450:
8451: when FND_API.G_EXC_UNEXPECTED_ERROR then
8452: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8453:
8454: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8455: p_data => p_msg_data);
8448: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8449: p_data => p_msg_data);
8450:
8451: when FND_API.G_EXC_UNEXPECTED_ERROR then
8452: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8453:
8454: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8455: p_data => p_msg_data);
8456:
8454: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8455: p_data => p_msg_data);
8456:
8457: when OTHERS then
8458: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8459:
8460: if FND_MSG_PUB.Check_Msg_Level
8461: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
8462: FND_MSG_PUB.Add_Exc_Msg
8505: if l_no_elem_count > 0 then
8506: FND_MESSAGE.SET_NAME('PSB','PSB_DEBUG_MESSAGE');
8507: FND_MESSAGE.SET_TOKEN('MESSAGE', 'No Element Count');
8508: FND_MSG_PUB.Add;
8509: raise FND_API.G_EXC_ERROR;
8510: end if;
8511:
8512: -- Initialize API return status to success
8513: p_return_status := FND_API.G_RET_STS_SUCCESS;
8509: raise FND_API.G_EXC_ERROR;
8510: end if;
8511:
8512: -- Initialize API return status to success
8513: p_return_status := FND_API.G_RET_STS_SUCCESS;
8514:
8515: EXCEPTION
8516:
8517: when FND_API.G_EXC_ERROR then
8513: p_return_status := FND_API.G_RET_STS_SUCCESS;
8514:
8515: EXCEPTION
8516:
8517: when FND_API.G_EXC_ERROR then
8518: p_return_status := FND_API.G_RET_STS_ERROR;
8519:
8520: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8521: p_data => p_msg_data);
8514:
8515: EXCEPTION
8516:
8517: when FND_API.G_EXC_ERROR then
8518: p_return_status := FND_API.G_RET_STS_ERROR;
8519:
8520: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8521: p_data => p_msg_data);
8522:
8519:
8520: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8521: p_data => p_msg_data);
8522:
8523: when FND_API.G_EXC_UNEXPECTED_ERROR then
8524: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8525:
8526: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8527: p_data => p_msg_data);
8520: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8521: p_data => p_msg_data);
8522:
8523: when FND_API.G_EXC_UNEXPECTED_ERROR then
8524: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8525:
8526: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8527: p_data => p_msg_data);
8528:
8526: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8527: p_data => p_msg_data);
8528:
8529: when OTHERS then
8530: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8531:
8532: if FND_MSG_PUB.Check_Msg_Level
8533: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
8534: FND_MSG_PUB.Add_Exc_Msg
8605:
8606: end loop;
8607: close c_Element_Costs;
8608:
8609: p_return_status := FND_API.G_RET_STS_SUCCESS;
8610:
8611: EXCEPTION
8612:
8613: when FND_API.G_EXC_ERROR then
8609: p_return_status := FND_API.G_RET_STS_SUCCESS;
8610:
8611: EXCEPTION
8612:
8613: when FND_API.G_EXC_ERROR then
8614: if c_Element_Costs%ISOPEN then
8615: close c_Element_Costs;
8616: end if;
8617: p_return_status := FND_API.G_RET_STS_ERROR;
8613: when FND_API.G_EXC_ERROR then
8614: if c_Element_Costs%ISOPEN then
8615: close c_Element_Costs;
8616: end if;
8617: p_return_status := FND_API.G_RET_STS_ERROR;
8618:
8619: when FND_API.G_EXC_UNEXPECTED_ERROR then
8620: if c_Element_Costs%ISOPEN then
8621: close c_Element_Costs;
8615: close c_Element_Costs;
8616: end if;
8617: p_return_status := FND_API.G_RET_STS_ERROR;
8618:
8619: when FND_API.G_EXC_UNEXPECTED_ERROR then
8620: if c_Element_Costs%ISOPEN then
8621: close c_Element_Costs;
8622: end if;
8623: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8619: when FND_API.G_EXC_UNEXPECTED_ERROR then
8620: if c_Element_Costs%ISOPEN then
8621: close c_Element_Costs;
8622: end if;
8623: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8624:
8625: when OTHERS then
8626: if c_Element_Costs%ISOPEN then
8627: close c_Element_Costs;
8625: when OTHERS then
8626: if c_Element_Costs%ISOPEN then
8627: close c_Element_Costs;
8628: end if;
8629: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8630:
8631: End Cache_Position_Costs;
8632:
8633: /* ----------------------------------------------------------------------- */
8724:
8725: end loop;
8726: close c_Dist;
8727:
8728: if p_gl_flex_code <> nvl(PSB_WS_ACCT1.g_flex_code, FND_API.G_MISS_NUM) then
8729: begin
8730:
8731: PSB_WS_ACCT1.Flex_Info
8732: (p_flex_code => p_gl_flex_code,
8731: PSB_WS_ACCT1.Flex_Info
8732: (p_flex_code => p_gl_flex_code,
8733: p_return_status => l_return_status);
8734:
8735: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8736: raise FND_API.G_EXC_ERROR;
8737: end if;
8738:
8739: end;
8732: (p_flex_code => p_gl_flex_code,
8733: p_return_status => l_return_status);
8734:
8735: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8736: raise FND_API.G_EXC_ERROR;
8737: end if;
8738:
8739: end;
8740: end if;
8739: end;
8740: end if;
8741:
8742: -- Initialize API return status to success
8743: p_return_status := FND_API.G_RET_STS_SUCCESS;
8744:
8745: EXCEPTION
8746:
8747: when FND_API.G_EXC_ERROR then
8743: p_return_status := FND_API.G_RET_STS_SUCCESS;
8744:
8745: EXCEPTION
8746:
8747: when FND_API.G_EXC_ERROR then
8748: if c_Dist%ISOPEN then
8749: close c_Dist;
8750: end if;
8751: p_return_status := FND_API.G_RET_STS_ERROR;
8747: when FND_API.G_EXC_ERROR then
8748: if c_Dist%ISOPEN then
8749: close c_Dist;
8750: end if;
8751: p_return_status := FND_API.G_RET_STS_ERROR;
8752:
8753: when FND_API.G_EXC_UNEXPECTED_ERROR then
8754: if c_Dist%ISOPEN then
8755: close c_Dist;
8749: close c_Dist;
8750: end if;
8751: p_return_status := FND_API.G_RET_STS_ERROR;
8752:
8753: when FND_API.G_EXC_UNEXPECTED_ERROR then
8754: if c_Dist%ISOPEN then
8755: close c_Dist;
8756: end if;
8757: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8753: when FND_API.G_EXC_UNEXPECTED_ERROR then
8754: if c_Dist%ISOPEN then
8755: close c_Dist;
8756: end if;
8757: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8758:
8759: when OTHERS then
8760: if c_Dist%ISOPEN then
8761: close c_Dist;
8759: when OTHERS then
8760: if c_Dist%ISOPEN then
8761: close c_Dist;
8762: end if;
8763: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8764:
8765: END Distribute_Salary;
8766: /*---------------------------------------------------------------------------*/
8767:
8915: fnd_file.put_line(fnd_file.log, ' Element : '||l_element_name||' , Position id : '|| l_hr_position_id);
8916: /* End bug 3666828 */
8917:
8918: FND_MSG_PUB.Add;
8919: raise FND_API.G_EXC_ERROR;
8920: end if;
8921:
8922: for l_index in 1..PSB_WS_ACCT1.g_num_segs loop
8923:
9063: fnd_file.put_line(fnd_file.log, 'Element : '||l_element_name||' , Position id : '|| l_hr_position_id);
9064: /* End bug 3666828 */
9065:
9066: FND_MSG_PUB.Add;
9067: raise FND_API.G_EXC_ERROR;
9068: end if;
9069:
9070: g_num_element_dists := g_num_element_dists + 1;
9071:
9104: end loop;
9105: close c_Dist;
9106:
9107: -- Initialize API return status to success
9108: p_return_status := FND_API.G_RET_STS_SUCCESS;
9109:
9110: EXCEPTION
9111: /* start bug 3666828 */
9112: --
9109:
9110: EXCEPTION
9111: /* start bug 3666828 */
9112: --
9113: /*WHEN FND_API.G_EXC_ERROR THEN
9114: IF c_Dist%ISOPEN THEN
9115: CLOSE c_Dist;
9116: END IF;
9117: p_return_status := FND_API.G_RET_STS_ERROR;
9113: /*WHEN FND_API.G_EXC_ERROR THEN
9114: IF c_Dist%ISOPEN THEN
9115: CLOSE c_Dist;
9116: END IF;
9117: p_return_status := FND_API.G_RET_STS_ERROR;
9118: --
9119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9120: IF c_Dist%ISOPEN THEN
9121: CLOSE c_Dist;
9115: CLOSE c_Dist;
9116: END IF;
9117: p_return_status := FND_API.G_RET_STS_ERROR;
9118: --
9119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9120: IF c_Dist%ISOPEN THEN
9121: CLOSE c_Dist;
9122: END IF;
9123: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;*/
9119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9120: IF c_Dist%ISOPEN THEN
9121: CLOSE c_Dist;
9122: END IF;
9123: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;*/
9124: --
9125: /* end bug 3666828 */
9126: WHEN OTHERS THEN
9127: IF c_Dist%ISOPEN THEN
9126: WHEN OTHERS THEN
9127: IF c_Dist%ISOPEN THEN
9128: CLOSE c_Dist;
9129: END IF;
9130: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9131: --
9132: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9133: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
9134: 'Distribute_Other_Elements');
9192: p_end_date => p_end_date,
9193: p_currency_code => p_currency_code
9194: );
9195: --
9196: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9197: RAISE FND_API.G_EXC_ERROR;
9198: END IF ;
9199: --
9200:
9193: p_currency_code => p_currency_code
9194: );
9195: --
9196: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9197: RAISE FND_API.G_EXC_ERROR;
9198: END IF ;
9199: --
9200:
9201: Distribute_Salary
9207: p_start_date => p_start_date,
9208: p_end_date => p_end_date
9209: );
9210: --
9211: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9212: RAISE FND_API.G_EXC_ERROR;
9213: END IF ;
9214: --
9215:
9208: p_end_date => p_end_date
9209: );
9210: --
9211: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9212: RAISE FND_API.G_EXC_ERROR;
9213: END IF ;
9214: --
9215:
9216: Distribute_Other_Elements
9221: p_start_date => p_start_date,
9222: p_end_date => p_end_date
9223: );
9224: --
9225: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9226: RAISE FND_API.G_EXC_ERROR;
9227: END IF ;
9228: --
9229:
9222: p_end_date => p_end_date
9223: );
9224: --
9225: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9226: RAISE FND_API.G_EXC_ERROR;
9227: END IF ;
9228: --
9229:
9230: for l_cost_index in 1..g_num_element_costs loop
9327: -- End processing elements only when the cost is non-zero.
9328: END LOOP;
9329:
9330: -- Initialize API return status to success
9331: p_return_status := FND_API.G_RET_STS_SUCCESS;
9332:
9333: EXCEPTION
9334: /* start bug 3666828 */
9335: --
9332:
9333: EXCEPTION
9334: /* start bug 3666828 */
9335: --
9336: /*WHEN FND_API.G_EXC_ERROR THEN
9337: p_return_status := FND_API.G_RET_STS_ERROR;
9338: --
9339: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9340: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;*/
9333: EXCEPTION
9334: /* start bug 3666828 */
9335: --
9336: /*WHEN FND_API.G_EXC_ERROR THEN
9337: p_return_status := FND_API.G_RET_STS_ERROR;
9338: --
9339: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9340: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;*/
9341: --
9335: --
9336: /*WHEN FND_API.G_EXC_ERROR THEN
9337: p_return_status := FND_API.G_RET_STS_ERROR;
9338: --
9339: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9340: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;*/
9341: --
9342: /* end bug 3666828 */
9343:
9336: /*WHEN FND_API.G_EXC_ERROR THEN
9337: p_return_status := FND_API.G_RET_STS_ERROR;
9338: --
9339: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9340: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;*/
9341: --
9342: /* end bug 3666828 */
9343:
9344: WHEN OTHERS THEN
9341: --
9342: /* end bug 3666828 */
9343:
9344: WHEN OTHERS THEN
9345: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9346: --
9347: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9348: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
9349: 'Distribute_Position_Cost') ;
9510: message_token('BUDGET', p_pqh_budget_name);
9511: message_token('STARTDATE', p_start_date);
9512: message_token('ENDDATE', p_end_date);
9513: add_message('PSB', 'PSB_PQH_BP_VERSION_NOTFOUND');
9514: raise FND_API.G_EXC_ERROR;
9515: end if;
9516:
9517: for c_total_cost_rec in c_total_cost_bp loop
9518: l_total_cost := c_total_cost_rec.total_cost;
9616:
9617: if not l_version_found then
9618: message_token('BUDGET', p_pqh_budget_name);
9619: add_message('PSB', 'PSB_PQH_BR_VERSION_NOTFOUND');
9620: raise FND_API.G_EXC_ERROR;
9621: end if;
9622:
9623: for c_revision_amount_rec in c_revision_amount loop
9624: l_revision_amount := c_revision_amount_rec.revision_amount;
9694: message_token('VERSION', l_version_number);
9695: message_token('STARTDATE', p_start_date);
9696: message_token('ENDDATE', p_end_date);
9697: add_message('PSB', 'PSB_PQH_UPDATE_BUDGET_VERSION');
9698: raise FND_API.G_EXC_ERROR;
9699: end;
9700:
9701: p_pqh_budget_version_id := l_budget_version_id;
9702:
9700:
9701: p_pqh_budget_version_id := l_budget_version_id;
9702:
9703: -- Initialize API return status to success
9704: p_return_status := FND_API.G_RET_STS_SUCCESS;
9705:
9706: EXCEPTION
9707:
9708: when FND_API.G_EXC_ERROR then
9704: p_return_status := FND_API.G_RET_STS_SUCCESS;
9705:
9706: EXCEPTION
9707:
9708: when FND_API.G_EXC_ERROR then
9709: p_return_status := FND_API.G_RET_STS_ERROR;
9710:
9711: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
9712: p_data => p_msg_data);
9705:
9706: EXCEPTION
9707:
9708: when FND_API.G_EXC_ERROR then
9709: p_return_status := FND_API.G_RET_STS_ERROR;
9710:
9711: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
9712: p_data => p_msg_data);
9713:
9710:
9711: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
9712: p_data => p_msg_data);
9713:
9714: when FND_API.G_EXC_UNEXPECTED_ERROR then
9715: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9716:
9717: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
9718: p_data => p_msg_data);
9711: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
9712: p_data => p_msg_data);
9713:
9714: when FND_API.G_EXC_UNEXPECTED_ERROR then
9715: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9716:
9717: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
9718: p_data => p_msg_data);
9719:
9717: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
9718: p_data => p_msg_data);
9719:
9720: when OTHERS then
9721: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9722:
9723: if FND_MSG_PUB.Check_Msg_Level
9724: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
9725: FND_MSG_PUB.Add_Exc_Msg
9795: n_segments => l_no_of_segments,
9796: segments => l_segment_array );
9797:
9798: if not (l_dummy) then
9799: raise FND_API.G_EXC_ERROR;
9800: end if;
9801:
9802: for i in 1..30 loop
9803: g_map_tab(i).segment_value := null;
9954: when OTHERS then
9955: FND_MSG_PUB.Add;
9956: message_token('POSITION', p_position_name);
9957: add_message('PSB', 'PSB_PQH_CREATE_BUDGET_ELEMENT');
9958: raise FND_API.G_EXC_ERROR;
9959: end;
9960:
9961: else
9962: l_pqh_budget_element_id := c_pqh_budget_elements_rec.budget_element_id;
9974: when OTHERS then
9975: FND_MSG_PUB.Add;
9976: message_token('POSITION', p_position_name);
9977: add_message('PSB', 'PSB_PQH_UPDATE_BUDGET_ELEMENT');
9978: raise FND_API.G_EXC_ERROR;
9979: end;
9980:
9981: end if;
9982:
9995: if l_cost_keyflex_id = 0 then
9996: FND_MESSAGE.SET_NAME('PSB','PSB_DEBUG_MESSAGE');
9997: FND_MESSAGE.SET_TOKEN('MESSAGE', 'Cost Keyflex not found');
9998: FND_MSG_PUB.Add;
9999: raise FND_API.G_EXC_ERROR;
10000: end if;
10001:
10002: open c_pqh_fund_srcs;
10003:
10018: when OTHERS then
10019: FND_MSG_PUB.Add;
10020: message_token('POSITION', p_position_name);
10021: add_message('PSB', 'PSB_PQH_CREATE_BUDGET_FUND_SRC');
10022: raise FND_API.G_EXC_ERROR;
10023: end;
10024: else
10025: begin
10026:
10038: when OTHERS then
10039: FND_MSG_PUB.Add;
10040: message_token('POSITION', p_position_name);
10041: add_message('PSB', 'PSB_PQH_UPDATE_BUDGET_FUND_SRC');
10042: raise FND_API.G_EXC_ERROR;
10043:
10044: end;
10045: end if;
10046:
10052:
10053: end loop;
10054:
10055: -- Initialize API return status to success
10056: p_return_status := FND_API.G_RET_STS_SUCCESS;
10057:
10058: EXCEPTION
10059:
10060: when FND_API.G_EXC_ERROR then
10056: p_return_status := FND_API.G_RET_STS_SUCCESS;
10057:
10058: EXCEPTION
10059:
10060: when FND_API.G_EXC_ERROR then
10061: p_return_status := FND_API.G_RET_STS_ERROR;
10062:
10063: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
10064: p_data => p_msg_data);
10057:
10058: EXCEPTION
10059:
10060: when FND_API.G_EXC_ERROR then
10061: p_return_status := FND_API.G_RET_STS_ERROR;
10062:
10063: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
10064: p_data => p_msg_data);
10065:
10062:
10063: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
10064: p_data => p_msg_data);
10065:
10066: when FND_API.G_EXC_UNEXPECTED_ERROR then
10067: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10068:
10069: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
10070: p_data => p_msg_data);
10063: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
10064: p_data => p_msg_data);
10065:
10066: when FND_API.G_EXC_UNEXPECTED_ERROR then
10067: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10068:
10069: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
10070: p_data => p_msg_data);
10071:
10069: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
10070: p_data => p_msg_data);
10071:
10072: when OTHERS then
10073: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10074:
10075: if FND_MSG_PUB.Check_Msg_Level
10076: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
10077: FND_MSG_PUB.Add_Exc_Msg
10291:
10292: if l_num_time_period = 0 then
10293: message_token('STARTDATE', l_period_rec.start_date(l_fte_index));
10294: add_message('PSB', 'PSB_PQH_TIME_PERIOD_NOT_FOUND');
10295: raise FND_API.G_EXC_ERROR;
10296: end if;
10297:
10298: l_period_cost := l_period_rec.cost(l_fte_index);
10299:
10374: WHEN OTHERS THEN
10375: FND_MSG_PUB.Add;
10376: message_token('POSITION', p_position_name);
10377: add_message('PSB', 'PSB_PQH_CREATE_BUDGET_PERIOD');
10378: raise FND_API.G_EXC_ERROR;
10379: end;
10380: else
10381: l_pqh_budget_period_id := c_pqh_budget_periods_rec.budget_period_id;
10382:
10400: when OTHERS then
10401: FND_MSG_PUB.Add;
10402: message_token('POSITION', p_position_name);
10403: add_message('PSB', 'PSB_PQH_UPDATE_BUDGET_PERIOD');
10404: raise FND_API.G_EXC_ERROR;
10405: end;
10406: end if;
10407:
10408: close c_pqh_budget_periods;
10460: when OTHERS then
10461: FND_MSG_PUB.Add;
10462: message_token('POSITION', p_position_name);
10463: add_message('PSB', 'PSB_PQH_CREATE_BUDGET_SET');
10464: raise FND_API.G_EXC_ERROR;
10465:
10466: end;
10467: else
10468:
10488: when OTHERS then
10489: FND_MSG_PUB.Add;
10490: message_token('POSITION', p_position_name);
10491: add_message('PSB', 'PSB_PQH_UPDATE_BUDGET_SET');
10492: raise FND_API.G_EXC_ERROR;
10493: end;
10494: end if;
10495:
10496: close c_pqh_budget_sets;
10517: p_period_end_date => l_period_rec.end_date(l_fte_index),
10518: p_num_segments => p_num_segments,
10519: p_id_flex_num => p_id_flex_num);
10520:
10521: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10522: raise FND_API.G_EXC_ERROR;
10523: end if;
10524:
10525: end loop; /*End of Budget Cost index loop*/
10518: p_num_segments => p_num_segments,
10519: p_id_flex_num => p_id_flex_num);
10520:
10521: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10522: raise FND_API.G_EXC_ERROR;
10523: end if;
10524:
10525: end loop; /*End of Budget Cost index loop*/
10526: exit when c_budget_set_cost%NOTFOUND;
10535: end loop; /*End of fte Bulk fetch loop*/
10536: close c_period_rec;
10537:
10538: -- Initialize API return status to success
10539: p_return_status := FND_API.G_RET_STS_SUCCESS;
10540:
10541: EXCEPTION
10542:
10543: when FND_API.G_EXC_ERROR then
10539: p_return_status := FND_API.G_RET_STS_SUCCESS;
10540:
10541: EXCEPTION
10542:
10543: when FND_API.G_EXC_ERROR then
10544: if c_period_rec%ISOPEN then
10545: close c_period_rec;
10546: end if;
10547: if c_budget_set_cost%ISOPEN then
10546: end if;
10547: if c_budget_set_cost%ISOPEN then
10548: close c_budget_set_cost;
10549: end if;
10550: p_return_status := FND_API.G_RET_STS_ERROR;
10551: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
10552: p_data => p_msg_data);
10553:
10554: when FND_API.G_EXC_UNEXPECTED_ERROR then
10550: p_return_status := FND_API.G_RET_STS_ERROR;
10551: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
10552: p_data => p_msg_data);
10553:
10554: when FND_API.G_EXC_UNEXPECTED_ERROR then
10555: if c_period_rec%ISOPEN then
10556: close c_period_rec;
10557: end if;
10558: if c_budget_set_cost%ISOPEN then
10557: end if;
10558: if c_budget_set_cost%ISOPEN then
10559: close c_budget_set_cost;
10560: end if;
10561: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10562: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
10563: p_data => p_msg_data);
10564:
10565: when OTHERS then
10568: end if;
10569: if c_budget_set_cost%ISOPEN then
10570: close c_budget_set_cost;
10571: end if;
10572: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10573:
10574: if FND_MSG_PUB.Check_Msg_Level
10575: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
10576: FND_MSG_PUB.Add_Exc_Msg
10738:
10739: message_token('POSITION', p_position_name);
10740: message_token('PAYROLL', l_payroll_name);
10741: add_message('PSB', 'PSB_PQH_NO_PAYROLL_MAPPING');
10742: raise FND_API.G_EXC_ERROR;
10743:
10744: end;
10745: end if;
10746:
10748: g_map_str := g_map_str||' AND glcc.code_combination_id= :b2' ;
10749: /*For Bug No : 2434152 End*/
10750:
10751: -- Initialize API return status to success
10752: p_return_status := FND_API.G_RET_STS_SUCCESS;
10753:
10754: EXCEPTION
10755:
10756: when FND_API.G_EXC_ERROR then
10752: p_return_status := FND_API.G_RET_STS_SUCCESS;
10753:
10754: EXCEPTION
10755:
10756: when FND_API.G_EXC_ERROR then
10757: p_return_status := FND_API.G_RET_STS_ERROR;
10758:
10759: when FND_API.G_EXC_UNEXPECTED_ERROR then
10760: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10753:
10754: EXCEPTION
10755:
10756: when FND_API.G_EXC_ERROR then
10757: p_return_status := FND_API.G_RET_STS_ERROR;
10758:
10759: when FND_API.G_EXC_UNEXPECTED_ERROR then
10760: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10761:
10755:
10756: when FND_API.G_EXC_ERROR then
10757: p_return_status := FND_API.G_RET_STS_ERROR;
10758:
10759: when FND_API.G_EXC_UNEXPECTED_ERROR then
10760: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10761:
10762: when OTHERS then
10763: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10756: when FND_API.G_EXC_ERROR then
10757: p_return_status := FND_API.G_RET_STS_ERROR;
10758:
10759: when FND_API.G_EXC_UNEXPECTED_ERROR then
10760: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10761:
10762: when OTHERS then
10763: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10764:
10759: when FND_API.G_EXC_UNEXPECTED_ERROR then
10760: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10761:
10762: when OTHERS then
10763: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10764:
10765: END Map_Segments;
10766:
10767: /* ----------------------------------------------------------------------- */
11005:
11006: if l_payroll_id is null then
11007: message_token('POSITION', l_position_name);
11008: add_message('PSB', 'PSB_PQH_POSITION_NO_PAYROLL');
11009: raise FND_API.G_EXC_ERROR;
11010: end if;
11011:
11012: /*For Bug No : 2434152 Start*/
11013: if ((l_prev_payroll_id = -1) or (l_prev_payroll_id <> l_payroll_id)) then
11015: Map_Segments (p_payroll_id => l_payroll_id, p_sob_id => l_sob_id, p_position_name => l_position_name, p_return_status => l_return_status);
11016: end if;
11017: /*For Bug No : 2434152 End*/
11018:
11019: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11020: raise FND_API.G_EXC_ERROR;
11021: end if;
11022:
11023: Distribute_Position_Cost
11016: end if;
11017: /*For Bug No : 2434152 End*/
11018:
11019: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11020: raise FND_API.G_EXC_ERROR;
11021: end if;
11022:
11023: Distribute_Position_Cost
11024: (p_return_status => l_return_status,
11031: p_hr_position_id => l_positions.hr_position_id(l_position_index),
11032: p_start_date => p_start_date,
11033: p_end_date => p_end_date);
11034:
11035: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11036: /* Start Bug 3666828 */
11037: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Position Name : '||l_position_name||' Position ID :'||l_positions.hr_position_id(l_position_index));
11038: /* End Bug 3666828 */
11039:
11036: /* Start Bug 3666828 */
11037: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Position Name : '||l_position_name||' Position ID :'||l_positions.hr_position_id(l_position_index));
11038: /* End Bug 3666828 */
11039:
11040: raise FND_API.G_EXC_ERROR;
11041: end if;
11042:
11043: l_org_id := null;
11044: l_job_id := null;
11193: WHEN OTHERS THEN
11194: FND_MSG_PUB.Add;
11195: message_token('POSITION', l_position_name);
11196: add_message('PSB', 'PSB_PQH_CREATE_BUDGET_DETAIL');
11197: raise FND_API.G_EXC_ERROR;
11198:
11199: end;
11200: else
11201: begin
11246: when OTHERS then
11247: FND_MSG_PUB.Add;
11248: message_token('POSITION', l_position_name);
11249: add_message('PSB', 'PSB_PQH_UPDATE_BUDGET_DETAIL');
11250: raise FND_API.G_EXC_ERROR;
11251:
11252: end;
11253: end if;
11254:
11283: -- if profile value is PERIOD, then attribute value is null
11284: -- and data flows according to existing system functionality.
11285: p_assignment_fte => l_fte_attribute_value);
11286:
11287: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11288: raise FND_API.G_EXC_ERROR;
11289: end if;
11290:
11291: if p_event_type = 'BR' then
11284: -- and data flows according to existing system functionality.
11285: p_assignment_fte => l_fte_attribute_value);
11286:
11287: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11288: raise FND_API.G_EXC_ERROR;
11289: end if;
11290:
11291: if p_event_type = 'BR' then
11292: begin
11326: when OTHERS then
11327: FND_MSG_PUB.Add;
11328: message_token('POSITION', l_position_name);
11329: add_message('PSB', 'PSB_PQH_UPDATE_BUDGET_DETAIL');
11330: raise FND_API.G_EXC_ERROR;
11331:
11332: end;
11333:
11334: l_change_fte_value := l_change_fte_value + (l_period_avg_value - l_budget_unit1_value);
11359: when OTHERS then
11360: FND_MSG_PUB.Add;
11361: message_token('POSITION', l_position_name);
11362: add_message('PSB', 'PSB_PQH_UPDATE_BUDGET_DETAIL');
11363: raise FND_API.G_EXC_ERROR;
11364:
11365: end;
11366:
11367: l_change_fte_value := l_change_fte_value + (l_period_avg_value - l_budget_unit2_value);
11392: when OTHERS then
11393: FND_MSG_PUB.Add;
11394: message_token('POSITION', l_position_name);
11395: add_message('PSB', 'PSB_PQH_UPDATE_BUDGET_DETAIL');
11396: raise FND_API.G_EXC_ERROR;
11397:
11398: end;
11399:
11400: l_change_fte_value := l_change_fte_value + (l_period_avg_value - l_budget_unit3_value);
11444: message_token('VERSION', l_version_number);
11445: message_token('STARTDATE', l_start_date);
11446: message_token('ENDDATE', l_end_date);
11447: add_message('PSB', 'PSB_PQH_UPDATE_BUDGET_VERSION');
11448: raise FND_API.G_EXC_ERROR;
11449:
11450: end;
11451:
11452: end;
11479: commit work;
11480: /*For Bug No : 2434152 End*/
11481:
11482: -- Initialize API return status to success
11483: p_return_status := FND_API.G_RET_STS_SUCCESS;
11484:
11485: EXCEPTION
11486:
11487: when FND_API.G_EXC_ERROR then
11483: p_return_status := FND_API.G_RET_STS_SUCCESS;
11484:
11485: EXCEPTION
11486:
11487: when FND_API.G_EXC_ERROR then
11488: if c_position%ISOPEN then
11489: close c_position;
11490: end if;
11491: p_return_status := FND_API.G_RET_STS_ERROR;
11487: when FND_API.G_EXC_ERROR then
11488: if c_position%ISOPEN then
11489: close c_position;
11490: end if;
11491: p_return_status := FND_API.G_RET_STS_ERROR;
11492: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
11493: p_data => p_msg_data);
11494:
11495: when FND_API.G_EXC_UNEXPECTED_ERROR then
11491: p_return_status := FND_API.G_RET_STS_ERROR;
11492: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
11493: p_data => p_msg_data);
11494:
11495: when FND_API.G_EXC_UNEXPECTED_ERROR then
11496: if c_position%ISOPEN then
11497: close c_position;
11498: end if;
11499: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11495: when FND_API.G_EXC_UNEXPECTED_ERROR then
11496: if c_position%ISOPEN then
11497: close c_position;
11498: end if;
11499: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11500: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
11501: p_data => p_msg_data);
11502:
11503: when OTHERS then
11503: when OTHERS then
11504: if c_position%ISOPEN then
11505: close c_position;
11506: end if;
11507: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11508:
11509: if FND_MSG_PUB.Check_Msg_Level
11510: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
11511: FND_MSG_PUB.Add_Exc_Msg
11521: /* ----------------------------------------------------------------------- */
11522:
11523: PROCEDURE Upload_Budget_HRMS
11524: ( p_api_version IN NUMBER,
11525: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11526: p_commit IN VARCHAR2 := FND_API.G_FALSE,
11527: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
11528: p_return_status OUT NOCOPY VARCHAR2,
11529: p_msg_count OUT NOCOPY NUMBER,
11522:
11523: PROCEDURE Upload_Budget_HRMS
11524: ( p_api_version IN NUMBER,
11525: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11526: p_commit IN VARCHAR2 := FND_API.G_FALSE,
11527: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
11528: p_return_status OUT NOCOPY VARCHAR2,
11529: p_msg_count OUT NOCOPY NUMBER,
11530: p_msg_data OUT NOCOPY VARCHAR2,
11523: PROCEDURE Upload_Budget_HRMS
11524: ( p_api_version IN NUMBER,
11525: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11526: p_commit IN VARCHAR2 := FND_API.G_FALSE,
11527: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
11528: p_return_status OUT NOCOPY VARCHAR2,
11529: p_msg_count OUT NOCOPY NUMBER,
11530: p_msg_data OUT NOCOPY VARCHAR2,
11531: p_event_type IN VARCHAR2,
11662: --p_msg_data => l_msg_data,
11663: p_event_type => 'BR',
11664: p_source_id => p_source_id);
11665:
11666: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11667: raise FND_API.G_EXC_ERROR;
11668: end if;
11669:
11670: end;
11663: p_event_type => 'BR',
11664: p_source_id => p_source_id);
11665:
11666: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11667: raise FND_API.G_EXC_ERROR;
11668: end if;
11669:
11670: end;
11671: end if;
11686: l_end_date := c_revision_dates_rec.end_date;
11687: end loop;
11688: end if;
11689:
11690: if p_validation_level = FND_API.G_VALID_LEVEL_FULL then
11691: begin
11692:
11693: -- Validate the Budget Group Hierarchy
11694: Validate_Budget_Group
11698: p_event_type => p_event_type,
11699: p_source_id => p_source_id,
11700: p_budget_group_id => l_budget_group_id);
11701:
11702: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11703: raise FND_API.G_EXC_ERROR;
11704: end if;
11705:
11706: -- Validate Budget Period Granularity
11699: p_source_id => p_source_id,
11700: p_budget_group_id => l_budget_group_id);
11701:
11702: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11703: raise FND_API.G_EXC_ERROR;
11704: end if;
11705:
11706: -- Validate Budget Period Granularity
11707: if p_hr_budget_id is not null then
11712: p_hr_budget_id => p_hr_budget_id,
11713: p_from_budget_year_id => p_from_budget_year_id,
11714: p_to_budget_year_id => p_to_budget_year_id);
11715:
11716: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11717: raise FND_API.G_EXC_ERROR;
11718: end if;
11719: end if;
11720:
11713: p_from_budget_year_id => p_from_budget_year_id,
11714: p_to_budget_year_id => p_to_budget_year_id);
11715:
11716: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11717: raise FND_API.G_EXC_ERROR;
11718: end if;
11719: end if;
11720:
11721: -- Validate budget document being uploaded
11728: p_source_id => p_source_id,
11729: p_data_extract_id => l_data_extract_id,
11730: p_system_data_extract_id => l_system_data_extract_id);
11731:
11732: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11733: raise FND_API.G_EXC_ERROR;
11734: end if;
11735:
11736: end;
11729: p_data_extract_id => l_data_extract_id,
11730: p_system_data_extract_id => l_system_data_extract_id);
11731:
11732: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11733: raise FND_API.G_EXC_ERROR;
11734: end if;
11735:
11736: end;
11737: end if;
11735:
11736: end;
11737: end if;
11738:
11739: if p_validation_level = FND_API.G_VALID_LEVEL_NONE then
11740: begin
11741:
11742: -- Validate budget document being uploaded
11743: Validate_Budget_Document
11749: p_source_id => p_source_id,
11750: p_data_extract_id => l_data_extract_id,
11751: p_system_data_extract_id => l_system_data_extract_id);
11752:
11753: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11754: raise FND_API.G_EXC_ERROR;
11755: end if;
11756:
11757: for c_types_rec in c_types loop
11750: p_data_extract_id => l_data_extract_id,
11751: p_system_data_extract_id => l_system_data_extract_id);
11752:
11753: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11754: raise FND_API.G_EXC_ERROR;
11755: end if;
11756:
11757: for c_types_rec in c_types loop
11758:
11810: p_source_id => p_source_id,
11811: p_data_extract_id => l_data_extract_id,
11812: p_system_data_extract_id => l_system_data_extract_id);
11813:
11814: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11815: raise FND_API.G_EXC_ERROR;
11816: end if;
11817:
11818: Create_Pqh_Budget_Version
11811: p_data_extract_id => l_data_extract_id,
11812: p_system_data_extract_id => l_system_data_extract_id);
11813:
11814: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11815: raise FND_API.G_EXC_ERROR;
11816: end if;
11817:
11818: Create_Pqh_Budget_Version
11819: (p_return_status => l_return_status,
11832: p_budget_unit1 => l_budget_unit1,
11833: p_budget_unit2 => l_budget_unit2,
11834: p_budget_unit3 => l_budget_unit3);
11835:
11836: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11837: raise FND_API.G_EXC_ERROR;
11838: end if;
11839:
11840: commit work;
11833: p_budget_unit2 => l_budget_unit2,
11834: p_budget_unit3 => l_budget_unit3);
11835:
11836: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11837: raise FND_API.G_EXC_ERROR;
11838: end if;
11839:
11840: commit work;
11841:
11862: p_budget_unit2_aggregate => l_budget_unit2_aggregate,
11863: p_budget_unit3_aggregate => l_budget_unit3_aggregate,
11864: p_id_flex_num => l_id_flex_num);
11865:
11866: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11867: raise FND_API.G_EXC_ERROR;
11868: end if;
11869:
11870: Record_Position_Transaction
11863: p_budget_unit3_aggregate => l_budget_unit3_aggregate,
11864: p_id_flex_num => l_id_flex_num);
11865:
11866: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11867: raise FND_API.G_EXC_ERROR;
11868: end if;
11869:
11870: Record_Position_Transaction
11871: (p_return_status => l_return_status,
11878: p_to_budget_year_id => p_to_budget_year_id,
11879: p_transfer_to_interface => 'Y',
11880: p_transfer_to_hrms => 'Y');
11881:
11882: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11883: raise FND_API.G_EXC_ERROR;
11884: end if;
11885:
11886: end;
11879: p_transfer_to_interface => 'Y',
11880: p_transfer_to_hrms => 'Y');
11881:
11882: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
11883: raise FND_API.G_EXC_ERROR;
11884: end if;
11885:
11886: end;
11887: end if;
11886: end;
11887: end if;
11888:
11889: -- Standard check of p_commit.
11890: IF FND_API.to_Boolean(p_commit) THEN
11891: commit work;
11892: END IF;
11893:
11894: -- Standard call to get message count and if count is 1, get message info.
11896: p_data => p_msg_data);
11897:
11898:
11899: -- Initialize API return status to success
11900: p_return_status := FND_API.G_RET_STS_SUCCESS;
11901:
11902: EXCEPTION
11903:
11904: when FND_API.G_EXC_ERROR then
11900: p_return_status := FND_API.G_RET_STS_SUCCESS;
11901:
11902: EXCEPTION
11903:
11904: when FND_API.G_EXC_ERROR then
11905: p_return_status := FND_API.G_RET_STS_ERROR;
11906:
11907: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
11908: p_data => p_msg_data);
11901:
11902: EXCEPTION
11903:
11904: when FND_API.G_EXC_ERROR then
11905: p_return_status := FND_API.G_RET_STS_ERROR;
11906:
11907: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
11908: p_data => p_msg_data);
11909:
11906:
11907: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
11908: p_data => p_msg_data);
11909:
11910: when FND_API.G_EXC_UNEXPECTED_ERROR then
11911: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11912:
11913: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
11914: p_data => p_msg_data);
11907: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
11908: p_data => p_msg_data);
11909:
11910: when FND_API.G_EXC_UNEXPECTED_ERROR then
11911: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11912:
11913: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
11914: p_data => p_msg_data);
11915:
11913: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
11914: p_data => p_msg_data);
11915:
11916: when OTHERS then
11917: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11918:
11919: if FND_MSG_PUB.Check_Msg_Level
11920: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
11921: FND_MSG_PUB.Add_Exc_Msg
11931: /* ----------------------------------------------------------------------- */
11932:
11933: PROCEDURE Convert_Organization_Attr
11934: ( p_api_version IN NUMBER,
11935: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11936: p_commit IN VARCHAR2 := FND_API.G_FALSE,
11937: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
11938: p_return_status OUT NOCOPY VARCHAR2,
11939: p_msg_count OUT NOCOPY NUMBER,
11932:
11933: PROCEDURE Convert_Organization_Attr
11934: ( p_api_version IN NUMBER,
11935: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11936: p_commit IN VARCHAR2 := FND_API.G_FALSE,
11937: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
11938: p_return_status OUT NOCOPY VARCHAR2,
11939: p_msg_count OUT NOCOPY NUMBER,
11940: p_msg_data OUT NOCOPY VARCHAR2,
11933: PROCEDURE Convert_Organization_Attr
11934: ( p_api_version IN NUMBER,
11935: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11936: p_commit IN VARCHAR2 := FND_API.G_FALSE,
11937: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
11938: p_return_status OUT NOCOPY VARCHAR2,
11939: p_msg_count OUT NOCOPY NUMBER,
11940: p_msg_data OUT NOCOPY VARCHAR2,
11941: p_business_group_id IN NUMBER,
11962: SAVEPOINT Convert_Organization_Attr;
11963:
11964: -- Standard call to check for call compatibility.
11965:
11966: if not FND_API.Compatible_API_Call (l_api_version,
11967: p_api_version,
11968: l_api_name,
11969: G_PKG_NAME)
11970: then
11967: p_api_version,
11968: l_api_name,
11969: G_PKG_NAME)
11970: then
11971: raise FND_API.G_EXC_UNEXPECTED_ERROR;
11972: end if;
11973:
11974: -- Initialize message list if p_init_msg_list is set to TRUE.
11975:
11972: end if;
11973:
11974: -- Initialize message list if p_init_msg_list is set to TRUE.
11975:
11976: if FND_API.to_Boolean (p_init_msg_list) then
11977: FND_MSG_PUB.initialize;
11978: end if;
11979:
11980: l_sysorg_id := NULL;
12101: end;
12102: end if;
12103:
12104: -- Standard check of p_commit.
12105: IF FND_API.to_Boolean(p_commit) THEN
12106: commit work;
12107: END IF;
12108:
12109: -- Standard call to get message count and if count is 1, get message info.
12111: p_data => p_msg_data);
12112:
12113:
12114: -- Initialize API return status to success
12115: p_return_status := FND_API.G_RET_STS_SUCCESS;
12116:
12117: EXCEPTION
12118:
12119: when FND_API.G_EXC_ERROR then
12115: p_return_status := FND_API.G_RET_STS_SUCCESS;
12116:
12117: EXCEPTION
12118:
12119: when FND_API.G_EXC_ERROR then
12120: rollback to Convert_Organization_Attr;
12121: p_return_status := FND_API.G_RET_STS_ERROR;
12122:
12123: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
12117: EXCEPTION
12118:
12119: when FND_API.G_EXC_ERROR then
12120: rollback to Convert_Organization_Attr;
12121: p_return_status := FND_API.G_RET_STS_ERROR;
12122:
12123: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
12124: p_data => p_msg_data);
12125:
12122:
12123: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
12124: p_data => p_msg_data);
12125:
12126: when FND_API.G_EXC_UNEXPECTED_ERROR then
12127: rollback to Convert_Organization_Attr;
12128: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12129:
12130: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
12124: p_data => p_msg_data);
12125:
12126: when FND_API.G_EXC_UNEXPECTED_ERROR then
12127: rollback to Convert_Organization_Attr;
12128: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12129:
12130: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
12131: p_data => p_msg_data);
12132:
12131: p_data => p_msg_data);
12132:
12133: when OTHERS then
12134: rollback to Convert_Organization_Attr;
12135: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12136:
12137: if FND_MSG_PUB.Check_Msg_Level
12138: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
12139: FND_MSG_PUB.Add_Exc_Msg
12168: begin
12169:
12170: Convert_Organization_Attr
12171: (p_api_version => 1.0,
12172: p_init_msg_list => FND_API.G_TRUE,
12173: p_return_status => l_return_status,
12174: p_msg_count => l_msg_count,
12175: p_msg_data => l_msg_data,
12176: p_business_group_id => p_business_group_id,
12175: p_msg_data => l_msg_data,
12176: p_business_group_id => p_business_group_id,
12177: p_attribute_id => p_attribute_id);
12178:
12179: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12180: raise FND_API.G_EXC_ERROR;
12181: end if;
12182: /* Start Bug No. 2322856 */
12183: -- PSB_MESSAGE_S.Print_Success;
12176: p_business_group_id => p_business_group_id,
12177: p_attribute_id => p_attribute_id);
12178:
12179: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12180: raise FND_API.G_EXC_ERROR;
12181: end if;
12182: /* Start Bug No. 2322856 */
12183: -- PSB_MESSAGE_S.Print_Success;
12184: /* End Bug No. 2322856 */
12187: commit work;
12188:
12189: EXCEPTION
12190:
12191: when FND_API.G_EXC_ERROR then
12192: PSB_MESSAGE_S.Print_Error (p_mode => FND_FILE.LOG,
12193: p_print_header => FND_API.G_TRUE);
12194: retcode := 2;
12195:
12189: EXCEPTION
12190:
12191: when FND_API.G_EXC_ERROR then
12192: PSB_MESSAGE_S.Print_Error (p_mode => FND_FILE.LOG,
12193: p_print_header => FND_API.G_TRUE);
12194: retcode := 2;
12195:
12196: when FND_API.G_EXC_UNEXPECTED_ERROR then
12197: PSB_MESSAGE_S.Print_Error (p_mode => FND_FILE.LOG,
12192: PSB_MESSAGE_S.Print_Error (p_mode => FND_FILE.LOG,
12193: p_print_header => FND_API.G_TRUE);
12194: retcode := 2;
12195:
12196: when FND_API.G_EXC_UNEXPECTED_ERROR then
12197: PSB_MESSAGE_S.Print_Error (p_mode => FND_FILE.LOG,
12198: p_print_header => FND_API.G_TRUE);
12199: retcode := 2;
12200:
12194: retcode := 2;
12195:
12196: when FND_API.G_EXC_UNEXPECTED_ERROR then
12197: PSB_MESSAGE_S.Print_Error (p_mode => FND_FILE.LOG,
12198: p_print_header => FND_API.G_TRUE);
12199: retcode := 2;
12200:
12201: when OTHERS then
12202: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
12204: l_api_name);
12205: end if;
12206:
12207: PSB_MESSAGE_S.Print_Error (p_mode => FND_FILE.LOG,
12208: p_print_header => FND_API.G_TRUE);
12209: retcode := 2;
12210:
12211: END Convert_Organization_Attr_CP;
12212:
12275: p_last_update_login => FND_GLOBAL.LOGIN_ID,
12276: p_created_by => FND_GLOBAL.USER_ID,
12277: p_creation_date => sysdate);
12278:
12279: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12280: raise FND_API.G_EXC_ERROR;
12281: end if;
12282: end;
12283: end if;
12276: p_created_by => FND_GLOBAL.USER_ID,
12277: p_creation_date => sysdate);
12278:
12279: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12280: raise FND_API.G_EXC_ERROR;
12281: end if;
12282: end;
12283: end if;
12284: --Copy the Position sets that belong to the Position Set Group
12289: p_new_psg_id => l_possetgrp_id,
12290: p_target_data_extract_id => p_target_data_extract_id,
12291: p_budget_group_id => p_budget_group_id);
12292:
12293: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12294: raise FND_API.G_EXC_ERROR;
12295: end if;
12296:
12297: Copy_Element_Distributions
12290: p_target_data_extract_id => p_target_data_extract_id,
12291: p_budget_group_id => p_budget_group_id);
12292:
12293: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12294: raise FND_API.G_EXC_ERROR;
12295: end if;
12296:
12297: Copy_Element_Distributions
12298: (p_return_status => l_return_status,
12300: p_new_psg_id => l_possetgrp_id,
12301: p_flex_mapping_set_id => p_flex_mapping_set_id,
12302: p_follow_salary => p_follow_salary);
12303:
12304: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12305: raise FND_API.G_EXC_ERROR;
12306: end if;
12307:
12308: end loop;
12301: p_flex_mapping_set_id => p_flex_mapping_set_id,
12302: p_follow_salary => p_follow_salary);
12303:
12304: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12305: raise FND_API.G_EXC_ERROR;
12306: end if;
12307:
12308: end loop;
12309: p_return_status := FND_API.G_RET_STS_SUCCESS;
12305: raise FND_API.G_EXC_ERROR;
12306: end if;
12307:
12308: end loop;
12309: p_return_status := FND_API.G_RET_STS_SUCCESS;
12310: --
12311: EXCEPTION
12312: when FND_API.G_EXC_ERROR then
12313: p_return_status := FND_API.G_RET_STS_ERROR;
12308: end loop;
12309: p_return_status := FND_API.G_RET_STS_SUCCESS;
12310: --
12311: EXCEPTION
12312: when FND_API.G_EXC_ERROR then
12313: p_return_status := FND_API.G_RET_STS_ERROR;
12314:
12315: End Copy_Position_Set_Groups;
12316:
12309: p_return_status := FND_API.G_RET_STS_SUCCESS;
12310: --
12311: EXCEPTION
12312: when FND_API.G_EXC_ERROR then
12313: p_return_status := FND_API.G_RET_STS_ERROR;
12314:
12315: End Copy_Position_Set_Groups;
12316:
12317: /*---------------------------------------------------------------------------*/
12414: p_last_update_login => FND_GLOBAL.LOGIN_ID,
12415: p_created_by => FND_GLOBAL.USER_ID,
12416: p_creation_date => sysdate);
12417:
12418: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12419: raise FND_API.G_EXC_ERROR;
12420: end if;
12421: --Position set is inserted
12422: end;
12415: p_created_by => FND_GLOBAL.USER_ID,
12416: p_creation_date => sysdate);
12417:
12418: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12419: raise FND_API.G_EXC_ERROR;
12420: end if;
12421: --Position set is inserted
12422: end;
12423: elsif c_posset_rec.attribute_selection_type <> l_attribute_selection_type then
12440: p_last_update_date => sysdate,
12441: p_last_updated_by => FND_GLOBAL.USER_ID,
12442: p_last_update_login => FND_GLOBAL.LOGIN_ID);
12443:
12444: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12445: raise FND_API.G_EXC_ERROR;
12446: end if;
12447: --Position set is updated
12448: end;
12441: p_last_updated_by => FND_GLOBAL.USER_ID,
12442: p_last_update_login => FND_GLOBAL.LOGIN_ID);
12443:
12444: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12445: raise FND_API.G_EXC_ERROR;
12446: end if;
12447: --Position set is updated
12448: end;
12449: end if;
12484: p_last_update_login => FND_GLOBAL.LOGIN_ID,
12485: p_created_by => FND_GLOBAL.USER_ID,
12486: p_creation_date => sysdate);
12487:
12488: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12489: raise FND_API.G_EXC_ERROR;
12490: end if;
12491: end if;
12492:
12485: p_created_by => FND_GLOBAL.USER_ID,
12486: p_creation_date => sysdate);
12487:
12488: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12489: raise FND_API.G_EXC_ERROR;
12490: end if;
12491: end if;
12492:
12493: --Copy all position set lines that belong to the position set
12500:
12501: end loop; /* Position Sets */
12502: end loop; /* Set Relations */
12503:
12504: p_return_status := FND_API.G_RET_STS_SUCCESS;
12505: --
12506: EXCEPTION
12507: --
12508: when FND_API.G_EXC_ERROR then
12504: p_return_status := FND_API.G_RET_STS_SUCCESS;
12505: --
12506: EXCEPTION
12507: --
12508: when FND_API.G_EXC_ERROR then
12509: p_return_status := FND_API.G_RET_STS_ERROR;
12510:
12511: End Copy_Position_Sets;
12512:
12505: --
12506: EXCEPTION
12507: --
12508: when FND_API.G_EXC_ERROR then
12509: p_return_status := FND_API.G_RET_STS_ERROR;
12510:
12511: End Copy_Position_Sets;
12512:
12513: /*----------------------------------------------------------------------------*/
12683: p_last_update_login => FND_GLOBAL.LOGIN_ID,
12684: p_created_by => FND_GLOBAL.USER_ID,
12685: p_creation_date => sysdate);
12686:
12687: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12688: raise FND_API.G_EXC_ERROR;
12689: end if;
12690: end;
12691: end if;
12684: p_created_by => FND_GLOBAL.USER_ID,
12685: p_creation_date => sysdate);
12686:
12687: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12688: raise FND_API.G_EXC_ERROR;
12689: end if;
12690: end;
12691: end if;
12692:
12723: p_last_update_login => FND_GLOBAL.LOGIN_ID,
12724: p_created_by => FND_GLOBAL.USER_ID,
12725: p_creation_date => sysdate);
12726:
12727: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12728: raise FND_API.G_EXC_ERROR;
12729: end if;
12730:
12731: end;
12724: p_created_by => FND_GLOBAL.USER_ID,
12725: p_creation_date => sysdate);
12726:
12727: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12728: raise FND_API.G_EXC_ERROR;
12729: end if;
12730:
12731: end;
12732: end if;
12736:
12737: --
12738: EXCEPTION
12739: --
12740: when FND_API.G_EXC_ERROR then
12741: p_return_status := FND_API.G_RET_STS_ERROR;
12742:
12743: End Copy_Position_Set_Lines;
12744:
12737: --
12738: EXCEPTION
12739: --
12740: when FND_API.G_EXC_ERROR then
12741: p_return_status := FND_API.G_RET_STS_ERROR;
12742:
12743: End Copy_Position_Set_Lines;
12744:
12745: /* ------------------------------------------------------------------------*/
12813: p_flexfield_mapping_set_id => p_flex_mapping_set_id,
12814: p_mapping_mode => 'GL_POSTING');
12815:
12816: if l_mapped_ccid = 0 then
12817: raise FND_API.G_EXC_ERROR;
12818: end if;
12819: --Check whether the line is already exists or not, if exists update the line o/w insert new one
12820:
12821: l_distribution_exists := FALSE;
12881: p_last_update_login => FND_GLOBAL.LOGIN_ID,
12882: p_created_by => FND_GLOBAL.USER_ID,
12883: p_creation_date => sysdate);
12884:
12885: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12886: raise FND_API.G_EXC_ERROR;
12887: end if;
12888: end; --End of insert line
12889: else
12882: p_created_by => FND_GLOBAL.USER_ID,
12883: p_creation_date => sysdate);
12884:
12885: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12886: raise FND_API.G_EXC_ERROR;
12887: end if;
12888: end; --End of insert line
12889: else
12890: begin --Update line
12935: p_last_update_date => sysdate,
12936: p_last_updated_by => FND_GLOBAL.USER_ID,
12937: p_last_update_login => FND_GLOBAL.LOGIN_ID);
12938:
12939: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12940: raise FND_API.G_EXC_ERROR;
12941: end if;
12942:
12943: end;
12936: p_last_updated_by => FND_GLOBAL.USER_ID,
12937: p_last_update_login => FND_GLOBAL.LOGIN_ID);
12938:
12939: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
12940: raise FND_API.G_EXC_ERROR;
12941: end if;
12942:
12943: end;
12944: end if; --End of update line
13018: p_last_update_login => FND_GLOBAL.LOGIN_ID,
13019: p_created_by => FND_GLOBAL.USER_ID,
13020: p_creation_date => sysdate);
13021:
13022: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
13023: raise FND_API.G_EXC_ERROR;
13024: end if;
13025: end; --End of Insert line where flex mapping doesn't exist
13026: else
13019: p_created_by => FND_GLOBAL.USER_ID,
13020: p_creation_date => sysdate);
13021:
13022: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
13023: raise FND_API.G_EXC_ERROR;
13024: end if;
13025: end; --End of Insert line where flex mapping doesn't exist
13026: else
13027: begin --Update the line
13073: p_last_update_date => sysdate,
13074: p_last_updated_by => FND_GLOBAL.USER_ID,
13075: p_last_update_login => FND_GLOBAL.LOGIN_ID);
13076:
13077: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
13078: raise FND_API.G_EXC_ERROR;
13079: end if;
13080: end;
13081: end if; --End of Insert line where flex mapping doesn't exist
13074: p_last_updated_by => FND_GLOBAL.USER_ID,
13075: p_last_update_login => FND_GLOBAL.LOGIN_ID);
13076:
13077: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
13078: raise FND_API.G_EXC_ERROR;
13079: end if;
13080: end;
13081: end if; --End of Insert line where flex mapping doesn't exist
13082:
13086: end loop; /* Element Distribution */
13087: --
13088: EXCEPTION
13089: --
13090: when FND_API.G_EXC_ERROR then
13091: p_return_status := FND_API.G_RET_STS_ERROR;
13092:
13093: End Copy_Element_Distributions;
13094: /*---------------------------------------------------------------------------*/
13087: --
13088: EXCEPTION
13089: --
13090: when FND_API.G_EXC_ERROR then
13091: p_return_status := FND_API.G_RET_STS_ERROR;
13092:
13093: End Copy_Element_Distributions;
13094: /*---------------------------------------------------------------------------*/
13095: