[Home] [Help]
272: END IF;
273:
274: -- Initialize message list if p_init_msg_list is set to TRUE
275: IF FND_API.to_Boolean(p_init_msg_list) THEN
276: FND_MSG_PUB.initialize;
277: END IF;
278:
279: -- Initialize API return status to success
280: x_return_status := FND_API.G_RET_STS_SUCCESS;
336: FND_FILE.put_line(FND_FILE.log, x_msg_data);
337: l_api_message := 'Update_eamCost returned error';
338: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
339: FND_MESSAGE.set_token('TEXT', l_api_message);
340: FND_MSG_pub.add;
341: RAISE FND_API.g_exc_error;
342: END IF;
343:
344: --- Standard check of p_commit
346: COMMIT WORK;
347: END IF;
348:
349: -- Standard Call to get message count and if count = 1, get message info
350: FND_MSG_PUB.Count_And_Get (
351: p_count => x_msg_count,
352: p_data => x_msg_data );
353:
354:
357: ROLLBACK TO Process_MatCost_PUB;
358: x_return_status := FND_API.g_ret_sts_error;
359:
360: -- Get message count and data
361: FND_MSG_PUB.count_and_get
362: ( p_count => x_msg_count
363: , p_data => x_msg_data
364: );
365:
367: ROLLBACK TO Process_MatCost_PUB;
368: x_return_status := FND_API.g_ret_sts_unexp_error ;
369:
370: -- Get message count and data
371: FND_MSG_PUB.count_and_get
372: ( p_count => x_msg_count
373: , p_data => x_msg_data
374: );
375:
376: WHEN OTHERS THEN
377: ROLLBACK TO Process_MatCost_PUB;
378: x_return_status := fnd_api.g_ret_sts_unexp_error ;
379:
380: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
381: THEN
382: FND_MSG_PUB.add_exc_msg
383: ( 'CST_eamCost_PVT'
384: , 'Process_MatCost : Statement -'||to_char(l_stmt_num)
378: x_return_status := fnd_api.g_ret_sts_unexp_error ;
379:
380: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
381: THEN
382: FND_MSG_PUB.add_exc_msg
383: ( 'CST_eamCost_PVT'
384: , 'Process_MatCost : Statement -'||to_char(l_stmt_num)
385: );
386: END IF;
385: );
386: END IF;
387:
388: -- Get message count and data
389: FND_MSG_PUB.count_and_get
390: ( p_count => x_msg_count
391: , p_data => x_msg_data
392: );
393:
489: END IF;
490:
491: -- Initialize message list if p_init_msg_list is set to TRUE
492: IF FND_API.to_Boolean(p_init_msg_list) THEN
493: FND_MSG_PUB.initialize;
494: END IF;
495:
496: -- Initialize API return status to success
497: x_return_status := FND_API.G_RET_STS_SUCCESS;
551: FND_FILE.put_line(FND_FILE.log, x_msg_data);
552: l_api_message := 'Update_eamCost returned error';
553: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
554: FND_MESSAGE.set_token('TEXT', l_api_message);
555: FND_MSG_pub.add;
556: RAISE FND_API.g_exc_error;
557: END IF;
558:
559: END LOOP;
563: COMMIT WORK;
564: END IF;
565:
566: -- Standard Call to get message count and if count = 1, get message info
567: FND_MSG_PUB.Count_And_Get (
568: p_count => x_msg_count,
569: p_data => x_msg_data );
570:
571:
574: ROLLBACK TO Process_ResCost_PUB;
575: x_return_status := FND_API.g_ret_sts_error;
576:
577: -- Get message count and data
578: FND_MSG_PUB.count_and_get
579: ( p_count => x_msg_count
580: , p_data => x_msg_data
581: );
582:
584: ROLLBACK TO Process_ResCost_PUB;
585: x_return_status := FND_API.g_ret_sts_unexp_error ;
586:
587: -- Get message count and data
588: FND_MSG_PUB.count_and_get
589: ( p_count => x_msg_count
590: , p_data => x_msg_data
591: );
592:
593: WHEN OTHERS THEN
594: ROLLBACK TO Process_ResCost_PUB;
595: x_return_status := fnd_api.g_ret_sts_unexp_error ;
596:
597: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
598: THEN
599: FND_MSG_PUB.add_exc_msg
600: ( 'CST_eamCost_PVT'
601: , 'Process_ResCost : Statement -'||to_char(l_stmt_num)
595: x_return_status := fnd_api.g_ret_sts_unexp_error ;
596:
597: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
598: THEN
599: FND_MSG_PUB.add_exc_msg
600: ( 'CST_eamCost_PVT'
601: , 'Process_ResCost : Statement -'||to_char(l_stmt_num)
602: );
603: END IF;
602: );
603: END IF;
604:
605: -- Get message count and data
606: FND_MSG_PUB.count_and_get
607: ( p_count => x_msg_count
608: , p_data => x_msg_data
609: );
610: END Process_ResCost;
730: END IF;
731:
732: -- Initialize message list if p_init_msg_list is set to TRUE
733: IF FND_API.to_Boolean(p_init_msg_list) THEN
734: FND_MSG_PUB.initialize;
735: END IF;
736:
737: -- Initialize API return status to success
738: x_return_status := FND_API.G_RET_STS_SUCCESS;
745: (p_period_set_name is null or
746: p_period_name is null))) THEN
747: FND_MESSAGE.set_name('BOM', 'CST_INVALID_PARAMS');
748: FND_MESSAGE.set_token('JOB', p_wip_entity_id);
749: FND_MSG_PUB.ADD;
750: RAISE FND_API.g_exc_error;
751: END IF;
752:
753: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Processing job '
766: l_api_message := 'Job is not eAM job.';
767: l_api_message := l_api_message ||'Job id: '|| TO_CHAR(p_wip_entity_id);
768: FND_MESSAGE.set_name('BOM', 'CST_API_MESSAGE');
769: FND_MESSAGE.set_token('TEXT', l_api_message);
770: FND_MSG_PUB.ADD;
771: RAISE fnd_api.g_exc_error;
772: END IF;
773:
774: l_stmt_num := 62;
784: x_msg_data => l_msg_data);
785:
786: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
787: FND_MESSAGE.set_token('TEXT', l_api_message);
788: FND_MSG_PUB.ADD;
789: RAISE fnd_api.g_exc_error;
790: END IF;
791:
792: ------------------------------------------------------------
813: FND_FILE.put_line(FND_FILE.log, x_msg_data);
814: l_api_message := 'get_CostElement_for_DirectItem returned unexpected error';
815: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
816: FND_MESSAGE.set_token('TEXT', l_api_message);
817: FND_MSG_pub.add;
818: raise fnd_api.g_exc_unexpected_error;
819: end if;
820:
821: if (l_debug = 'Y') then
828: IF l_eam_cost_element = 0 THEN
829: l_api_message := 'Get_eamCostElement returned error';
830: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
831: FND_MESSAGE.set_token('TEXT', l_api_message);
832: FND_MSG_pub.add;
833: RAISE FND_API.g_exc_error;
834: END IF;
835: end if; /* p_txn_mode */
836:
897: FND_FILE.put_line(FND_FILE.log, x_msg_data);
898: l_api_message := 'Get_MaintCostCat returned error';
899: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
900: FND_MESSAGE.set_token('TEXT', l_api_message);
901: FND_MSG_pub.add;
902: RAISE FND_API.g_exc_error;
903: END IF;
904:
905: END IF; -- end checking p_txn_mode
940: FND_FILE.put_line(FND_FILE.log, x_msg_data);
941: l_api_message := 'InsertUpdate_eamPerBal returned error';
942: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
943: FND_MESSAGE.set_token('TEXT', l_api_message);
944: FND_MSG_pub.add;
945: RAISE FND_API.g_exc_error;
946: END IF;
947:
948: --- Standard check of p_commit
950: COMMIT WORK;
951: END IF;
952:
953: -- Standard Call to get message count and if count = 1, get message info
954: FND_MSG_PUB.Count_And_Get (
955: p_count => x_msg_count,
956: p_data => x_msg_data );
957:
958:
962: ROLLBACK TO Update_eamCost_PUB;
963: x_return_status := FND_API.g_ret_sts_error;
964:
965: -- Get message count and data
966: FND_MSG_PUB.count_and_get
967: ( p_count => x_msg_count
968: , p_data => x_msg_data
969: );
970:
973: ROLLBACK TO Update_eamCost_PUB;
974: x_return_status := FND_API.g_ret_sts_unexp_error ;
975:
976: -- Get message count and data
977: FND_MSG_PUB.count_and_get
978: ( p_count => x_msg_count
979: , p_data => x_msg_data
980: );
981:
983: fnd_file.put_line(fnd_file.log, 'Exception in Update_eamcost'|| SQLERRM);
984: ROLLBACK TO Update_eamCost_PUB;
985: x_return_status := fnd_api.g_ret_sts_unexp_error ;
986:
987: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
988: THEN
989: FND_MSG_PUB.add_exc_msg
990: ( 'CST_eamCost_PUB'
991: , 'Update_eamCost : Statement -'||to_char(l_stmt_num)
985: x_return_status := fnd_api.g_ret_sts_unexp_error ;
986:
987: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
988: THEN
989: FND_MSG_PUB.add_exc_msg
990: ( 'CST_eamCost_PUB'
991: , 'Update_eamCost : Statement -'||to_char(l_stmt_num)
992: );
993: END IF;
992: );
993: END IF;
994:
995: -- Get message count and data
996: FND_MSG_PUB.count_and_get
997: ( p_count => x_msg_count
998: , p_data => x_msg_data
999: );
1000: END Update_eamCost;
1147: END IF;
1148:
1149: -- Initialize message list if p_init_msg_list is set to TRUE
1150: IF FND_API.to_Boolean(p_init_msg_list) THEN
1151: FND_MSG_PUB.initialize;
1152: END IF;
1153:
1154: -- Initialize API return status to success
1155: x_return_status := FND_API.G_RET_STS_SUCCESS;
1167: l_api_message := 'Must pass period id, or period set name and period name. ';
1168: l_api_message := 'Job id: ' || TO_CHAR(p_wip_entity_id);
1169: FND_MESSAGE.set_name('BOM', 'CST_API_MESSAGE');
1170: FND_MESSAGE.set_token('TEXT', l_api_message);
1171: FND_MSG_PUB.ADD;
1172: RAISE FND_API.g_exc_error;
1173: END IF;
1174:
1175: -- Get data from org_acct_periods if it is an open period.
1498: --BUG#5985039 FP BUG#5984909
1499: -- If return status is not success, raise error
1500: IF l_return_status <> FND_API.g_ret_sts_success THEN
1501: l_api_message := 'InsertUpdate_assetPerBal error';
1502: FND_MSG_PUB.add_exc_msg
1503: ( 'CST_eamCost_PUB',
1504: 'InsertUpdate_eamPerBal('||to_char(l_stmt_num) || ')', l_api_message);
1505: RAISE FND_API.g_exc_error;
1506: END IF;
1537: --BUG#5985039 - FPBUG 5984909
1538: -- If return status is not success, raise error
1539: IF l_return_status <> FND_API.g_ret_sts_success THEN
1540: l_api_message := 'InsertUpdate_assetPerBal error';
1541: FND_MSG_PUB.add_exc_msg
1542: ( 'CST_eamCost_PUB',
1543: 'InsertUpdate_eamPerBal('||to_char(l_stmt_num) || ')', l_api_message);
1544: RAISE FND_API.g_exc_error;
1545: END IF;
1557: COMMIT WORK;
1558: END IF;
1559:
1560: -- Standard Call to get message count and if count = 1, get message info
1561: FND_MSG_PUB.Count_And_Get (
1562: p_count => x_msg_count,
1563: p_data => x_msg_data );
1564:
1565: EXCEPTION
1569: ROLLBACK TO InsertUpdate_eamPerBal_PUB;
1570: x_return_status := FND_API.g_ret_sts_error;
1571:
1572: -- Get message count and data
1573: FND_MSG_PUB.count_and_get
1574: ( p_count => x_msg_count
1575: , p_data => x_msg_data
1576: );
1577:
1580: ROLLBACK TO InsertUpdate_eamPerBal_PUB;
1581: x_return_status := FND_API.g_ret_sts_unexp_error ;
1582:
1583: -- Get message count and data
1584: FND_MSG_PUB.count_and_get
1585: ( p_count => x_msg_count
1586: , p_data => x_msg_data
1587: );
1588:
1590: FND_FILE.PUT_LINE(fnd_file.log,'exception' || SQLERRM );
1591: ROLLBACK TO InsertUpdate_eamPerBal_PUB;
1592: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1593:
1594: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1595: THEN
1596: FND_MSG_PUB.add_exc_msg
1597: ( 'CST_eamCost_PUB',
1598: 'InsertUpdate_eamPerBal : Statement -'||to_char(l_stmt_num)
1592: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1593:
1594: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1595: THEN
1596: FND_MSG_PUB.add_exc_msg
1597: ( 'CST_eamCost_PUB',
1598: 'InsertUpdate_eamPerBal : Statement -'||to_char(l_stmt_num)
1599: );
1600: END IF;
1599: );
1600: END IF;
1601:
1602: -- Get message count and data
1603: FND_MSG_PUB.count_and_get
1604: ( p_count => x_msg_count
1605: , p_data => x_msg_data
1606: );
1607: END InsertUpdate_eamPerBal;
1714: END IF;
1715:
1716: -- Initialize message list if p_init_msg_list is set to TRUE
1717: IF FND_API.to_Boolean(p_init_msg_list) THEN
1718: FND_MSG_PUB.initialize;
1719: END IF;
1720:
1721: -- Initialize API return status to success
1722: x_return_status := FND_API.G_RET_STS_SUCCESS;
1818: COMMIT WORK;
1819: END IF;
1820:
1821: -- Standard Call to get message count and if count = 1, get message info
1822: FND_MSG_PUB.Count_And_Get (
1823: p_count => x_msg_count,
1824: p_data => x_msg_data );
1825:
1826: EXCEPTION
1829: FND_FILE.PUT_LINE(fnd_file.log,' exception' || SQLERRM );
1830: ROLLBACK TO InsertUpdate_assetPerBal_PUB;
1831: x_return_status := FND_API.g_ret_sts_error;
1832: -- Get message count and data
1833: FND_MSG_PUB.count_and_get
1834: ( p_count => x_msg_count
1835: , p_data => x_msg_data
1836: );
1837:
1840: ROLLBACK TO InsertUpdate_assetPerBal_PUB;
1841: x_return_status := FND_API.g_ret_sts_unexp_error ;
1842:
1843: -- Get message count and data
1844: FND_MSG_PUB.count_and_get
1845: ( p_count => x_msg_count
1846: , p_data => x_msg_data
1847: );
1848:
1850: FND_FILE.PUT_LINE(fnd_file.log,'exception' || SQLERRM );
1851: ROLLBACK TO InsertUpdate_assetPerBal_PUB;
1852: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1853:
1854: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1855: THEN
1856: FND_MSG_PUB.add_exc_msg
1857: ( 'CST_eamCost_PUB',
1858: 'InsertUpdate_assetPerBal : Statement -'||to_char(l_stmt_num)
1852: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1853:
1854: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1855: THEN
1856: FND_MSG_PUB.add_exc_msg
1857: ( 'CST_eamCost_PUB',
1858: 'InsertUpdate_assetPerBal : Statement -'||to_char(l_stmt_num)
1859: );
1860: END IF;
1859: );
1860: END IF;
1861:
1862: -- Get message count and data
1863: FND_MSG_PUB.count_and_get
1864: ( p_count => x_msg_count
1865: , p_data => x_msg_data
1866: );
1867: END InsertUpdate_assetPerBal;
1945: FND_FILE.PUT_LINE(FND_FILE.LOG,'Get_eamCostElement - statement '
1946: || l_stmt_num || ': '
1947: || substr(SQLERRM,1,200));
1948:
1949: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1950: THEN
1951: FND_MSG_PUB.add_exc_msg
1952: ( 'CST_eamCost_PUB'
1953: , '.Get_eamCostElement : Statement -'||to_char(l_stmt_num)
1947: || substr(SQLERRM,1,200));
1948:
1949: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1950: THEN
1951: FND_MSG_PUB.add_exc_msg
1952: ( 'CST_eamCost_PUB'
1953: , '.Get_eamCostElement : Statement -'||to_char(l_stmt_num)
1954: );
1955: END IF;
2150: || l_stmt_num || ': '
2151: || substr(SQLERRM,1,200));
2152: x_return_status := FND_API.g_ret_sts_unexp_error ;
2153:
2154: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2155: THEN
2156: FND_MSG_PUB.add_exc_msg
2157: ( 'CST_eamCost_PUB'
2158: , '.Get_MaintCostCat. : Statement -'||to_char(l_stmt_num)
2152: x_return_status := FND_API.g_ret_sts_unexp_error ;
2153:
2154: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2155: THEN
2156: FND_MSG_PUB.add_exc_msg
2157: ( 'CST_eamCost_PUB'
2158: , '.Get_MaintCostCat. : Statement -'||to_char(l_stmt_num)
2159: );
2160: END IF;
2256: END IF;
2257:
2258: -- Initialize message list if p_init_msg_list is set to TRUE
2259: IF FND_API.to_Boolean(p_init_msg_list) THEN
2260: FND_MSG_PUB.initialize;
2261: END IF;
2262:
2263: -- Initialize API return status to success
2264: x_return_status := FND_API.G_RET_STS_SUCCESS;
2612: ROLLBACK TO Delete_eamPerBal_PUB;
2613: x_return_status := FND_API.g_ret_sts_error;
2614:
2615: -- Get message count and data
2616: FND_MSG_PUB.count_and_get
2617: ( p_count => x_msg_count
2618: , p_data => x_msg_data
2619: );
2620:
2622: ROLLBACK TO Delete_eamPerBal_PUB;
2623: x_return_status := FND_API.g_ret_sts_unexp_error ;
2624:
2625: -- Get message count and data
2626: FND_MSG_PUB.count_and_get
2627: ( p_count => x_msg_count
2628: , p_data => x_msg_data
2629: );
2630:
2635: FND_FILE.PUT_LINE(FND_FILE.LOG,'Delete_eamPerBal - statement '
2636: || l_stmt_num || ': '
2637: || substr(SQLERRM,1,200));
2638:
2639: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2640: THEN
2641: FND_MSG_PUB.add_exc_msg
2642: ( 'CST_eamCost_PUB'
2643: , '.Delete_eamPerBal : Statement -'||to_char(l_stmt_num)
2637: || substr(SQLERRM,1,200));
2638:
2639: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2640: THEN
2641: FND_MSG_PUB.add_exc_msg
2642: ( 'CST_eamCost_PUB'
2643: , '.Delete_eamPerBal : Statement -'||to_char(l_stmt_num)
2644: );
2645: END IF;
2644: );
2645: END IF;
2646:
2647: -- Get message count and data
2648: FND_MSG_PUB.count_and_get
2649: ( p_count => x_msg_count
2650: , p_data => x_msg_data
2651: );
2652:
3147: -- Initialize message list if p_init_msg_list is set to TRUE
3148: -------------------------------------------------------------------------
3149:
3150: IF FND_API.to_Boolean(p_init_msg_list) THEN
3151: FND_MSG_PUB.initialize;
3152: END IF;
3153:
3154:
3155: -------------------------------------------------------------------------
3178: ||TO_CHAR(l_entity_type)
3179: ||' WIP Entity: '
3180: ||TO_CHAR(p_wip_entity_id);
3181:
3182: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3183: ||TO_CHAR(l_stmt_num)
3184: ||'): ', l_api_message);
3185: RAISE FND_API.g_exc_error;
3186:
3210: x_msg_data => l_msg_data);
3211:
3212: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
3213: FND_MESSAGE.set_token('TEXT', l_api_message);
3214: FND_MSG_PUB.ADD;
3215: RAISE fnd_api.g_exc_error;
3216: END IF;
3217:
3218:
3239: l_api_message := 'No CG Found for Project: '
3240: ||TO_CHAR(l_wip_project_id)
3241: ||' Organization: '
3242: ||TO_CHAR(l_organization_id);
3243: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3244: ||TO_CHAR(l_stmt_num)
3245: ||'): ', l_api_message);
3246: RAISE FND_API.g_exc_error;
3247:
3318: l_stmt_num := 40;
3319:
3320: l_api_message := 'Cannot Find Period for Date: ';
3321: l_api_message := l_api_message||TO_CHAR(l_trunc_le_sched_comp_date);
3322: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3323: ||TO_CHAR(l_stmt_num)
3324: ||'): ', l_api_message);
3325: RAISE FND_API.g_exc_error;
3326:
3356:
3357: l_api_message := 'Rates Type not defined for Org: '
3358: ||TO_CHAR(l_organization_id);
3359:
3360: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3361: ||TO_CHAR(l_stmt_num)
3362: ||'): ', l_api_message);
3363: RAISE FND_API.g_exc_error;
3364:
3391: l_api_message := l_api_message||' Prd Name: '
3392: ||l_period_name;
3393: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3394: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3395: FND_MSG_PUB.add;
3396:
3397: END IF;
3398:
3399:
3428: l_api_message :=l_api_message||' WOR,Value: '||TO_CHAR(c_wor_rec.resource_value);
3429:
3430: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3431: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3432: FND_MSG_PUB.add;
3433:
3434: END IF;
3435:
3436: l_stmt_num := 60;
3448:
3449: IF l_return_status <> FND_API.g_ret_sts_success THEN
3450:
3451: l_api_message := 'Get_MaintCostCat returned error';
3452: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3453: ||TO_CHAR(l_stmt_num)
3454: ||'): ', l_api_message);
3455: RAISE FND_API.g_exc_error;
3456:
3465:
3466: IF l_eam_cost_element = 0 THEN
3467:
3468: l_api_message := 'Get_eamCostElement returned error';
3469: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3470: ||TO_CHAR(l_stmt_num)
3471: ||'): ', l_api_message);
3472: RAISE FND_API.g_exc_error;
3473:
3479: l_api_message :=l_api_message||TO_CHAR(l_maint_cost_category);
3480: l_api_message :=l_api_message||' CE: '||TO_CHAR(l_eam_cost_element);
3481: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3482: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3483: FND_MSG_PUB.add;
3484:
3485: END IF;
3486:
3487: l_stmt_num := 70;
3513:
3514: IF l_return_status <> FND_API.g_ret_sts_success THEN
3515:
3516: l_api_message := 'insertupdate_eamperbal error';
3517: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3518: ||TO_CHAR(l_stmt_num)
3519: ||'): ', l_api_message);
3520: RAISE FND_API.g_exc_error;
3521:
3545: l_api_message :=l_api_message|| ' eam_cost_element_id = '||TO_CHAR(l_eam_cost_element);
3546: l_api_message :=l_api_message|| ' Sum WOR = ' || TO_CHAR( c_wor_rec.resource_value);
3547: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3548: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3549: FND_MSG_PUB.add;
3550: END IF;
3551:
3552: Insert_eamBalAcct(
3553: p_api_version => 1.0,
3580:
3581: IF l_return_status <> FND_API.g_ret_sts_success THEN
3582:
3583: l_api_message := 'Insert_eamBalAcct error';
3584: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'Insert_eamBalAcct('
3585: ||TO_CHAR(l_stmt_num)
3586: ||'): ', l_api_message);
3587: RAISE FND_API.g_exc_error;
3588:
3592: IF (p_debug = 'Y') THEN
3593: l_api_message :=' Sum WOR = ' || TO_CHAR( c_wor_rec.resource_value);
3594: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3595: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3596: FND_MSG_PUB.add;
3597: END IF;
3598:
3599: END IF; -- if c_wor_rec.resource_value !=0
3600:
3624: l_api_message :=l_api_message||TO_CHAR(l_maint_cost_category);
3625: l_api_message :=l_api_message||' CE: '||TO_CHAR(l_eam_cost_element);
3626: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3627: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3628: FND_MSG_PUB.add;
3629:
3630: END IF;
3631:
3632: l_stmt_num := 80;
3663: IF l_return_status <> FND_API.g_ret_sts_success THEN
3664:
3665: l_api_message := 'insertupdate_eamperbal error';
3666:
3667: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3668: ||TO_CHAR(l_stmt_num)
3669: ||'): ', l_api_message);
3670: RAISE FND_API.g_exc_error;
3671:
3688: l_api_message :=l_api_message|| ' eam_cost_element_id = '||TO_CHAR(l_eam_cost_element);
3689: l_api_message :=l_api_message|| ' Sum RBO = ' || TO_CHAR(l_sum_rbo);
3690: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3691: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3692: FND_MSG_PUB.add;
3693: END IF;
3694:
3695: Insert_eamBalAcct(
3696: p_api_version => 1.0,
3723:
3724: IF l_return_status <> FND_API.g_ret_sts_success THEN
3725:
3726: l_api_message := 'Insert_eamBalAcct error';
3727: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'Insert_eamBalAcct('
3728: ||TO_CHAR(l_stmt_num)
3729: ||'): ', l_api_message);
3730: RAISE FND_API.g_exc_error;
3731:
3735: IF (p_debug = 'Y') THEN
3736: l_api_message :=' Sum RBO = ' || TO_CHAR(l_sum_rbo);
3737: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3738: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3739: FND_MSG_PUB.add;
3740: END IF;
3741: END IF; -- if l_sum_rbo != 0
3742:
3743: /*Now ADD the value for the total resource based Overheads for this
3814: l_api_message :=l_api_message||TO_CHAR(c_dbo_rec.department_id);
3815: l_api_message :=l_api_message||' DBO,Value: '||TO_CHAR(c_dbo_rec.dbo_value);
3816: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3817: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3818: FND_MSG_PUB.add;
3819:
3820: END IF;
3821:
3822: l_stmt_num := 92;
3832:
3833: IF l_return_status <> FND_API.g_ret_sts_success THEN
3834:
3835: l_api_message := 'Get_MaintCostCat returned error';
3836: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3837: ||TO_CHAR(l_stmt_num)
3838: ||'): ', l_api_message);
3839: RAISE FND_API.g_exc_error;
3840:
3848:
3849: IF l_eam_cost_element = 0 THEN
3850:
3851: l_api_message := 'Get_eamCostElement returned error';
3852: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3853: ||TO_CHAR(l_stmt_num)
3854: ||'): ', l_api_message);
3855: RAISE FND_API.g_exc_error;
3856:
3862: l_api_message :=l_api_message||TO_CHAR(l_maint_cost_category);
3863: l_api_message :=l_api_message||' CE: '||TO_CHAR(l_eam_cost_element);
3864: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3865: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3866: FND_MSG_PUB.add;
3867:
3868: END IF;
3869:
3870: l_stmt_num := 100;
3897: IF l_return_status <> FND_API.g_ret_sts_success THEN
3898:
3899: l_api_message := 'INSERTUPDATE_EAMPERBAL ERROR';
3900:
3901: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3902: ||TO_CHAR(l_stmt_num)
3903: ||'): ', l_api_message);
3904: RAISE FND_API.g_exc_error;
3905:
3920: l_api_message :=l_api_message|| ' eam_cost_element_id = '||TO_CHAR(l_eam_cost_element);
3921: l_api_message :=l_api_message|| ' Sum DBO = ' || TO_CHAR(l_sum_dbo);
3922: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3923: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3924: FND_MSG_PUB.add;
3925: END IF;
3926:
3927: Insert_eamBalAcct(
3928: p_api_version => 1.0,
3955:
3956: IF l_return_status <> FND_API.g_ret_sts_success THEN
3957:
3958: l_api_message := 'Insert_eamBalAcct error';
3959: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'Insert_eamBalAcct('
3960: ||TO_CHAR(l_stmt_num)
3961: ||'): ', l_api_message);
3962: RAISE FND_API.g_exc_error;
3963:
3967: IF (p_debug = 'Y') THEN
3968: l_api_message :=' Sum DBO = ' || TO_CHAR(l_sum_dbo);
3969: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3970: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3971: FND_MSG_PUB.add;
3972: END IF;
3973:
3974: END LOOP; */
3975:
3992: l_api_message :=l_api_message||TO_CHAR(c_wro_rec.department_id);
3993: l_api_message :=l_api_message||' WRO,Value: '||TO_CHAR(c_wro_rec.mat_value);
3994: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3995: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3996: FND_MSG_PUB.add;
3997:
3998: END IF;
3999:
4000: Get_MaintCostCat(
4009: IF l_return_status <> FND_API.g_ret_sts_success THEN
4010:
4011: l_api_message := 'Get_MaintCostCat returned error';
4012:
4013: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
4014: ||TO_CHAR(l_stmt_num)
4015: ||'): ', l_api_message);
4016: RAISE FND_API.g_exc_error;
4017:
4026: IF l_eam_cost_element = 0 THEN
4027:
4028: l_api_message := 'Get_eamCostElement returned error';
4029:
4030: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
4031: ||TO_CHAR(l_stmt_num)
4032: ||'): ', l_api_message);
4033: RAISE FND_API.g_exc_error;
4034:
4040: l_api_message :=l_api_message||TO_CHAR(l_maint_cost_category);
4041: l_api_message :=l_api_message||' CE: '||TO_CHAR(l_eam_cost_element);
4042: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4043: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4044: FND_MSG_PUB.add;
4045:
4046: END IF;
4047:
4048: l_stmt_num := 120;
4075: IF l_return_status <> FND_API.g_ret_sts_success THEN
4076:
4077: l_api_message := 'insertupdate_eamperbal error';
4078:
4079: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
4080: ||TO_CHAR(l_stmt_num)
4081: ||'): ', l_api_message);
4082: RAISE FND_API.g_exc_error;
4083:
4147: l_api_message :=l_api_message|| ' eam_cost_element_id = '||TO_CHAR(l_eam_cost_element);
4148: l_api_message :=l_api_message|| ' Sum WRO = ' || TO_CHAR(l_value);
4149: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4150: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4151: FND_MSG_PUB.add;
4152: END IF;
4153:
4154: If (l_exec_flag = 1) then
4155: Insert_eamBalAcct(
4183:
4184: IF l_return_status <> FND_API.g_ret_sts_success THEN
4185:
4186: l_api_message := 'Insert_eamBalAcct error';
4187: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'Insert_eamBalAcct('
4188: ||TO_CHAR(l_stmt_num)
4189: ||'): ', l_api_message);
4190: RAISE FND_API.g_exc_error;
4191:
4194: IF (p_debug = 'Y') THEN
4195: l_api_message :=' Sum WRO = 0';
4196: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4197: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4198: FND_MSG_PUB.add;
4199: END IF;
4200: End If;
4201: End loop; /* End For Loop for l_index_var */
4202:
4286: l_api_message :=l_api_message||TO_CHAR(c_wrodi_rec.department_id);
4287: l_api_message :=l_api_message||' WRO Direct Items,Value: '||TO_CHAR(c_wrodi_rec.mat_value);
4288: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4289: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4290: FND_MSG_PUB.add;
4291:
4292: END IF;
4293:
4294: Get_MaintCostCat(
4303: IF l_return_status <> FND_API.g_ret_sts_success THEN
4304:
4305: l_api_message := 'Get_MaintCostCat returned error';
4306:
4307: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
4308: ||TO_CHAR(l_stmt_num)
4309: ||'): ', l_api_message);
4310: RAISE FND_API.g_exc_error;
4311:
4332: l_api_message :=l_api_message||TO_CHAR(l_maint_cost_category);
4333: l_api_message :=l_api_message||' CE: '||TO_CHAR(l_eam_cost_element);
4334: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4335: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4336: FND_MSG_PUB.add;
4337:
4338: END IF;
4339:
4340: l_stmt_num := 150;
4367: IF l_return_status <> FND_API.g_ret_sts_success THEN
4368:
4369: l_api_message := 'insertupdate_eamperbal error';
4370:
4371: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
4372: ||TO_CHAR(l_stmt_num)
4373: ||'): ', l_api_message);
4374: RAISE FND_API.g_exc_error;
4375:
4401: l_api_message :=l_api_message|| ' eam_cost_element_id = '||TO_CHAR(l_eam_cost_element);
4402: l_api_message :=l_api_message|| ' Sum WRODI = ' || TO_CHAR(c_wrodi_rec.mat_value);
4403: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4404: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4405: FND_MSG_PUB.add;
4406: END IF;
4407:
4408: Insert_eamBalAcct(
4409: p_api_version => 1.0,
4436:
4437: IF l_return_status <> FND_API.g_ret_sts_success THEN
4438:
4439: l_api_message := 'Insert_eamBalAcct error';
4440: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'Insert_eamBalAcct('
4441: ||TO_CHAR(l_stmt_num)
4442: ||'): ', l_api_message);
4443: RAISE FND_API.g_exc_error;
4444:
4448: IF (p_debug = 'Y') THEN
4449: l_api_message :=' Sum WRODI = ' || TO_CHAR(c_wrodi_rec.mat_value);
4450: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4451: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4452: FND_MSG_PUB.add;
4453: END IF;
4454:
4455: END IF; -- if c_wrodi_rec.mat_value != 0
4456:
4560: l_api_message :=l_api_message||TO_CHAR(c_wedi_rec.direct_item_id);
4561: l_api_message :=l_api_message||' WRO Direct Items,Value: '||TO_CHAR(c_wedi_rec.wedi_value);
4562: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4563: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4564: FND_MSG_PUB.add;
4565:
4566: END IF;
4567:
4568: Get_MaintCostCat(
4577: IF l_return_status <> FND_API.g_ret_sts_success THEN
4578:
4579: l_api_message := 'Get_MaintCostCat returned error';
4580:
4581: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
4582: ||TO_CHAR(l_stmt_num)
4583: ||'): ', l_api_message);
4584: RAISE FND_API.g_exc_error;
4585:
4606: l_api_message :=l_api_message||TO_CHAR(l_maint_cost_category);
4607: l_api_message :=l_api_message||' CE: '||TO_CHAR(l_eam_cost_element);
4608: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4609: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4610: FND_MSG_PUB.add;
4611:
4612: END IF;
4613:
4614: l_stmt_num := 170;
4640: IF l_return_status <> FND_API.g_ret_sts_success THEN
4641:
4642: l_api_message := 'insertupdate_eamperbal error';
4643:
4644: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
4645: ||TO_CHAR(l_stmt_num)
4646: ||'): ', l_api_message);
4647: RAISE FND_API.g_exc_error;
4648:
4673: l_api_message :=l_api_message|| ' eam_cost_element_id = '||TO_CHAR(l_eam_cost_element);
4674: l_api_message :=l_api_message|| ' Sum WEDI = ' || TO_CHAR(c_wedi_rec.wedi_value);
4675: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4676: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4677: FND_MSG_PUB.add;
4678: END IF;
4679:
4680: Insert_eamBalAcct(
4681: p_api_version => 1.0,
4708:
4709: IF l_return_status <> FND_API.g_ret_sts_success THEN
4710:
4711: l_api_message := 'Insert_eamBalAcct error';
4712: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'Insert_eamBalAcct('
4713: ||TO_CHAR(l_stmt_num)
4714: ||'): ', l_api_message);
4715: RAISE FND_API.g_exc_error;
4716:
4720: IF (p_debug = 'Y') THEN
4721: l_api_message :=' Sum WEDI = ' || TO_CHAR(c_wedi_rec.wedi_value);
4722: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4723: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4724: FND_MSG_PUB.add;
4725: END IF;
4726:
4727: End If; -- if c_wedi_rec.wedi_value !=0
4728:
4854: l_api_message :=l_api_message||TO_CHAR(c_pda_rec.category_date);
4855: l_api_message :=l_api_message||' PDA,Value: '||TO_CHAR(c_pda_rec.pda_value);
4856: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4857: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4858: FND_MSG_PUB.add;
4859:
4860: END IF;
4861:
4862: l_stmt_num := 185;
4873: IF l_return_status <> FND_API.g_ret_sts_success THEN
4874:
4875: l_api_message := 'Get_MaintCostCat returned error';
4876:
4877: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
4878: ||TO_CHAR(l_stmt_num)
4879: ||'): ', l_api_message);
4880: RAISE FND_API.g_exc_error;
4881:
4911: l_api_message :=l_api_message||TO_CHAR(l_maint_cost_category);
4912: l_api_message :=l_api_message||' CE: '||TO_CHAR(l_eam_cost_element);
4913: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4914: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4915: FND_MSG_PUB.add;
4916:
4917: END IF;
4918:
4919: l_stmt_num := 195;
4946: IF l_return_status <> FND_API.g_ret_sts_success THEN
4947:
4948: l_api_message := 'insertupdate_eamperbal error';
4949:
4950: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
4951: ||TO_CHAR(l_stmt_num)
4952: ||'): ', l_api_message);
4953: RAISE FND_API.g_exc_error;
4954:
4979: l_api_message :=l_api_message|| ' eam_cost_element_id = '||TO_CHAR(l_eam_cost_element);
4980: l_api_message :=l_api_message|| ' Sum PDA = ' || TO_CHAR( c_pda_rec.pda_value);
4981: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4982: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4983: FND_MSG_PUB.add;
4984: END IF;
4985:
4986: Insert_eamBalAcct(
4987: p_api_version => 1.0,
5014:
5015: IF l_return_status <> FND_API.g_ret_sts_success THEN
5016:
5017: l_api_message := 'Insert_eamBalAcct error';
5018: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'Insert_eamBalAcct('
5019: ||TO_CHAR(l_stmt_num)
5020: ||'): ', l_api_message);
5021: RAISE FND_API.g_exc_error;
5022:
5025: IF (p_debug = 'Y') THEN
5026: l_api_message :=' Sum PDA = ' || TO_CHAR( c_pda_rec.pda_value);
5027: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
5028: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
5029: FND_MSG_PUB.add;
5030: END IF;
5031: End If; -- if c_pda_rec.pda_value != 0
5032:
5033: l_stmt_num := 200;
5200: ---------------------------------------------------------------------------
5201: -- Standard Call to get message count and if count = 1, get message info
5202: ---------------------------------------------------------------------------
5203:
5204: FND_MSG_PUB.Count_And_Get (
5205: p_count => x_msg_count,
5206: p_data => x_msg_data );
5207:
5208: EXCEPTION
5210: WHEN fnd_api.g_exc_error THEN
5211: x_return_status := fnd_api.g_ret_sts_error;
5212:
5213: -- Get message count and data
5214: fnd_msg_pub.count_and_get
5215: ( p_count => x_msg_count
5216: , p_data => x_msg_data
5217: );
5218: --
5219: WHEN fnd_api.g_exc_unexpected_error THEN
5220: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5221:
5222: -- Get message count and data
5223: fnd_msg_pub.count_and_get
5224: ( p_count => x_msg_count
5225: , p_data => x_msg_data
5226: );
5227: --
5227: --
5228: WHEN OTHERS THEN
5229: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5230: --
5231: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
5232: THEN
5233: fnd_msg_pub.add_exc_msg
5234: ( 'CST_EamJob_PUB'
5235: , 'Compute_Job_Estimate : l_stmt_num - '||to_char(l_stmt_num)
5229: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5230: --
5231: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
5232: THEN
5233: fnd_msg_pub.add_exc_msg
5234: ( 'CST_EamJob_PUB'
5235: , 'Compute_Job_Estimate : l_stmt_num - '||to_char(l_stmt_num)
5236: );
5237:
5236: );
5237:
5238: END IF;
5239: -- Get message count and data
5240: fnd_msg_pub.count_and_get
5241: ( p_count => x_msg_count
5242: , p_data => x_msg_data
5243: );
5244:
5323: -- Initialize message list if p_init_msg_list is set to TRUE
5324: -------------------------------------------------------------
5325: l_statement := 20;
5326: IF fnd_api.to_Boolean(p_init_msg_list) then
5327: fnd_msg_pub.initialize;
5328: END IF;
5329:
5330: -------------------------------------------------------------
5331: -- Initialize API return status to Success
5698: -- If nothing, raise error
5699: ---------------------------------------------------------------------------
5700: IF (l_count = 0) THEN
5701: l_api_message := 'No row is inserted into CST_EAM_ROLLUP_TEMP';
5702: fnd_msg_pub.add_exc_msg
5703: ( G_PKG_NAME,
5704: l_api_name,
5705: l_api_message );
5706: RAISE fnd_api.g_exc_error;
5717: ---------------------------------------------------------------------------
5718: -- Standard Call to get message count and if count = 1, get message info
5719: ---------------------------------------------------------------------------
5720: l_statement := 120;
5721: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5722: p_data => x_msg_data );
5723:
5724:
5725: EXCEPTION
5725: EXCEPTION
5726: WHEN fnd_api.g_exc_error then
5727: ROLLBACK TO Rollup_Cost_PUB;
5728: x_return_status := fnd_api.g_ret_sts_error;
5729: fnd_msg_pub.count_and_get ( p_count => x_msg_count,
5730: p_data => x_msg_data );
5731:
5732: WHEN fnd_api.g_exc_unexpected_error then
5733: ROLLBACK TO Rollup_Cost_PUB;
5731:
5732: WHEN fnd_api.g_exc_unexpected_error then
5733: ROLLBACK TO Rollup_Cost_PUB;
5734: x_return_status := fnd_api.g_ret_sts_unexp_error;
5735: fnd_msg_pub.count_and_get ( p_count => x_msg_count,
5736: p_data => x_msg_data );
5737:
5738: WHEN OTHERS THEN
5739: ROLLBACK TO Rollup_Cost_PUB;
5738: WHEN OTHERS THEN
5739: ROLLBACK TO Rollup_Cost_PUB;
5740: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5741:
5742: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
5743: fnd_msg_pub.add_exc_msg
5744: ( G_PKG_NAME,l_api_name || ' : Statement - ' || to_char(l_statement));
5745: END IF;
5746:
5739: ROLLBACK TO Rollup_Cost_PUB;
5740: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5741:
5742: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
5743: fnd_msg_pub.add_exc_msg
5744: ( G_PKG_NAME,l_api_name || ' : Statement - ' || to_char(l_statement));
5745: END IF;
5746:
5747: fnd_msg_pub.count_and_get( p_count => x_msg_count,
5743: fnd_msg_pub.add_exc_msg
5744: ( G_PKG_NAME,l_api_name || ' : Statement - ' || to_char(l_statement));
5745: END IF;
5746:
5747: fnd_msg_pub.count_and_get( p_count => x_msg_count,
5748: p_data => x_msg_data );
5749:
5750: END Rollup_Cost;
5751:
5809: -- Initialize message list if p_init_msg_list is set to TRUE
5810: -------------------------------------------------------------
5811: l_statement := 20;
5812: IF fnd_api.to_Boolean(p_init_msg_list) then
5813: fnd_msg_pub.initialize;
5814: END IF;
5815:
5816: -------------------------------------------------------------
5817: -- Initialize API return status to Success
5844: ---------------------------------------------------------------------------
5845: -- Standard Call to get message count and if count = 1, get message info
5846: ---------------------------------------------------------------------------
5847: l_statement := 70;
5848: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5849: p_data => x_msg_data );
5850:
5851:
5852: EXCEPTION
5853:
5854: WHEN fnd_api.g_exc_error then
5855: ROLLBACK TO Purge_Rollup_Cost_PUB;
5856: x_return_status := fnd_api.g_ret_sts_error;
5857: fnd_msg_pub.count_and_get ( p_count => x_msg_count,
5858: p_data => x_msg_data );
5859:
5860: WHEN fnd_api.g_exc_unexpected_error then
5861: ROLLBACK TO Purge_Rollup_Cost_PUB;
5859:
5860: WHEN fnd_api.g_exc_unexpected_error then
5861: ROLLBACK TO Purge_Rollup_Cost_PUB;
5862: x_return_status := fnd_api.g_ret_sts_unexp_error;
5863: fnd_msg_pub.count_and_get ( p_count => x_msg_count,
5864: p_data => x_msg_data );
5865:
5866: WHEN OTHERS THEN
5867: ROLLBACK TO Purge_Rollup_Cost_PUB;
5865:
5866: WHEN OTHERS THEN
5867: ROLLBACK TO Purge_Rollup_Cost_PUB;
5868: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5869: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
5870: fnd_msg_pub.add_exc_msg
5871: ( G_PKG_NAME,l_api_name || ' : Statement - ' || to_char(l_statement));
5872: END IF;
5873: fnd_msg_pub.count_and_get( p_count => x_msg_count,
5866: WHEN OTHERS THEN
5867: ROLLBACK TO Purge_Rollup_Cost_PUB;
5868: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5869: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
5870: fnd_msg_pub.add_exc_msg
5871: ( G_PKG_NAME,l_api_name || ' : Statement - ' || to_char(l_statement));
5872: END IF;
5873: fnd_msg_pub.count_and_get( p_count => x_msg_count,
5874: p_data => x_msg_data );
5869: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
5870: fnd_msg_pub.add_exc_msg
5871: ( G_PKG_NAME,l_api_name || ' : Statement - ' || to_char(l_statement));
5872: END IF;
5873: fnd_msg_pub.count_and_get( p_count => x_msg_count,
5874: p_data => x_msg_data );
5875:
5876: END Purge_Rollup_Cost;
5877:
5945: END IF;
5946:
5947: -- Initialize message list if p_init_msg_list is set to TRUE
5948: IF FND_API.to_Boolean(p_init_msg_list) THEN
5949: FND_MSG_PUB.initialize;
5950: END IF;
5951:
5952: -- Initialize API return status to success
5953: l_stmt_num := 0;
6062: COMMIT WORK;
6063: END IF;
6064:
6065: -- Standard Call to get message count and if count = 1, get message info
6066: FND_MSG_PUB.Count_And_Get (
6067: p_count => x_msg_count,
6068: p_data => x_msg_data );
6069:
6070: -- Print messages to log file
6075: ROLLBACK TO check_if_direct_item_PUB;
6076: x_return_status := fnd_api.g_ret_sts_error;
6077:
6078: -- Get message count and data
6079: fnd_msg_pub.count_and_get
6080: ( p_count => x_msg_count
6081: , p_data => x_msg_data
6082: );
6083:
6085: ROLLBACK TO check_if_direct_item_PUB;
6086: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6087:
6088: -- Get message count and data
6089: fnd_msg_pub.count_and_get
6090: ( p_count => x_msg_count
6091: , p_data => x_msg_data
6092: );
6093: --
6094: WHEN OTHERS THEN
6095: ROLLBACK TO check_if_direct_item_PUB;
6096: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6097: --
6098: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
6099: THEN
6100: fnd_msg_pub.add_exc_msg
6101: ( 'CST_eamCost_PUB'
6102: , 'check_if_direct_item : Statement - '|| to_char(l_stmt_num)
6096: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6097: --
6098: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
6099: THEN
6100: fnd_msg_pub.add_exc_msg
6101: ( 'CST_eamCost_PUB'
6102: , 'check_if_direct_item : Statement - '|| to_char(l_stmt_num)
6103: );
6104:
6104:
6105: END IF;
6106:
6107: -- Get message count and data
6108: fnd_msg_pub.count_and_get
6109: ( p_count => x_msg_count
6110: , p_data => x_msg_data
6111: );
6112: END check_if_direct_item;
6207: END IF;
6208:
6209: -- Initialize message list if p_init_msg_list is set to TRUE
6210: IF FND_API.to_Boolean(p_init_msg_list) THEN
6211: FND_MSG_PUB.initialize;
6212: END IF;
6213:
6214: -- Initialize API return status to success
6215: l_stmt_num := 10;
6688: FND_FILE.put_line(FND_FILE.log, l_msg_data);
6689: l_api_message := 'WIP_EAM_RESOURCE_TRANSACTION.WIP_EAMRCVDIRECTITEM_HOOK returned error';
6690: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
6691: FND_MESSAGE.set_token('TEXT', l_api_message);
6692: FND_MSG_pub.add;
6693: RAISE FND_API.g_exc_error;
6694: END IF;
6695:
6696: -- Standard check of p_commit
6698: COMMIT WORK;
6699: END IF;
6700:
6701: -- Standard Call to get message count and if count = 1, get message info
6702: FND_MSG_PUB.Count_And_Get (
6703: p_count => x_msg_count,
6704: p_data => x_msg_data );
6705:
6706: -- Print messages to log file
6711: ROLLBACK TO process_direct_item_txn_PUB;
6712: x_return_status := fnd_api.g_ret_sts_error;
6713:
6714: -- Get message count and data
6715: fnd_msg_pub.count_and_get
6716: ( p_count => x_msg_count
6717: , p_data => x_msg_data
6718: );
6719:
6721: ROLLBACK TO process_direct_item_txn_PUB;
6722: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6723:
6724: -- Get message count and data
6725: fnd_msg_pub.count_and_get
6726: ( p_count => x_msg_count
6727: , p_data => x_msg_data
6728: );
6729: --
6730: WHEN OTHERS THEN
6731: ROLLBACK TO process_direct_item_txn_PUB;
6732: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6733: --
6734: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
6735: THEN
6736: fnd_msg_pub.add_exc_msg
6737: ( 'CST_eamCost_PUB'
6738: , 'process_direct_item_txn : Statement - '|| to_char(l_stmt_num)
6732: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6733: --
6734: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
6735: THEN
6736: fnd_msg_pub.add_exc_msg
6737: ( 'CST_eamCost_PUB'
6738: , 'process_direct_item_txn : Statement - '|| to_char(l_stmt_num)
6739: );
6740:
6740:
6741: END IF;
6742:
6743: -- Get message count and data
6744: fnd_msg_pub.count_and_get
6745: ( p_count => x_msg_count
6746: , p_data => x_msg_data
6747: );
6748: END process_direct_item_txn;
6851: END IF;
6852:
6853: -- Initialize message list if p_init_msg_list is set to TRUE
6854: IF FND_API.to_Boolean(p_init_msg_list) THEN
6855: FND_MSG_PUB.initialize;
6856: END IF;
6857:
6858: -- Initialize API return status to success
6859: l_stmt_num := 10;
7016: FND_FILE.put_line(FND_FILE.log, x_msg_data);
7017: l_api_message := 'get_CostEle_for_DirectItem returned unexpected error';
7018: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
7019: FND_MESSAGE.set_token('TEXT', l_api_message);
7020: FND_MSG_pub.add;
7021: raise fnd_api.g_exc_unexpected_error;
7022: end if;
7023:
7024: if (l_debug = 'Y') then
7175: COMMIT WORK;
7176: END IF;
7177:
7178: -- Standard Call to get message count and if count = 1, get message info
7179: FND_MSG_PUB.Count_And_Get (
7180: p_count => x_msg_count,
7181: p_data => x_msg_data );
7182:
7183: -- Print messages to log file
7188: ROLLBACK TO cost_direct_item_txn_PUB;
7189: x_return_status := fnd_api.g_ret_sts_error;
7190:
7191: -- Get message count and data
7192: fnd_msg_pub.count_and_get
7193: ( p_count => x_msg_count
7194: , p_data => x_msg_data
7195: );
7196:
7198: ROLLBACK TO cost_direct_item_txn_PUB;
7199: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7200:
7201: -- Get message count and data
7202: fnd_msg_pub.count_and_get
7203: ( p_count => x_msg_count
7204: , p_data => x_msg_data
7205: );
7206: --
7207: WHEN OTHERS THEN
7208: ROLLBACK TO cost_direct_item_txn_PUB;
7209: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7210: fnd_file.put_line(fnd_file.log,'CST_eamCost_PUB.cost_direct_item_txn: Statement(' || to_char(l_stmt_num) || '): ' || substr(SQLERRM,1,240));
7211: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
7212: THEN
7213: fnd_msg_pub.add_exc_msg
7214: ( 'CST_eamCost_PUB'
7215: , 'cost_direct_item_txn : Statement - '|| to_char(l_stmt_num)
7209: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7210: fnd_file.put_line(fnd_file.log,'CST_eamCost_PUB.cost_direct_item_txn: Statement(' || to_char(l_stmt_num) || '): ' || substr(SQLERRM,1,240));
7211: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
7212: THEN
7213: fnd_msg_pub.add_exc_msg
7214: ( 'CST_eamCost_PUB'
7215: , 'cost_direct_item_txn : Statement - '|| to_char(l_stmt_num)
7216: );
7217:
7217:
7218: END IF;
7219:
7220: -- Get message count and data
7221: fnd_msg_pub.count_and_get
7222: ( p_count => x_msg_count
7223: , p_data => x_msg_data
7224: );
7225: END cost_direct_item_txn;
7303: END IF;
7304:
7305: -- Initialize message list if p_init_msg_list is set to TRUE
7306: IF FND_API.to_Boolean(p_init_msg_list) THEN
7307: FND_MSG_PUB.initialize;
7308: END IF;
7309:
7310: -- Initialize API return status to success
7311: l_stmt_num := 10;
7425: FND_FILE.put_line(FND_FILE.log, x_msg_data);
7426: l_api_message := 'get_CostEle_for_DirectItem returned unexpected error';
7427: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
7428: FND_MESSAGE.set_token('TEXT', l_api_message);
7429: FND_MSG_pub.add;
7430: raise fnd_api.g_exc_unexpected_error;
7431: end if;
7432:
7433: if (l_debug = 'Y') then
7606: COMMIT WORK;
7607: END IF;
7608:
7609: -- Standard Call to get message count and if count = 1, get message info
7610: FND_MSG_PUB.Count_And_Get (
7611: p_count => x_msg_count,
7612: p_data => x_msg_data );
7613:
7614: -- Print messages to log file
7619: ROLLBACK TO insert_direct_item_distr_PUB;
7620: x_return_status := fnd_api.g_ret_sts_error;
7621:
7622: -- Get message count and data
7623: fnd_msg_pub.count_and_get
7624: ( p_count => x_msg_count
7625: , p_data => x_msg_data
7626: );
7627:
7629: ROLLBACK TO insert_direct_item_distr_PUB;
7630: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7631:
7632: -- Get message count and data
7633: fnd_msg_pub.count_and_get
7634: ( p_count => x_msg_count
7635: , p_data => x_msg_data
7636: );
7637: --
7639: ROLLBACK TO insert_direct_item_distr_PUB;
7640: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7641: fnd_file.put_line(fnd_file.log,'CST_eamCost_PUB.insert_direct_item_distr(' || to_char(l_stmt_num) || '): ' || substr(SQLERRM,1,240));
7642: --
7643: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
7644: THEN
7645: fnd_msg_pub.add_exc_msg
7646: ( 'CST_eamCost_PUB'
7647: , 'insert_direct_item_distr : Statement - '|| to_char(l_stmt_num)
7641: fnd_file.put_line(fnd_file.log,'CST_eamCost_PUB.insert_direct_item_distr(' || to_char(l_stmt_num) || '): ' || substr(SQLERRM,1,240));
7642: --
7643: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
7644: THEN
7645: fnd_msg_pub.add_exc_msg
7646: ( 'CST_eamCost_PUB'
7647: , 'insert_direct_item_distr : Statement - '|| to_char(l_stmt_num)
7648: );
7649:
7649:
7650: END IF;
7651:
7652: -- Get message count and data
7653: fnd_msg_pub.count_and_get
7654: ( p_count => x_msg_count
7655: , p_data => x_msg_data
7656: );
7657: END insert_direct_item_distr;
7724: -- Initialize message list if p_init_msg_list is set to TRUE
7725: -------------------------------------------------------------
7726: l_statement := 20;
7727: IF fnd_api.to_Boolean(p_init_msg_list) then
7728: fnd_msg_pub.initialize;
7729: end if;
7730:
7731: -------------------------------------------------------------
7732: -- Initialize API return status to Success
7775: FND_FILE.put_line(FND_FILE.log, x_msg_data);
7776: l_api_message := 'get_CostEle_for_DirectItem returned unexpected error';
7777: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
7778: FND_MESSAGE.set_token('TEXT', l_api_message);
7779: FND_MSG_pub.add;
7780: raise fnd_api.g_exc_unexpected_error;
7781: end if;
7782:
7783: if (l_debug = 'Y') then
7844: COMMIT WORK;
7845: END IF;
7846:
7847: -- Standard Call to get message count and if count = 1, get message info
7848: FND_MSG_PUB.Count_And_Get (
7849: p_count => x_msg_count,
7850: p_data => x_msg_data );
7851:
7852: -- Print messages to log file
7856: WHEN fnd_api.g_exc_error then
7857: ROLLBACK TO update_wip_period_balances_PUB;
7858: x_return_status := fnd_api.g_ret_sts_error;
7859:
7860: fnd_msg_pub.count_and_get
7861: ( p_count => x_msg_count,
7862: p_data => x_msg_data );
7863:
7864: WHEN fnd_api.g_exc_unexpected_error then
7864: WHEN fnd_api.g_exc_unexpected_error then
7865: ROLLBACK TO update_wip_period_balances_PUB;
7866: x_return_status := fnd_api.g_ret_sts_unexp_error;
7867:
7868: fnd_msg_pub.count_and_get
7869: ( p_count => x_msg_count,
7870: p_data => x_msg_data );
7871:
7872: WHEN OTHERS THEN
7871:
7872: WHEN OTHERS THEN
7873: ROLLBACK TO update_wip_period_balances_PUB;
7874: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7875: If fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
7876: fnd_msg_pub.add_exc_msg
7877: ( 'CST_eamCost_PUB',' update_wip_period_balances : Statement - ' || to_char(l_statement));
7878: end if;
7879:
7872: WHEN OTHERS THEN
7873: ROLLBACK TO update_wip_period_balances_PUB;
7874: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7875: If fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
7876: fnd_msg_pub.add_exc_msg
7877: ( 'CST_eamCost_PUB',' update_wip_period_balances : Statement - ' || to_char(l_statement));
7878: end if;
7879:
7880: fnd_msg_pub.count_and_get( p_count => x_msg_count,
7876: fnd_msg_pub.add_exc_msg
7877: ( 'CST_eamCost_PUB',' update_wip_period_balances : Statement - ' || to_char(l_statement));
7878: end if;
7879:
7880: fnd_msg_pub.count_and_get( p_count => x_msg_count,
7881: p_data => x_msg_data );
7882: END update_wip_period_balances;
7883:
7884: ----------------------------------------------------------------------------
7940: END IF;
7941:
7942: -- Initialize message list if p_init_msg_list is set to TRUE
7943: IF FND_API.to_Boolean(p_init_msg_list) THEN
7944: FND_MSG_PUB.initialize;
7945: END IF;
7946:
7947: -- Initialize API return status to success
7948: x_return_status := FND_API.G_RET_STS_SUCCESS;
8068: COMMIT WORK;
8069: END IF;
8070:
8071: -- Standard Call to get message count and if count = 1, get message info
8072: FND_MSG_PUB.Count_And_Get (
8073: p_count => x_msg_count,
8074: p_data => x_msg_data );
8075:
8076: -- Print messages to log file
8081: ROLLBACK TO insert_direct_item_txn_PUB;
8082: x_return_status := fnd_api.g_ret_sts_error;
8083:
8084: -- Get message count and data
8085: fnd_msg_pub.count_and_get
8086: ( p_count => x_msg_count
8087: , p_data => x_msg_data
8088: );
8089:
8091: ROLLBACK TO insert_direct_item_txn_PUB;
8092: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8093:
8094: -- Get message count and data
8095: fnd_msg_pub.count_and_get
8096: ( p_count => x_msg_count
8097: , p_data => x_msg_data
8098: );
8099: --
8101: ROLLBACK TO insert_direct_item_txn_PUB;
8102: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8103: fnd_file.put_line(fnd_file.log,'CST_eamCost_PUB.insert_direct_item_txn: Statement(' || to_char(l_stmt_num) || '): ' || substr(SQLERRM,1,240));
8104: --
8105: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
8106: THEN
8107: fnd_msg_pub.add_exc_msg
8108: ( 'CST_eamCost_PUB'
8109: , 'insert_direct_item_txn : Statement - '|| to_char(l_stmt_num)
8103: fnd_file.put_line(fnd_file.log,'CST_eamCost_PUB.insert_direct_item_txn: Statement(' || to_char(l_stmt_num) || '): ' || substr(SQLERRM,1,240));
8104: --
8105: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
8106: THEN
8107: fnd_msg_pub.add_exc_msg
8108: ( 'CST_eamCost_PUB'
8109: , 'insert_direct_item_txn : Statement - '|| to_char(l_stmt_num)
8110: );
8111:
8111:
8112: END IF;
8113:
8114: -- Get message count and data
8115: fnd_msg_pub.count_and_get
8116: ( p_count => x_msg_count
8117: , p_data => x_msg_data
8118: );
8119: END insert_direct_item_txn;
8189: -- Initialize message list if p_init_msg_list is set to TRUE
8190: -------------------------------------------------------------
8191: l_statement := 20;
8192: IF fnd_api.to_Boolean(p_init_msg_list) then
8193: fnd_msg_pub.initialize;
8194: end if;
8195:
8196: -------------------------------------------------------------
8197: -- Initialize API return status to Success
8207: if (p_wip_entity_id is null) then
8208: l_api_message := 'Please specify a wip entity id';
8209: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
8210: FND_MESSAGE.set_token('TEXT', l_api_message);
8211: FND_MSG_PUB.add;
8212:
8213: RAISE fnd_api.g_exc_error;
8214: end if;
8215:
8239: WHEN fnd_api.g_exc_error then
8240: x_return_status := fnd_api.g_ret_sts_error;
8241: x_material_acct := -1;
8242:
8243: fnd_msg_pub.count_and_get
8244: ( p_count => x_msg_count,
8245: p_data => x_msg_data );
8246:
8247: WHEN fnd_api.g_exc_unexpected_error then
8247: WHEN fnd_api.g_exc_unexpected_error then
8248: x_return_status := fnd_api.g_ret_sts_unexp_error;
8249: x_material_acct := -1;
8250:
8251: fnd_msg_pub.count_and_get
8252: ( p_count => x_msg_count,
8253: p_data => x_msg_data );
8254:
8255: WHEN OTHERS THEN
8254:
8255: WHEN OTHERS THEN
8256: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8257: x_material_acct := -1;
8258: If fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
8259: fnd_msg_pub.add_exc_msg
8260: ( 'CST_eamCost_PUB',' get_Direct_Item_Charge_Acct : Statement - ' || to_char(l_statement));
8261: end if;
8262:
8255: WHEN OTHERS THEN
8256: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8257: x_material_acct := -1;
8258: If fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
8259: fnd_msg_pub.add_exc_msg
8260: ( 'CST_eamCost_PUB',' get_Direct_Item_Charge_Acct : Statement - ' || to_char(l_statement));
8261: end if;
8262:
8263: fnd_msg_pub.count_and_get( p_count => x_msg_count,
8259: fnd_msg_pub.add_exc_msg
8260: ( 'CST_eamCost_PUB',' get_Direct_Item_Charge_Acct : Statement - ' || to_char(l_statement));
8261: end if;
8262:
8263: fnd_msg_pub.count_and_get( p_count => x_msg_count,
8264: p_data => x_msg_data );
8265: END get_Direct_Item_Charge_Acct;
8266:
8267: ----------------------------------------------------------------------------
8326: END IF;
8327:
8328: -- Initialize message list if p_init_msg_list is set to TRUE
8329: IF FND_API.to_Boolean(p_init_msg_list) THEN
8330: FND_MSG_PUB.initialize;
8331: END IF;
8332:
8333:
8334: -- Initialize API return status to success
8380: COMMIT WORK;
8381: END IF;
8382:
8383: -- Standard Call to get message count and if count = 1, get message info
8384: FND_MSG_PUB.Count_And_Get (
8385: p_count => x_msg_count,
8386: p_data => x_msg_data );
8387:
8388: EXCEPTION
8390: ROLLBACK TO validate_for_reestimation_PUB;
8391: x_return_status := fnd_api.g_ret_sts_error;
8392:
8393: -- Get message count and data
8394: fnd_msg_pub.count_and_get
8395: ( p_count => x_msg_count
8396: , p_data => x_msg_data
8397: );
8398:
8400: ROLLBACK TO validate_for_reestimation_PUB;
8401: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8402:
8403: -- Get message count and data
8404: fnd_msg_pub.count_and_get
8405: ( p_count => x_msg_count
8406: , p_data => x_msg_data
8407: );
8408:
8409: WHEN OTHERS THEN
8410: ROLLBACK TO validate_for_reestimation_PUB;
8411: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8412: --
8413: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
8414: THEN
8415: fnd_msg_pub.add_exc_msg
8416: ( 'CST_eamCost_PUB'
8417: , 'validate_for_reestimation : Statement - '|| to_char(l_stmt_num)
8411: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8412: --
8413: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
8414: THEN
8415: fnd_msg_pub.add_exc_msg
8416: ( 'CST_eamCost_PUB'
8417: , 'validate_for_reestimation : Statement - '|| to_char(l_stmt_num)
8418: );
8419:
8419:
8420: END IF;
8421:
8422: -- Get message count and data
8423: fnd_msg_pub.count_and_get
8424: ( p_count => x_msg_count
8425: , p_data => x_msg_data
8426: );
8427: END validate_for_reestimation;
8577: -------------------------------------------------------------------------
8578: -- Initialize message list if p_init_msg_list is set to TRUE
8579: -------------------------------------------------------------------------
8580: IF FND_API.to_Boolean(p_init_msg_list) THEN
8581: FND_MSG_PUB.initialize;
8582: END IF;
8583:
8584:
8585: -------------------------------------------------------------------------
8658: l_api_message := ' Number Members: ' ||TO_CHAR(l_number_members);
8659: l_api_message := l_api_message || ' Weightage Factor: '||TO_CHAR(l_weightage_factor);
8660: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
8661: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
8662: FND_MSG_PUB.add;
8663:
8664: -------------------------------------------------------------
8665: -- Get variance amounts pl + moh, resource , osp, overhead
8666: --------------------------------------------------------------
8893: ---------------------------------------------------------------------------
8894: -- Standard Call to get message count and if count = 1, get message info
8895: ---------------------------------------------------------------------------
8896:
8897: FND_MSG_PUB.Count_And_Get (
8898: p_count => x_msg_count,
8899: p_data => x_msg_data );
8900:
8901: EXCEPTION
8903: WHEN fnd_api.g_exc_error THEN
8904: x_return_status := fnd_api.g_ret_sts_error;
8905:
8906: -- Get message count and data
8907: fnd_msg_pub.count_and_get
8908: ( p_count => x_msg_count
8909: , p_data => x_msg_data
8910: );
8911: --
8913: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8914: fnd_file.put_line(fnd_file.log,l_msg_data);
8915:
8916: -- Get message count and data
8917: fnd_msg_pub.count_and_get
8918: ( p_count => x_msg_count
8919: , p_data => x_msg_data
8920: );
8921: --
8921: --
8922: WHEN OTHERS THEN
8923: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8924: --
8925: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
8926: THEN
8927: fnd_msg_pub.add_exc_msg
8928: ( 'CST_EamJob_PUB'
8929: , 'Redistribute_WIP_Accounts : l_stmt_num - '
8923: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8924: --
8925: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
8926: THEN
8927: fnd_msg_pub.add_exc_msg
8928: ( 'CST_EamJob_PUB'
8929: , 'Redistribute_WIP_Accounts : l_stmt_num - '
8930: ||to_char(l_stmt_num)
8931: );
8931: );
8932:
8933: END IF;
8934: -- Get message count and data
8935: fnd_msg_pub.count_and_get
8936: ( p_count => x_msg_count
8937: , p_data => x_msg_data
8938: );
8939:
8993: END IF;
8994:
8995: -- Initialize message list if p_init_msg_list is set to TRUE
8996: IF FND_API.to_Boolean(p_init_msg_list) THEN
8997: FND_MSG_PUB.initialize;
8998: END IF;
8999:
9000: -- Initialize API return status to success
9001: l_stmt_num := 0;
9064: END IF;
9065:
9066: -- Standard Call to get message count and if count = 1, get message info
9067: l_stmt_num := 30;
9068: FND_MSG_PUB.Count_And_Get(
9069: p_count => x_msg_count,
9070: p_data => x_msg_data);
9071:
9072: EXCEPTION
9073: WHEN fnd_api.g_exc_error THEN
9074: x_return_status := fnd_api.g_ret_sts_error;
9075:
9076: -- Get message count and data
9077: fnd_msg_pub.count_and_get(
9078: p_count => x_msg_count,
9079: p_data => x_msg_data);
9080:
9081: WHEN fnd_api.g_exc_unexpected_error THEN
9081: WHEN fnd_api.g_exc_unexpected_error THEN
9082: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9083:
9084: -- Get message count and data
9085: fnd_msg_pub.count_and_get(
9086: p_count => x_msg_count,
9087: p_data => x_msg_data);
9088:
9089: WHEN OTHERS THEN
9088:
9089: WHEN OTHERS THEN
9090: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9091:
9092: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
9093: fnd_msg_pub.add_exc_msg(
9094: 'CST_eamCost_PUB',
9095: 'get_charge_asset : Statement - '|| to_char(l_stmt_num));
9096: END IF;
9089: WHEN OTHERS THEN
9090: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9091:
9092: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
9093: fnd_msg_pub.add_exc_msg(
9094: 'CST_eamCost_PUB',
9095: 'get_charge_asset : Statement - '|| to_char(l_stmt_num));
9096: END IF;
9097:
9095: 'get_charge_asset : Statement - '|| to_char(l_stmt_num));
9096: END IF;
9097:
9098: -- Get message count and data
9099: fnd_msg_pub.count_and_get(
9100: p_count => x_msg_count,
9101: p_data => x_msg_data);
9102: END get_charge_asset;
9103:
9175: -- Initialize message list if p_init_msg_list is set to TRUE
9176: -------------------------------------------------------------
9177: l_statement := 20;
9178: IF fnd_api.to_Boolean(p_init_msg_list) then
9179: fnd_msg_pub.initialize;
9180: end if;
9181:
9182: -------------------------------------------
9183: -- Initialize API return status to Success
9192: if (p_txn_id is null or p_mnt_or_mfg is null) then
9193: l_api_message := 'One of the IN parameter is null';
9194: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
9195: FND_MESSAGE.set_token('TEXT', l_api_message);
9196: FND_MSG_PUB.add;
9197: RAISE fnd_api.g_exc_error;
9198: end if;
9199:
9200: ----------------------------------------------------------------------
9220: when no_data_found then
9221: l_api_message := 'Transaction ID does not exist in WIP_COST_TXN_INTERFACE table. ';
9222: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
9223: FND_MESSAGE.set_token('TEXT', l_api_message);
9224: FND_MSG_PUB.add;
9225: RAISE fnd_api.g_exc_error;
9226: end;
9227: ELSE -- Done to support eAM in PAC, get data from WT as WCTI contains nothing at this moment
9228: l_statement := 55;
9243: when no_data_found then
9244: l_api_message := 'Transaction ID does not exist in WIP_TRANSACTIONS table. ';
9245: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
9246: FND_MESSAGE.set_token('TEXT', l_api_message);
9247: FND_MSG_PUB.add;
9248: RAISE fnd_api.g_exc_error;
9249: end;
9250: END IF;
9251: ----------------------------------------
9263: l_api_message := 'No po_header_id exist for transaction ID: ' || TO_CHAR(p_txn_id);
9264: l_api_message := l_api_message || ' wip_cost_txn_interface ';
9265: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
9266: FND_MESSAGE.set_token('TEXT', l_api_message);
9267: FND_MSG_pub.add;
9268: RAISE FND_API.g_exc_error;
9269: end if;
9270:
9271: -----------------------
9281: l_api_message := 'No po_line_id exist for transaction ID: ' || TO_CHAR(p_txn_id);
9282: l_api_message := l_api_message || ' wip_cost_txn_interface ';
9283: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
9284: FND_MESSAGE.set_token('TEXT', l_api_message);
9285: FND_MSG_pub.add;
9286: RAISE FND_API.g_exc_error;
9287: end if;
9288:
9289: ------------------------
9308: l_api_message := 'No PO Distribution exist for transaction ID: ' || TO_CHAR(p_txn_id);
9309: l_api_message := l_api_message || ' wip_cost_txn_interface ';
9310: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
9311: FND_MESSAGE.set_token('TEXT', l_api_message);
9312: FND_MSG_pub.add;
9313: RAISE FND_API.g_exc_error;
9314: End if;
9315:
9316: ELSE
9324: l_api_message := 'No rcv_transaction_id exist for transaction ID: ' || TO_CHAR(p_txn_id);
9325: l_api_message := l_api_message || ' wip_cost_txn_interface ';
9326: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
9327: FND_MESSAGE.set_token('TEXT', l_api_message);
9328: FND_MSG_pub.add;
9329: RAISE FND_API.g_exc_error;
9330: End if;
9331:
9332: END IF;
9340: l_api_message := 'No po_release_id exist for transaction ID: ' || TO_CHAR(p_txn_id);
9341: l_api_message := l_api_message || ' wip_cost_txn_interface ';
9342: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
9343: FND_MESSAGE.set_token('TEXT', l_api_message);
9344: FND_MSG_pub.add;
9345: RAISE FND_API.g_exc_error;
9346: End if;
9347:
9348: end if;
9375: elsif (l_category_id = -1) then
9376: l_api_message := 'No category_id exist for PO Line ID: ' || TO_CHAR(l_po_line_id);
9377: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
9378: FND_MESSAGE.set_token('TEXT', l_api_message);
9379: FND_MSG_pub.add;
9380: RAISE FND_API.g_exc_error;
9381: else
9382: l_api_message := 'PO Header ID ' || TO_CHAR(l_po_header_id);
9383: l_api_message := l_api_message || ' has not been approved';
9382: l_api_message := 'PO Header ID ' || TO_CHAR(l_po_header_id);
9383: l_api_message := l_api_message || ' has not been approved';
9384: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
9385: FND_MESSAGE.set_token('TEXT', l_api_message);
9386: FND_MSG_pub.add;
9387: RAISE FND_API.g_exc_error;
9388: end if;
9389:
9390: x_cost_element_id := l_cost_element_id;
9389:
9390: x_cost_element_id := l_cost_element_id;
9391:
9392: -- Standard Call to get message count and if count = 1, get message info
9393: FND_MSG_PUB.Count_And_Get (
9394: p_count => x_msg_count,
9395: p_data => x_msg_data );
9396:
9397: EXCEPTION
9398: WHEN fnd_api.g_exc_error then
9399: x_return_status := fnd_api.g_ret_sts_error;
9400: x_cost_element_id := -1;
9401:
9402: fnd_msg_pub.count_and_get(
9403: p_count => x_msg_count,
9404: p_data => x_msg_data );
9405:
9406: WHEN fnd_api.g_exc_unexpected_error then
9406: WHEN fnd_api.g_exc_unexpected_error then
9407: x_return_status := fnd_api.g_ret_sts_unexp_error;
9408: x_cost_element_id := -1;
9409:
9410: fnd_msg_pub.count_and_get(
9411: p_count => x_msg_count,
9412: p_data => x_msg_data );
9413:
9414: WHEN OTHERS THEN
9413:
9414: WHEN OTHERS THEN
9415: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9416: x_cost_element_id:= -1;
9417: If fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
9418: fnd_msg_pub.add_exc_msg ( 'CST_eamCost_PUB',
9419: ' get_CostElement_for_DirectItem: Statement - ' || to_char(l_statement));
9420: end if;
9421:
9414: WHEN OTHERS THEN
9415: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9416: x_cost_element_id:= -1;
9417: If fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
9418: fnd_msg_pub.add_exc_msg ( 'CST_eamCost_PUB',
9419: ' get_CostElement_for_DirectItem: Statement - ' || to_char(l_statement));
9420: end if;
9421:
9422: fnd_msg_pub.count_and_get(
9418: fnd_msg_pub.add_exc_msg ( 'CST_eamCost_PUB',
9419: ' get_CostElement_for_DirectItem: Statement - ' || to_char(l_statement));
9420: end if;
9421:
9422: fnd_msg_pub.count_and_get(
9423: p_count => x_msg_count,
9424: p_data => x_msg_data );
9425: END get_CostEle_for_DirectItem;
9426:
9521: -- Initialize message list if p_init_msg_list is set to TRUE
9522: -------------------------------------------------------------
9523: l_statement := 20;
9524: IF fnd_api.to_Boolean(p_init_msg_list) then
9525: fnd_msg_pub.initialize;
9526: end if;
9527:
9528: -------------------------------------------
9529: -- Initialize API return status to Success
9538: if (p_txn_id is null) then
9539: l_api_message := 'IN parameter is null';
9540: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
9541: FND_MESSAGE.set_token('TEXT', l_api_message);
9542: FND_MSG_PUB.add;
9543: RAISE fnd_api.g_exc_error;
9544: end if;
9545:
9546: -----------------------------------------------------------------------
9563: when no_data_found then
9564: l_api_message := 'Transaction ID does not exist in WIP_TRANSACTIONS table.';
9565: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
9566: FND_MESSAGE.set_token('TEXT', l_api_message);
9567: FND_MSG_PUB.add;
9568: RAISE fnd_api.g_exc_error;
9569: end;
9570:
9571: -------------------------
9581: l_api_message := 'No po_header_id exist for transaction ID: ' || TO_CHAR(p_txn_id);
9582: l_api_message := l_api_message || ' wip_transactions ';
9583: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
9584: FND_MESSAGE.set_token('TEXT', l_api_message);
9585: FND_MSG_pub.add;
9586: RAISE FND_API.g_exc_error;
9587: end if;
9588:
9589: -----------------------
9599: l_api_message := 'No po_line_id exist for transaction ID: ' || TO_CHAR(p_txn_id);
9600: l_api_message := l_api_message || ' wip_transactions ';
9601: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
9602: FND_MESSAGE.set_token('TEXT', l_api_message);
9603: FND_MSG_pub.add;
9604: RAISE FND_API.g_exc_error;
9605: end if;
9606:
9607: /* ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
9640: elsif (l_category_id = -1) then
9641: l_api_message := 'No category_id exist for PO Line ID: ' || TO_CHAR(l_po_line_id);
9642: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
9643: FND_MESSAGE.set_token('TEXT', l_api_message);
9644: FND_MSG_pub.add;
9645: RAISE FND_API.g_exc_error;
9646: else
9647: l_api_message := 'PO Header ID ' || TO_CHAR(l_po_header_id);
9648: l_api_message := l_api_message || ' has not been approved';
9647: l_api_message := 'PO Header ID ' || TO_CHAR(l_po_header_id);
9648: l_api_message := l_api_message || ' has not been approved';
9649: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
9650: FND_MESSAGE.set_token('TEXT', l_api_message);
9651: FND_MSG_pub.add;
9652: RAISE FND_API.g_exc_error;
9653: end if;
9654:
9655: /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++
9700: l_api_message := 'No expenditure type has been setup in the category, project prameters';
9701: l_api_message := l_api_message || ' or project organization parameters';
9702: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
9703: FND_MESSAGE.set_token('TEXT', l_api_message);
9704: FND_MSG_pub.add;
9705: RAISE FND_API.g_exc_error;
9706: end;
9707: end if;
9708:
9708:
9709: x_expenditure_type := l_expenditure_type;
9710:
9711: -- Standard Call to get message count and if count = 1, get message info
9712: FND_MSG_PUB.Count_And_Get (
9713: p_count => x_msg_count,
9714: p_data => x_msg_data );
9715:
9716: EXCEPTION
9717: WHEN fnd_api.g_exc_error then
9718: x_return_status := fnd_api.g_ret_sts_error;
9719: x_expenditure_type := to_char(-1);
9720:
9721: fnd_msg_pub.count_and_get(
9722: p_count => x_msg_count,
9723: p_data => x_msg_data );
9724:
9725: WHEN fnd_api.g_exc_unexpected_error then
9725: WHEN fnd_api.g_exc_unexpected_error then
9726: x_return_status := fnd_api.g_ret_sts_unexp_error;
9727: x_expenditure_type := to_char(-1);
9728:
9729: fnd_msg_pub.count_and_get(
9730: p_count => x_msg_count,
9731: p_data => x_msg_data );
9732:
9733: WHEN OTHERS THEN
9732:
9733: WHEN OTHERS THEN
9734: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9735: x_expenditure_type := to_char(-1);
9736: If fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
9737: fnd_msg_pub.add_exc_msg ( 'CST_eamCost_PUB',
9738: ' get_ExpType_for_DirectItem: Statement - ' || to_char(l_statement));
9739: end if;
9740:
9733: WHEN OTHERS THEN
9734: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9735: x_expenditure_type := to_char(-1);
9736: If fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
9737: fnd_msg_pub.add_exc_msg ( 'CST_eamCost_PUB',
9738: ' get_ExpType_for_DirectItem: Statement - ' || to_char(l_statement));
9739: end if;
9740:
9741: fnd_msg_pub.count_and_get(
9737: fnd_msg_pub.add_exc_msg ( 'CST_eamCost_PUB',
9738: ' get_ExpType_for_DirectItem: Statement - ' || to_char(l_statement));
9739: end if;
9740:
9741: fnd_msg_pub.count_and_get(
9742: p_count => x_msg_count,
9743: p_data => x_msg_data );
9744: END get_ExpType_for_DirectItem;
9745:
9766: SAVEPOINT Rollup_WorkOrderCost_PUB;
9767:
9768: -- Initialize message list if p_init_msg_list is set to TRUE
9769: IF FND_API.to_Boolean(p_init_msg_list) THEN
9770: FND_MSG_PUB.initialize;
9771: END IF;
9772:
9773: -- Check for call compatibility
9774: IF NOT FND_API.Compatible_API_Call
9783:
9784: -- Check for message level threshold
9785: l_msg_level_threshold := FND_PROFILE.Value('FND_AS_MSG_LEVEL_THRESHOLD');
9786:
9787: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH
9788: THEN
9789: FND_MSG_PUB.Add_Exc_Msg(
9790: p_pkg_name => G_PKG_NAME,
9791: p_procedure_name => l_api_name,
9785: l_msg_level_threshold := FND_PROFILE.Value('FND_AS_MSG_LEVEL_THRESHOLD');
9786:
9787: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH
9788: THEN
9789: FND_MSG_PUB.Add_Exc_Msg(
9790: p_pkg_name => G_PKG_NAME,
9791: p_procedure_name => l_api_name,
9792: p_error_text => SUBSTR(
9793: l_stmt_num||':'||
9818: WHERE group_id = p_group_id;
9819:
9820: -- Generate a warning if there is no matching record in the supplied group id
9821: l_stmt_num := 15;
9822: IF l_max_level IS NULL and l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_SUCCESS
9823: THEN
9824: FND_MSG_PUB.Add_Exc_Msg(
9825: p_pkg_name => G_PKG_NAME,
9826: p_procedure_name => l_api_name,
9820: -- Generate a warning if there is no matching record in the supplied group id
9821: l_stmt_num := 15;
9822: IF l_max_level IS NULL and l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_SUCCESS
9823: THEN
9824: FND_MSG_PUB.Add_Exc_Msg(
9825: p_pkg_name => G_PKG_NAME,
9826: p_procedure_name => l_api_name,
9827: p_error_text => 'There is no matching record in CST_EAM_HIERARCHY_SNAPSHOT ' ||
9828: 'for group id ' || p_group_id
9837: WHERE group_id = p_group_id;
9838:
9839: -- Generate a warning if there are existing calculations for this group id
9840: l_stmt_num := 19;
9841: IF SQL%ROWCOUNT > 0 and l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH
9842: THEN
9843: FND_MSG_PUB.Add_Exc_Msg(
9844: p_pkg_name => G_PKG_NAME,
9845: p_procedure_name => l_api_name,
9839: -- Generate a warning if there are existing calculations for this group id
9840: l_stmt_num := 19;
9841: IF SQL%ROWCOUNT > 0 and l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH
9842: THEN
9843: FND_MSG_PUB.Add_Exc_Msg(
9844: p_pkg_name => G_PKG_NAME,
9845: p_procedure_name => l_api_name,
9846: p_error_text => 'Deleted ' || SQL%ROWCOUNT || ' existing calculation for ' ||
9847: ' group id '|| p_group_id
9955: TEMP.period_name,
9956: TEMP.maint_cost_category;
9957: END LOOP;
9958:
9959: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_SUCCESS
9960: THEN
9961: FND_MSG_PUB.Add_Exc_Msg(
9962: p_pkg_name => G_PKG_NAME,
9963: p_procedure_name => l_api_name,
9957: END LOOP;
9958:
9959: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_SUCCESS
9960: THEN
9961: FND_MSG_PUB.Add_Exc_Msg(
9962: p_pkg_name => G_PKG_NAME,
9963: p_procedure_name => l_api_name,
9964: p_error_text => l_stmt_num||
9965: ': Successfully rolled up the cost for group id '||
9974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9975: WHEN l_object_type_exc THEN
9976: ROLLBACK TO Rollup_WorkOrderCost_PUB;
9977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9978: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_ERROR
9979: THEN
9980: FND_MSG_PUB.Add_Exc_Msg(
9981: p_pkg_name => G_PKG_NAME,
9982: p_procedure_name => l_api_name,
9976: ROLLBACK TO Rollup_WorkOrderCost_PUB;
9977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9978: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_ERROR
9979: THEN
9980: FND_MSG_PUB.Add_Exc_Msg(
9981: p_pkg_name => G_PKG_NAME,
9982: p_procedure_name => l_api_name,
9983: p_error_text => 'Object type must be inserted. Use 0 instead of '||
9984: 'NULL for entities that are not a WIP entity'
9986: END IF;
9987: WHEN OTHERS THEN
9988: ROLLBACK TO Rollup_WorkOrderCost_PUB;
9989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9990: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
9991: THEN
9992: FND_MSG_PUB.Add_Exc_Msg(
9993: p_pkg_name => G_PKG_NAME,
9994: p_procedure_name => l_api_name,
9988: ROLLBACK TO Rollup_WorkOrderCost_PUB;
9989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9990: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
9991: THEN
9992: FND_MSG_PUB.Add_Exc_Msg(
9993: p_pkg_name => G_PKG_NAME,
9994: p_procedure_name => l_api_name,
9995: p_error_text => SUBSTR(l_stmt_num||SQLERRM,1,240)
9996: );
10016: SAVEPOINT Purge_RollupCost_PUB;
10017:
10018: -- Initialize message list if p_init_msg_list is set to TRUE
10019: IF FND_API.to_Boolean(p_init_msg_list) THEN
10020: FND_MSG_PUB.initialize;
10021: END IF;
10022:
10023: -- Check for call compatibility
10024: IF NOT FND_API.Compatible_API_Call
10033:
10034: -- Check for message level threshold
10035: l_msg_level_threshold := FND_PROFILE.Value('FND_AS_MSG_LEVEL_THRESHOLD');
10036:
10037: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH
10038: THEN
10039: FND_MSG_PUB.Add_Exc_Msg(
10040: p_pkg_name => G_PKG_NAME,
10041: p_procedure_name => l_api_name,
10035: l_msg_level_threshold := FND_PROFILE.Value('FND_AS_MSG_LEVEL_THRESHOLD');
10036:
10037: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH
10038: THEN
10039: FND_MSG_PUB.Add_Exc_Msg(
10040: p_pkg_name => G_PKG_NAME,
10041: p_procedure_name => l_api_name,
10042: p_error_text => SUBSTR(
10043: l_stmt_num||':'||
10055: AND program_application_id =
10056: NVL(p_prog_appl_id,program_application_id)
10057: AND last_update_date < NVL(p_last_update_date,last_update_date+1);
10058:
10059: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_SUCCESS
10060: THEN
10061: FND_MSG_PUB.Add_Exc_Msg(
10062: p_pkg_name => G_PKG_NAME,
10063: p_procedure_name => l_api_name,
10057: AND last_update_date < NVL(p_last_update_date,last_update_date+1);
10058:
10059: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_SUCCESS
10060: THEN
10061: FND_MSG_PUB.Add_Exc_Msg(
10062: p_pkg_name => G_PKG_NAME,
10063: p_procedure_name => l_api_name,
10064: p_error_text => l_stmt_num||
10065: ': Successfully deleted '||
10074: AND program_application_id =
10075: NVL(p_prog_appl_id,program_application_id)
10076: AND last_update_date < NVL(p_last_update_date,last_update_date+1);
10077:
10078: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_SUCCESS
10079: THEN
10080: FND_MSG_PUB.Add_Exc_Msg(
10081: p_pkg_name => G_PKG_NAME,
10082: p_procedure_name => l_api_name,
10076: AND last_update_date < NVL(p_last_update_date,last_update_date+1);
10077:
10078: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_SUCCESS
10079: THEN
10080: FND_MSG_PUB.Add_Exc_Msg(
10081: p_pkg_name => G_PKG_NAME,
10082: p_procedure_name => l_api_name,
10083: p_error_text => l_stmt_num||
10084: ': Successfully deleted '||
10094: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10095: WHEN OTHERS THEN
10096: ROLLBACK TO Purge_RollupCost_PUB;
10097: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10098: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
10099: THEN
10100: FND_MSG_PUB.Add_Exc_Msg(
10101: p_pkg_name => G_PKG_NAME,
10102: p_procedure_name => l_api_name,
10096: ROLLBACK TO Purge_RollupCost_PUB;
10097: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10098: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
10099: THEN
10100: FND_MSG_PUB.Add_Exc_Msg(
10101: p_pkg_name => G_PKG_NAME,
10102: p_procedure_name => l_api_name,
10103: p_error_text => SUBSTR(l_stmt_num||SQLERRM,1,240)
10104: );
10203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10204: END IF;
10205: -- Initialize message list if p_init_msg_list is set to TRUE.
10206: IF FND_API.to_Boolean( p_init_msg_list ) THEN
10207: FND_MSG_PUB.initialize;
10208: END IF;
10209:
10210: l_stmt_num := 10;
10211:
10303: );
10304: END IF;
10305:
10306: -- Standard call to get message count and if count is 1, get message info.
10307: FND_MSG_PUB.Count_And_Get
10308: ( p_count => x_msg_count ,
10309: p_data => x_msg_data
10310: );
10311:
10321: l_full_name ||'('|| l_stmt_num ||') :' || SUBSTRB(SQLERRM , 1 , 240)
10322: );
10323: END IF;
10324:
10325: FND_MSG_PUB.Count_And_Get
10326: ( p_count => x_msg_count ,
10327: p_data => x_msg_data
10328: );
10329: WHEN OTHERS THEN
10337: l_full_name || '( '|| l_stmt_num || ') :' || SUBSTRB(SQLERRM , 1 , 240)
10338: );
10339: END IF;
10340:
10341: IF FND_MSG_PUB.Check_Msg_Level
10342: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10343: THEN
10344: FND_MSG_PUB.Add_Exc_Msg
10345: ( 'CST_eamCost_PUB' ,
10338: );
10339: END IF;
10340:
10341: IF FND_MSG_PUB.Check_Msg_Level
10342: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10343: THEN
10344: FND_MSG_PUB.Add_Exc_Msg
10345: ( 'CST_eamCost_PUB' ,
10346: l_api_name
10340:
10341: IF FND_MSG_PUB.Check_Msg_Level
10342: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10343: THEN
10344: FND_MSG_PUB.Add_Exc_Msg
10345: ( 'CST_eamCost_PUB' ,
10346: l_api_name
10347: );
10348: END IF;
10345: ( 'CST_eamCost_PUB' ,
10346: l_api_name
10347: );
10348: END IF;
10349: FND_MSG_PUB.Count_And_Get
10350: ( p_count => x_msg_count ,
10351: p_data => x_msg_data
10352: );
10353: END Insert_eamBalAcct;
10398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10399: END IF;
10400: -- Initialize message list if p_init_msg_list is set to TRUE.
10401: IF FND_API.to_Boolean( p_init_msg_list ) THEN
10402: FND_MSG_PUB.initialize;
10403: END IF;
10404:
10405: if( l_pLog ) then
10406: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
10433: );
10434: END IF;
10435:
10436: -- Standard call to get message count and if count is 1, get message info.
10437: FND_MSG_PUB.Count_And_Get
10438: ( p_count => x_msg_count ,
10439: p_data => x_msg_data
10440: );
10441:
10450: l_module || '.' || l_stmt_num ,
10451: l_full_name ||'('|| l_stmt_num ||') :' || SUBSTRB (SQLERRM , 1 , 240));
10452: END IF;
10453:
10454: FND_MSG_PUB.Count_And_Get
10455: ( p_count => x_msg_count ,
10456: p_data => x_msg_data
10457: );
10458: WHEN OTHERS THEN
10465: l_module || '.' || l_stmt_num,
10466: l_full_name ||'('|| l_stmt_num ||') :' || SUBSTRB (SQLERRM , 1 , 240));
10467: END IF;
10468:
10469: IF FND_MSG_PUB.Check_Msg_Level
10470: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10471: THEN
10472: FND_MSG_PUB.Add_Exc_Msg
10473: ( 'CST_eamCost_PUB' ,
10466: l_full_name ||'('|| l_stmt_num ||') :' || SUBSTRB (SQLERRM , 1 , 240));
10467: END IF;
10468:
10469: IF FND_MSG_PUB.Check_Msg_Level
10470: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10471: THEN
10472: FND_MSG_PUB.Add_Exc_Msg
10473: ( 'CST_eamCost_PUB' ,
10474: l_api_name
10468:
10469: IF FND_MSG_PUB.Check_Msg_Level
10470: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10471: THEN
10472: FND_MSG_PUB.Add_Exc_Msg
10473: ( 'CST_eamCost_PUB' ,
10474: l_api_name
10475: );
10476: END IF;
10473: ( 'CST_eamCost_PUB' ,
10474: l_api_name
10475: );
10476: END IF;
10477: FND_MSG_PUB.Count_And_Get
10478: ( p_count => x_msg_count ,
10479: p_data => x_msg_data
10480: );
10481: END Delete_eamBalAcct;
10555: END IF;
10556:
10557: -- Initialize message list if p_init_msg_list is set to TRUE.
10558: IF FND_API.to_Boolean( p_init_msg_list ) THEN
10559: FND_MSG_PUB.initialize;
10560: END IF;
10561:
10562: IF( l_pLog ) THEN
10563: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
10950: );
10951: END IF;
10952:
10953: -- Standard call to get message count and if count is 1, get message info.
10954: FND_MSG_PUB.Count_And_Get
10955: ( p_count => x_msg_count,
10956: p_data => x_msg_data
10957: );
10958:
10967: l_module || '.' || l_stmt_num ,
10968: l_full_name ||'('|| l_stmt_num ||') :' || SUBSTRB (SQLERRM , 1 , 240));
10969: END IF;
10970:
10971: FND_MSG_PUB.Count_And_Get
10972: ( p_count => x_msg_count,
10973: p_data => x_msg_data
10974: );
10975:
10983: l_module || '.' || l_stmt_num,
10984: l_full_name ||'('|| l_stmt_num ||') :' || SUBSTRB (SQLERRM , 1 , 240));
10985: END IF;
10986:
10987: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10988: FND_MSG_PUB.Add_Exc_Msg('CST_eamCost_PUB'
10989: , l_api_name);
10990: END IF;
10991:
10984: l_full_name ||'('|| l_stmt_num ||') :' || SUBSTRB (SQLERRM , 1 , 240));
10985: END IF;
10986:
10987: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10988: FND_MSG_PUB.Add_Exc_Msg('CST_eamCost_PUB'
10989: , l_api_name);
10990: END IF;
10991:
10992: FND_MSG_PUB.Count_And_Get
10988: FND_MSG_PUB.Add_Exc_Msg('CST_eamCost_PUB'
10989: , l_api_name);
10990: END IF;
10991:
10992: FND_MSG_PUB.Count_And_Get
10993: ( p_count => x_msg_count,
10994: p_data => x_msg_data
10995: );
10996:
11439: EXCEPTION
11440: WHEN FND_API.g_exc_unexpected_error THEN
11441: ROLLBACK TO GET_ENCUMBRANCE_DATA_PVT;
11442: x_return_status := FND_API.g_ret_sts_unexp_error ;
11443: FND_MSG_PUB.count_and_get
11444: ( p_count => x_msg_count
11445: , p_data => x_msg_data
11446: );
11447: debug('UNEXPECTED EXCEPTION GET_ENCUMBRANCE_DATA : '||l_stmt_num||' : '||x_msg_data);
11447: debug('UNEXPECTED EXCEPTION GET_ENCUMBRANCE_DATA : '||l_stmt_num||' : '||x_msg_data);
11448: WHEN OTHERS THEN
11449: ROLLBACK TO GET_ENCUMBRANCE_DATA_PVT;
11450: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11451: FND_MSG_PUB.count_and_get
11452: ( p_count => x_msg_count
11453: , p_data => x_msg_data
11454: );
11455: debug('OTHERS EXCEPTION GET_ENCUMBRANCE_DATA : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
11500: debug(' p_wip_entity_id : '||p_wip_entity_id );
11501: debug(' p_account_name : '||p_account_name );
11502: debug(' p_item_id : '||p_item_id );
11503:
11504: fnd_msg_pub.initialize;
11505: x_return_status := FND_API.G_RET_STS_SUCCESS;
11506: x_msg_count := 0;
11507:
11508: IF p_wip_entity_id IS NULL THEN
11580: x_acct := NULL;
11581: WHEN account_name THEN
11582: FND_MESSAGE.SET_NAME( 'BOM', 'CST_ACCOUNT_UNDEFINED' );
11583: FND_MESSAGE.SET_TOKEN( 'ACCOUNT', p_account_name);
11584: FND_MSG_PUB.ADD;
11585: fnd_msg_pub.count_and_get(
11586: p_encoded => fnd_api.g_false,
11587: p_count => x_msg_count,
11588: p_data => x_msg_data);
11581: WHEN account_name THEN
11582: FND_MESSAGE.SET_NAME( 'BOM', 'CST_ACCOUNT_UNDEFINED' );
11583: FND_MESSAGE.SET_TOKEN( 'ACCOUNT', p_account_name);
11584: FND_MSG_PUB.ADD;
11585: fnd_msg_pub.count_and_get(
11586: p_encoded => fnd_api.g_false,
11587: p_count => x_msg_count,
11588: p_data => x_msg_data);
11589: x_return_status := FND_API.G_RET_STS_ERROR;
11598: WHEN acct_null THEN
11599: FND_MESSAGE.SET_NAME( 'BOM' , 'CST_NO_ACCOUNT_FOUND' );
11600: FND_MESSAGE.SET_TOKEN( 'ID' , p_wip_entity_id);
11601: FND_MESSAGE.SET_TOKEN( 'ACCOUNT', p_account_name);
11602: FND_MSG_PUB.ADD;
11603: fnd_msg_pub.count_and_get(
11604: p_encoded => fnd_api.g_false,
11605: p_count => x_msg_count,
11606: p_data => x_msg_data);
11599: FND_MESSAGE.SET_NAME( 'BOM' , 'CST_NO_ACCOUNT_FOUND' );
11600: FND_MESSAGE.SET_TOKEN( 'ID' , p_wip_entity_id);
11601: FND_MESSAGE.SET_TOKEN( 'ACCOUNT', p_account_name);
11602: FND_MSG_PUB.ADD;
11603: fnd_msg_pub.count_and_get(
11604: p_encoded => fnd_api.g_false,
11605: p_count => x_msg_count,
11606: p_data => x_msg_data);
11607: x_return_status := FND_API.G_RET_STS_ERROR;