71: END IF;
72:
73: -- Initialize message list if p_init_msg_list is set to TRUE
74: IF FND_API.to_Boolean(p_init_msg_list) THEN
75: FND_MSG_PUB.initialize;
76: END IF;
77:
78: -- Initialize API return status to success
79: x_return_status := FND_API.G_RET_STS_SUCCESS;
135: FND_FILE.put_line(FND_FILE.log, x_msg_data);
136: l_api_message := 'Update_eamCost returned error';
137: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
138: FND_MESSAGE.set_token('TEXT', l_api_message);
139: FND_MSG_pub.add;
140: RAISE FND_API.g_exc_error;
141: END IF;
142:
143: --- Standard check of p_commit
145: COMMIT WORK;
146: END IF;
147:
148: -- Standard Call to get message count and if count = 1, get message info
149: FND_MSG_PUB.Count_And_Get (
150: p_count => x_msg_count,
151: p_data => x_msg_data );
152:
153:
156: ROLLBACK TO Process_MatCost_PUB;
157: x_return_status := FND_API.g_ret_sts_error;
158:
159: -- Get message count and data
160: FND_MSG_PUB.count_and_get
161: ( p_count => x_msg_count
162: , p_data => x_msg_data
163: );
164:
166: ROLLBACK TO Process_MatCost_PUB;
167: x_return_status := FND_API.g_ret_sts_unexp_error ;
168:
169: -- Get message count and data
170: FND_MSG_PUB.count_and_get
171: ( p_count => x_msg_count
172: , p_data => x_msg_data
173: );
174:
175: WHEN OTHERS THEN
176: ROLLBACK TO Process_MatCost_PUB;
177: x_return_status := fnd_api.g_ret_sts_unexp_error ;
178:
179: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
180: THEN
181: FND_MSG_PUB.add_exc_msg
182: ( 'CST_eamCost_PVT'
183: , 'Process_MatCost : Statement -'||to_char(l_stmt_num)
177: x_return_status := fnd_api.g_ret_sts_unexp_error ;
178:
179: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
180: THEN
181: FND_MSG_PUB.add_exc_msg
182: ( 'CST_eamCost_PVT'
183: , 'Process_MatCost : Statement -'||to_char(l_stmt_num)
184: );
185: END IF;
184: );
185: END IF;
186:
187: -- Get message count and data
188: FND_MSG_PUB.count_and_get
189: ( p_count => x_msg_count
190: , p_data => x_msg_data
191: );
192:
288: END IF;
289:
290: -- Initialize message list if p_init_msg_list is set to TRUE
291: IF FND_API.to_Boolean(p_init_msg_list) THEN
292: FND_MSG_PUB.initialize;
293: END IF;
294:
295: -- Initialize API return status to success
296: x_return_status := FND_API.G_RET_STS_SUCCESS;
350: FND_FILE.put_line(FND_FILE.log, x_msg_data);
351: l_api_message := 'Update_eamCost returned error';
352: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
353: FND_MESSAGE.set_token('TEXT', l_api_message);
354: FND_MSG_pub.add;
355: RAISE FND_API.g_exc_error;
356: END IF;
357:
358: END LOOP;
362: COMMIT WORK;
363: END IF;
364:
365: -- Standard Call to get message count and if count = 1, get message info
366: FND_MSG_PUB.Count_And_Get (
367: p_count => x_msg_count,
368: p_data => x_msg_data );
369:
370:
373: ROLLBACK TO Process_ResCost_PUB;
374: x_return_status := FND_API.g_ret_sts_error;
375:
376: -- Get message count and data
377: FND_MSG_PUB.count_and_get
378: ( p_count => x_msg_count
379: , p_data => x_msg_data
380: );
381:
383: ROLLBACK TO Process_ResCost_PUB;
384: x_return_status := FND_API.g_ret_sts_unexp_error ;
385:
386: -- Get message count and data
387: FND_MSG_PUB.count_and_get
388: ( p_count => x_msg_count
389: , p_data => x_msg_data
390: );
391:
392: WHEN OTHERS THEN
393: ROLLBACK TO Process_ResCost_PUB;
394: x_return_status := fnd_api.g_ret_sts_unexp_error ;
395:
396: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
397: THEN
398: FND_MSG_PUB.add_exc_msg
399: ( 'CST_eamCost_PVT'
400: , 'Process_ResCost : Statement -'||to_char(l_stmt_num)
394: x_return_status := fnd_api.g_ret_sts_unexp_error ;
395:
396: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
397: THEN
398: FND_MSG_PUB.add_exc_msg
399: ( 'CST_eamCost_PVT'
400: , 'Process_ResCost : Statement -'||to_char(l_stmt_num)
401: );
402: END IF;
401: );
402: END IF;
403:
404: -- Get message count and data
405: FND_MSG_PUB.count_and_get
406: ( p_count => x_msg_count
407: , p_data => x_msg_data
408: );
409: END Process_ResCost;
528: END IF;
529:
530: -- Initialize message list if p_init_msg_list is set to TRUE
531: IF FND_API.to_Boolean(p_init_msg_list) THEN
532: FND_MSG_PUB.initialize;
533: END IF;
534:
535: -- Initialize API return status to success
536: x_return_status := FND_API.G_RET_STS_SUCCESS;
543: (p_period_set_name is null or
544: p_period_name is null))) THEN
545: FND_MESSAGE.set_name('BOM', 'CST_INVALID_PARAMS');
546: FND_MESSAGE.set_token('JOB', p_wip_entity_id);
547: FND_MSG_PUB.ADD;
548: RAISE FND_API.g_exc_error;
549: END IF;
550:
551: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Processing job '
564: l_api_message := 'Job is not eAM job.';
565: l_api_message := l_api_message ||'Job id: '|| TO_CHAR(p_wip_entity_id);
566: FND_MESSAGE.set_name('BOM', 'CST_API_MESSAGE');
567: FND_MESSAGE.set_token('TEXT', l_api_message);
568: FND_MSG_PUB.ADD;
569: RAISE fnd_api.g_exc_error;
570: END IF;
571:
572: l_stmt_num := 62;
582: x_msg_data => l_msg_data);
583:
584: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
585: FND_MESSAGE.set_token('TEXT', l_api_message);
586: FND_MSG_PUB.ADD;
587: RAISE fnd_api.g_exc_error;
588: END IF;
589:
590: ------------------------------------------------------------
611: FND_FILE.put_line(FND_FILE.log, x_msg_data);
612: l_api_message := 'get_CostElement_for_DirectItem returned unexpected error';
613: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
614: FND_MESSAGE.set_token('TEXT', l_api_message);
615: FND_MSG_pub.add;
616: raise fnd_api.g_exc_unexpected_error;
617: end if;
618:
619: if (l_debug = 'Y') then
626: IF l_eam_cost_element = 0 THEN
627: l_api_message := 'Get_eamCostElement returned error';
628: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
629: FND_MESSAGE.set_token('TEXT', l_api_message);
630: FND_MSG_pub.add;
631: RAISE FND_API.g_exc_error;
632: END IF;
633: end if; /* p_txn_mode */
634:
675: FND_FILE.put_line(FND_FILE.log, x_msg_data);
676: l_api_message := 'Get_MaintCostCat returned error';
677: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
678: FND_MESSAGE.set_token('TEXT', l_api_message);
679: FND_MSG_pub.add;
680: RAISE FND_API.g_exc_error;
681: END IF;
682:
683: END IF; -- end checking p_txn_mode
718: FND_FILE.put_line(FND_FILE.log, x_msg_data);
719: l_api_message := 'InsertUpdate_eamPerBal returned error';
720: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
721: FND_MESSAGE.set_token('TEXT', l_api_message);
722: FND_MSG_pub.add;
723: RAISE FND_API.g_exc_error;
724: END IF;
725:
726: --- Standard check of p_commit
728: COMMIT WORK;
729: END IF;
730:
731: -- Standard Call to get message count and if count = 1, get message info
732: FND_MSG_PUB.Count_And_Get (
733: p_count => x_msg_count,
734: p_data => x_msg_data );
735:
736:
740: ROLLBACK TO Update_eamCost_PUB;
741: x_return_status := FND_API.g_ret_sts_error;
742:
743: -- Get message count and data
744: FND_MSG_PUB.count_and_get
745: ( p_count => x_msg_count
746: , p_data => x_msg_data
747: );
748:
751: ROLLBACK TO Update_eamCost_PUB;
752: x_return_status := FND_API.g_ret_sts_unexp_error ;
753:
754: -- Get message count and data
755: FND_MSG_PUB.count_and_get
756: ( p_count => x_msg_count
757: , p_data => x_msg_data
758: );
759:
761: fnd_file.put_line(fnd_file.log, 'Exception in Update_eamcost'|| SQLERRM);
762: ROLLBACK TO Update_eamCost_PUB;
763: x_return_status := fnd_api.g_ret_sts_unexp_error ;
764:
765: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
766: THEN
767: FND_MSG_PUB.add_exc_msg
768: ( 'CST_eamCost_PUB'
769: , 'Update_eamCost : Statement -'||to_char(l_stmt_num)
763: x_return_status := fnd_api.g_ret_sts_unexp_error ;
764:
765: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
766: THEN
767: FND_MSG_PUB.add_exc_msg
768: ( 'CST_eamCost_PUB'
769: , 'Update_eamCost : Statement -'||to_char(l_stmt_num)
770: );
771: END IF;
770: );
771: END IF;
772:
773: -- Get message count and data
774: FND_MSG_PUB.count_and_get
775: ( p_count => x_msg_count
776: , p_data => x_msg_data
777: );
778: END Update_eamCost;
925: END IF;
926:
927: -- Initialize message list if p_init_msg_list is set to TRUE
928: IF FND_API.to_Boolean(p_init_msg_list) THEN
929: FND_MSG_PUB.initialize;
930: END IF;
931:
932: -- Initialize API return status to success
933: x_return_status := FND_API.G_RET_STS_SUCCESS;
945: l_api_message := 'Must pass period id, or period set name and period name. ';
946: l_api_message := 'Job id: ' || TO_CHAR(p_wip_entity_id);
947: FND_MESSAGE.set_name('BOM', 'CST_API_MESSAGE');
948: FND_MESSAGE.set_token('TEXT', l_api_message);
949: FND_MSG_PUB.ADD;
950: RAISE FND_API.g_exc_error;
951: END IF;
952:
953: -- Get data from org_acct_periods if it is an open period.
1276: --BUG#5985039 FP BUG#5984909
1277: -- If return status is not success, raise error
1278: IF l_return_status <> FND_API.g_ret_sts_success THEN
1279: l_api_message := 'InsertUpdate_assetPerBal error';
1280: FND_MSG_PUB.add_exc_msg
1281: ( 'CST_eamCost_PUB',
1282: 'InsertUpdate_eamPerBal('||to_char(l_stmt_num) || ')', l_api_message);
1283: RAISE FND_API.g_exc_error;
1284: END IF;
1315: --BUG#5985039 - FPBUG 5984909
1316: -- If return status is not success, raise error
1317: IF l_return_status <> FND_API.g_ret_sts_success THEN
1318: l_api_message := 'InsertUpdate_assetPerBal error';
1319: FND_MSG_PUB.add_exc_msg
1320: ( 'CST_eamCost_PUB',
1321: 'InsertUpdate_eamPerBal('||to_char(l_stmt_num) || ')', l_api_message);
1322: RAISE FND_API.g_exc_error;
1323: END IF;
1335: COMMIT WORK;
1336: END IF;
1337:
1338: -- Standard Call to get message count and if count = 1, get message info
1339: FND_MSG_PUB.Count_And_Get (
1340: p_count => x_msg_count,
1341: p_data => x_msg_data );
1342:
1343: EXCEPTION
1347: ROLLBACK TO InsertUpdate_eamPerBal_PUB;
1348: x_return_status := FND_API.g_ret_sts_error;
1349:
1350: -- Get message count and data
1351: FND_MSG_PUB.count_and_get
1352: ( p_count => x_msg_count
1353: , p_data => x_msg_data
1354: );
1355:
1358: ROLLBACK TO InsertUpdate_eamPerBal_PUB;
1359: x_return_status := FND_API.g_ret_sts_unexp_error ;
1360:
1361: -- Get message count and data
1362: FND_MSG_PUB.count_and_get
1363: ( p_count => x_msg_count
1364: , p_data => x_msg_data
1365: );
1366:
1368: FND_FILE.PUT_LINE(fnd_file.log,'exception' || SQLERRM );
1369: ROLLBACK TO InsertUpdate_eamPerBal_PUB;
1370: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1371:
1372: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1373: THEN
1374: FND_MSG_PUB.add_exc_msg
1375: ( 'CST_eamCost_PUB',
1376: 'InsertUpdate_eamPerBal : Statement -'||to_char(l_stmt_num)
1370: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1371:
1372: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1373: THEN
1374: FND_MSG_PUB.add_exc_msg
1375: ( 'CST_eamCost_PUB',
1376: 'InsertUpdate_eamPerBal : Statement -'||to_char(l_stmt_num)
1377: );
1378: END IF;
1377: );
1378: END IF;
1379:
1380: -- Get message count and data
1381: FND_MSG_PUB.count_and_get
1382: ( p_count => x_msg_count
1383: , p_data => x_msg_data
1384: );
1385: END InsertUpdate_eamPerBal;
1492: END IF;
1493:
1494: -- Initialize message list if p_init_msg_list is set to TRUE
1495: IF FND_API.to_Boolean(p_init_msg_list) THEN
1496: FND_MSG_PUB.initialize;
1497: END IF;
1498:
1499: -- Initialize API return status to success
1500: x_return_status := FND_API.G_RET_STS_SUCCESS;
1596: COMMIT WORK;
1597: END IF;
1598:
1599: -- Standard Call to get message count and if count = 1, get message info
1600: FND_MSG_PUB.Count_And_Get (
1601: p_count => x_msg_count,
1602: p_data => x_msg_data );
1603:
1604: EXCEPTION
1607: FND_FILE.PUT_LINE(fnd_file.log,' exception' || SQLERRM );
1608: ROLLBACK TO InsertUpdate_assetPerBal_PUB;
1609: x_return_status := FND_API.g_ret_sts_error;
1610: -- Get message count and data
1611: FND_MSG_PUB.count_and_get
1612: ( p_count => x_msg_count
1613: , p_data => x_msg_data
1614: );
1615:
1618: ROLLBACK TO InsertUpdate_assetPerBal_PUB;
1619: x_return_status := FND_API.g_ret_sts_unexp_error ;
1620:
1621: -- Get message count and data
1622: FND_MSG_PUB.count_and_get
1623: ( p_count => x_msg_count
1624: , p_data => x_msg_data
1625: );
1626:
1628: FND_FILE.PUT_LINE(fnd_file.log,'exception' || SQLERRM );
1629: ROLLBACK TO InsertUpdate_assetPerBal_PUB;
1630: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1631:
1632: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1633: THEN
1634: FND_MSG_PUB.add_exc_msg
1635: ( 'CST_eamCost_PUB',
1636: 'InsertUpdate_assetPerBal : Statement -'||to_char(l_stmt_num)
1630: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1631:
1632: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1633: THEN
1634: FND_MSG_PUB.add_exc_msg
1635: ( 'CST_eamCost_PUB',
1636: 'InsertUpdate_assetPerBal : Statement -'||to_char(l_stmt_num)
1637: );
1638: END IF;
1637: );
1638: END IF;
1639:
1640: -- Get message count and data
1641: FND_MSG_PUB.count_and_get
1642: ( p_count => x_msg_count
1643: , p_data => x_msg_data
1644: );
1645: END InsertUpdate_assetPerBal;
1723: FND_FILE.PUT_LINE(FND_FILE.LOG,'Get_eamCostElement - statement '
1724: || l_stmt_num || ': '
1725: || substr(SQLERRM,1,200));
1726:
1727: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1728: THEN
1729: FND_MSG_PUB.add_exc_msg
1730: ( 'CST_eamCost_PUB'
1731: , '.Get_eamCostElement : Statement -'||to_char(l_stmt_num)
1725: || substr(SQLERRM,1,200));
1726:
1727: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1728: THEN
1729: FND_MSG_PUB.add_exc_msg
1730: ( 'CST_eamCost_PUB'
1731: , '.Get_eamCostElement : Statement -'||to_char(l_stmt_num)
1732: );
1733: END IF;
1928: || l_stmt_num || ': '
1929: || substr(SQLERRM,1,200));
1930: x_return_status := FND_API.g_ret_sts_unexp_error ;
1931:
1932: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1933: THEN
1934: FND_MSG_PUB.add_exc_msg
1935: ( 'CST_eamCost_PUB'
1936: , '.Get_MaintCostCat. : Statement -'||to_char(l_stmt_num)
1930: x_return_status := FND_API.g_ret_sts_unexp_error ;
1931:
1932: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1933: THEN
1934: FND_MSG_PUB.add_exc_msg
1935: ( 'CST_eamCost_PUB'
1936: , '.Get_MaintCostCat. : Statement -'||to_char(l_stmt_num)
1937: );
1938: END IF;
2034: END IF;
2035:
2036: -- Initialize message list if p_init_msg_list is set to TRUE
2037: IF FND_API.to_Boolean(p_init_msg_list) THEN
2038: FND_MSG_PUB.initialize;
2039: END IF;
2040:
2041: -- Initialize API return status to success
2042: x_return_status := FND_API.G_RET_STS_SUCCESS;
2390: ROLLBACK TO Delete_eamPerBal_PUB;
2391: x_return_status := FND_API.g_ret_sts_error;
2392:
2393: -- Get message count and data
2394: FND_MSG_PUB.count_and_get
2395: ( p_count => x_msg_count
2396: , p_data => x_msg_data
2397: );
2398:
2400: ROLLBACK TO Delete_eamPerBal_PUB;
2401: x_return_status := FND_API.g_ret_sts_unexp_error ;
2402:
2403: -- Get message count and data
2404: FND_MSG_PUB.count_and_get
2405: ( p_count => x_msg_count
2406: , p_data => x_msg_data
2407: );
2408:
2413: FND_FILE.PUT_LINE(FND_FILE.LOG,'Delete_eamPerBal - statement '
2414: || l_stmt_num || ': '
2415: || substr(SQLERRM,1,200));
2416:
2417: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2418: THEN
2419: FND_MSG_PUB.add_exc_msg
2420: ( 'CST_eamCost_PUB'
2421: , '.Delete_eamPerBal : Statement -'||to_char(l_stmt_num)
2415: || substr(SQLERRM,1,200));
2416:
2417: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2418: THEN
2419: FND_MSG_PUB.add_exc_msg
2420: ( 'CST_eamCost_PUB'
2421: , '.Delete_eamPerBal : Statement -'||to_char(l_stmt_num)
2422: );
2423: END IF;
2422: );
2423: END IF;
2424:
2425: -- Get message count and data
2426: FND_MSG_PUB.count_and_get
2427: ( p_count => x_msg_count
2428: , p_data => x_msg_data
2429: );
2430:
2925: -- Initialize message list if p_init_msg_list is set to TRUE
2926: -------------------------------------------------------------------------
2927:
2928: IF FND_API.to_Boolean(p_init_msg_list) THEN
2929: FND_MSG_PUB.initialize;
2930: END IF;
2931:
2932:
2933: -------------------------------------------------------------------------
2956: ||TO_CHAR(l_entity_type)
2957: ||' WIP Entity: '
2958: ||TO_CHAR(p_wip_entity_id);
2959:
2960: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
2961: ||TO_CHAR(l_stmt_num)
2962: ||'): ', l_api_message);
2963: RAISE FND_API.g_exc_error;
2964:
2988: x_msg_data => l_msg_data);
2989:
2990: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
2991: FND_MESSAGE.set_token('TEXT', l_api_message);
2992: FND_MSG_PUB.ADD;
2993: RAISE fnd_api.g_exc_error;
2994: END IF;
2995:
2996:
3017: l_api_message := 'No CG Found for Project: '
3018: ||TO_CHAR(l_wip_project_id)
3019: ||' Organization: '
3020: ||TO_CHAR(l_organization_id);
3021: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3022: ||TO_CHAR(l_stmt_num)
3023: ||'): ', l_api_message);
3024: RAISE FND_API.g_exc_error;
3025:
3096: l_stmt_num := 40;
3097:
3098: l_api_message := 'Cannot Find Period for Date: ';
3099: l_api_message := l_api_message||TO_CHAR(l_trunc_le_sched_comp_date);
3100: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3101: ||TO_CHAR(l_stmt_num)
3102: ||'): ', l_api_message);
3103: RAISE FND_API.g_exc_error;
3104:
3134:
3135: l_api_message := 'Rates Type not defined for Org: '
3136: ||TO_CHAR(l_organization_id);
3137:
3138: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3139: ||TO_CHAR(l_stmt_num)
3140: ||'): ', l_api_message);
3141: RAISE FND_API.g_exc_error;
3142:
3169: l_api_message := l_api_message||' Prd Name: '
3170: ||l_period_name;
3171: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3172: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3173: FND_MSG_PUB.add;
3174:
3175: END IF;
3176:
3177:
3206: l_api_message :=l_api_message||' WOR,Value: '||TO_CHAR(c_wor_rec.resource_value);
3207:
3208: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3209: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3210: FND_MSG_PUB.add;
3211:
3212: END IF;
3213:
3214: l_stmt_num := 60;
3226:
3227: IF l_return_status <> FND_API.g_ret_sts_success THEN
3228:
3229: l_api_message := 'Get_MaintCostCat returned error';
3230: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3231: ||TO_CHAR(l_stmt_num)
3232: ||'): ', l_api_message);
3233: RAISE FND_API.g_exc_error;
3234:
3243:
3244: IF l_eam_cost_element = 0 THEN
3245:
3246: l_api_message := 'Get_eamCostElement returned error';
3247: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3248: ||TO_CHAR(l_stmt_num)
3249: ||'): ', l_api_message);
3250: RAISE FND_API.g_exc_error;
3251:
3257: l_api_message :=l_api_message||TO_CHAR(l_maint_cost_category);
3258: l_api_message :=l_api_message||' CE: '||TO_CHAR(l_eam_cost_element);
3259: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3260: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3261: FND_MSG_PUB.add;
3262:
3263: END IF;
3264:
3265: l_stmt_num := 70;
3291:
3292: IF l_return_status <> FND_API.g_ret_sts_success THEN
3293:
3294: l_api_message := 'insertupdate_eamperbal error';
3295: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3296: ||TO_CHAR(l_stmt_num)
3297: ||'): ', l_api_message);
3298: RAISE FND_API.g_exc_error;
3299:
3323: l_api_message :=l_api_message|| ' eam_cost_element_id = '||TO_CHAR(l_eam_cost_element);
3324: l_api_message :=l_api_message|| ' Sum WOR = ' || TO_CHAR( c_wor_rec.resource_value);
3325: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3326: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3327: FND_MSG_PUB.add;
3328: END IF;
3329:
3330: Insert_eamBalAcct(
3331: p_api_version => 1.0,
3358:
3359: IF l_return_status <> FND_API.g_ret_sts_success THEN
3360:
3361: l_api_message := 'Insert_eamBalAcct error';
3362: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'Insert_eamBalAcct('
3363: ||TO_CHAR(l_stmt_num)
3364: ||'): ', l_api_message);
3365: RAISE FND_API.g_exc_error;
3366:
3370: IF (p_debug = 'Y') THEN
3371: l_api_message :=' Sum WOR = ' || TO_CHAR( c_wor_rec.resource_value);
3372: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3373: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3374: FND_MSG_PUB.add;
3375: END IF;
3376:
3377: END IF; -- if c_wor_rec.resource_value !=0
3378:
3402: l_api_message :=l_api_message||TO_CHAR(l_maint_cost_category);
3403: l_api_message :=l_api_message||' CE: '||TO_CHAR(l_eam_cost_element);
3404: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3405: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3406: FND_MSG_PUB.add;
3407:
3408: END IF;
3409:
3410: l_stmt_num := 80;
3441: IF l_return_status <> FND_API.g_ret_sts_success THEN
3442:
3443: l_api_message := 'insertupdate_eamperbal error';
3444:
3445: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3446: ||TO_CHAR(l_stmt_num)
3447: ||'): ', l_api_message);
3448: RAISE FND_API.g_exc_error;
3449:
3466: l_api_message :=l_api_message|| ' eam_cost_element_id = '||TO_CHAR(l_eam_cost_element);
3467: l_api_message :=l_api_message|| ' Sum RBO = ' || TO_CHAR(l_sum_rbo);
3468: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3469: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3470: FND_MSG_PUB.add;
3471: END IF;
3472:
3473: Insert_eamBalAcct(
3474: p_api_version => 1.0,
3501:
3502: IF l_return_status <> FND_API.g_ret_sts_success THEN
3503:
3504: l_api_message := 'Insert_eamBalAcct error';
3505: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'Insert_eamBalAcct('
3506: ||TO_CHAR(l_stmt_num)
3507: ||'): ', l_api_message);
3508: RAISE FND_API.g_exc_error;
3509:
3513: IF (p_debug = 'Y') THEN
3514: l_api_message :=' Sum RBO = ' || TO_CHAR(l_sum_rbo);
3515: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3516: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3517: FND_MSG_PUB.add;
3518: END IF;
3519: END IF; -- if l_sum_rbo != 0
3520:
3521: /*Now ADD the value for the total resource based Overheads for this
3592: l_api_message :=l_api_message||TO_CHAR(c_dbo_rec.department_id);
3593: l_api_message :=l_api_message||' DBO,Value: '||TO_CHAR(c_dbo_rec.dbo_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:
3598: END IF;
3599:
3600: l_stmt_num := 92;
3610:
3611: IF l_return_status <> FND_API.g_ret_sts_success THEN
3612:
3613: l_api_message := 'Get_MaintCostCat returned error';
3614: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3615: ||TO_CHAR(l_stmt_num)
3616: ||'): ', l_api_message);
3617: RAISE FND_API.g_exc_error;
3618:
3626:
3627: IF l_eam_cost_element = 0 THEN
3628:
3629: l_api_message := 'Get_eamCostElement returned error';
3630: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3631: ||TO_CHAR(l_stmt_num)
3632: ||'): ', l_api_message);
3633: RAISE FND_API.g_exc_error;
3634:
3640: l_api_message :=l_api_message||TO_CHAR(l_maint_cost_category);
3641: l_api_message :=l_api_message||' CE: '||TO_CHAR(l_eam_cost_element);
3642: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3643: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3644: FND_MSG_PUB.add;
3645:
3646: END IF;
3647:
3648: l_stmt_num := 100;
3675: IF l_return_status <> FND_API.g_ret_sts_success THEN
3676:
3677: l_api_message := 'INSERTUPDATE_EAMPERBAL ERROR';
3678:
3679: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3680: ||TO_CHAR(l_stmt_num)
3681: ||'): ', l_api_message);
3682: RAISE FND_API.g_exc_error;
3683:
3698: l_api_message :=l_api_message|| ' eam_cost_element_id = '||TO_CHAR(l_eam_cost_element);
3699: l_api_message :=l_api_message|| ' Sum DBO = ' || TO_CHAR(l_sum_dbo);
3700: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3701: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3702: FND_MSG_PUB.add;
3703: END IF;
3704:
3705: Insert_eamBalAcct(
3706: p_api_version => 1.0,
3733:
3734: IF l_return_status <> FND_API.g_ret_sts_success THEN
3735:
3736: l_api_message := 'Insert_eamBalAcct error';
3737: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'Insert_eamBalAcct('
3738: ||TO_CHAR(l_stmt_num)
3739: ||'): ', l_api_message);
3740: RAISE FND_API.g_exc_error;
3741:
3745: IF (p_debug = 'Y') THEN
3746: l_api_message :=' Sum DBO = ' || TO_CHAR(l_sum_dbo);
3747: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3748: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3749: FND_MSG_PUB.add;
3750: END IF;
3751:
3752: END LOOP; */
3753:
3770: l_api_message :=l_api_message||TO_CHAR(c_wro_rec.department_id);
3771: l_api_message :=l_api_message||' WRO,Value: '||TO_CHAR(c_wro_rec.mat_value);
3772: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3773: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3774: FND_MSG_PUB.add;
3775:
3776: END IF;
3777:
3778: Get_MaintCostCat(
3787: IF l_return_status <> FND_API.g_ret_sts_success THEN
3788:
3789: l_api_message := 'Get_MaintCostCat returned error';
3790:
3791: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3792: ||TO_CHAR(l_stmt_num)
3793: ||'): ', l_api_message);
3794: RAISE FND_API.g_exc_error;
3795:
3804: IF l_eam_cost_element = 0 THEN
3805:
3806: l_api_message := 'Get_eamCostElement returned error';
3807:
3808: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3809: ||TO_CHAR(l_stmt_num)
3810: ||'): ', l_api_message);
3811: RAISE FND_API.g_exc_error;
3812:
3818: l_api_message :=l_api_message||TO_CHAR(l_maint_cost_category);
3819: l_api_message :=l_api_message||' CE: '||TO_CHAR(l_eam_cost_element);
3820: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3821: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3822: FND_MSG_PUB.add;
3823:
3824: END IF;
3825:
3826: l_stmt_num := 120;
3853: IF l_return_status <> FND_API.g_ret_sts_success THEN
3854:
3855: l_api_message := 'insertupdate_eamperbal error';
3856:
3857: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
3858: ||TO_CHAR(l_stmt_num)
3859: ||'): ', l_api_message);
3860: RAISE FND_API.g_exc_error;
3861:
3925: l_api_message :=l_api_message|| ' eam_cost_element_id = '||TO_CHAR(l_eam_cost_element);
3926: l_api_message :=l_api_message|| ' Sum WRO = ' || TO_CHAR(l_value);
3927: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3928: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3929: FND_MSG_PUB.add;
3930: END IF;
3931:
3932: If (l_exec_flag = 1) then
3933: Insert_eamBalAcct(
3961:
3962: IF l_return_status <> FND_API.g_ret_sts_success THEN
3963:
3964: l_api_message := 'Insert_eamBalAcct error';
3965: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'Insert_eamBalAcct('
3966: ||TO_CHAR(l_stmt_num)
3967: ||'): ', l_api_message);
3968: RAISE FND_API.g_exc_error;
3969:
3972: IF (p_debug = 'Y') THEN
3973: l_api_message :=' Sum WRO = 0';
3974: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
3975: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
3976: FND_MSG_PUB.add;
3977: END IF;
3978: End If;
3979: End loop; /* End For Loop for l_index_var */
3980:
4064: l_api_message :=l_api_message||TO_CHAR(c_wrodi_rec.department_id);
4065: l_api_message :=l_api_message||' WRO Direct Items,Value: '||TO_CHAR(c_wrodi_rec.mat_value);
4066: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4067: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4068: FND_MSG_PUB.add;
4069:
4070: END IF;
4071:
4072: Get_MaintCostCat(
4081: IF l_return_status <> FND_API.g_ret_sts_success THEN
4082:
4083: l_api_message := 'Get_MaintCostCat returned error';
4084:
4085: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
4086: ||TO_CHAR(l_stmt_num)
4087: ||'): ', l_api_message);
4088: RAISE FND_API.g_exc_error;
4089:
4110: l_api_message :=l_api_message||TO_CHAR(l_maint_cost_category);
4111: l_api_message :=l_api_message||' CE: '||TO_CHAR(l_eam_cost_element);
4112: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4113: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4114: FND_MSG_PUB.add;
4115:
4116: END IF;
4117:
4118: l_stmt_num := 150;
4145: IF l_return_status <> FND_API.g_ret_sts_success THEN
4146:
4147: l_api_message := 'insertupdate_eamperbal error';
4148:
4149: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
4150: ||TO_CHAR(l_stmt_num)
4151: ||'): ', l_api_message);
4152: RAISE FND_API.g_exc_error;
4153:
4179: l_api_message :=l_api_message|| ' eam_cost_element_id = '||TO_CHAR(l_eam_cost_element);
4180: l_api_message :=l_api_message|| ' Sum WRODI = ' || TO_CHAR(c_wrodi_rec.mat_value);
4181: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4182: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4183: FND_MSG_PUB.add;
4184: END IF;
4185:
4186: Insert_eamBalAcct(
4187: p_api_version => 1.0,
4214:
4215: IF l_return_status <> FND_API.g_ret_sts_success THEN
4216:
4217: l_api_message := 'Insert_eamBalAcct error';
4218: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'Insert_eamBalAcct('
4219: ||TO_CHAR(l_stmt_num)
4220: ||'): ', l_api_message);
4221: RAISE FND_API.g_exc_error;
4222:
4226: IF (p_debug = 'Y') THEN
4227: l_api_message :=' Sum WRODI = ' || TO_CHAR(c_wrodi_rec.mat_value);
4228: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4229: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4230: FND_MSG_PUB.add;
4231: END IF;
4232:
4233: END IF; -- if c_wrodi_rec.mat_value != 0
4234:
4338: l_api_message :=l_api_message||TO_CHAR(c_wedi_rec.direct_item_id);
4339: l_api_message :=l_api_message||' WRO Direct Items,Value: '||TO_CHAR(c_wedi_rec.wedi_value);
4340: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4341: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4342: FND_MSG_PUB.add;
4343:
4344: END IF;
4345:
4346: Get_MaintCostCat(
4355: IF l_return_status <> FND_API.g_ret_sts_success THEN
4356:
4357: l_api_message := 'Get_MaintCostCat returned error';
4358:
4359: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
4360: ||TO_CHAR(l_stmt_num)
4361: ||'): ', l_api_message);
4362: RAISE FND_API.g_exc_error;
4363:
4384: l_api_message :=l_api_message||TO_CHAR(l_maint_cost_category);
4385: l_api_message :=l_api_message||' CE: '||TO_CHAR(l_eam_cost_element);
4386: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4387: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4388: FND_MSG_PUB.add;
4389:
4390: END IF;
4391:
4392: l_stmt_num := 170;
4418: IF l_return_status <> FND_API.g_ret_sts_success THEN
4419:
4420: l_api_message := 'insertupdate_eamperbal error';
4421:
4422: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
4423: ||TO_CHAR(l_stmt_num)
4424: ||'): ', l_api_message);
4425: RAISE FND_API.g_exc_error;
4426:
4451: l_api_message :=l_api_message|| ' eam_cost_element_id = '||TO_CHAR(l_eam_cost_element);
4452: l_api_message :=l_api_message|| ' Sum WEDI = ' || TO_CHAR(c_wedi_rec.wedi_value);
4453: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4454: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4455: FND_MSG_PUB.add;
4456: END IF;
4457:
4458: Insert_eamBalAcct(
4459: p_api_version => 1.0,
4486:
4487: IF l_return_status <> FND_API.g_ret_sts_success THEN
4488:
4489: l_api_message := 'Insert_eamBalAcct error';
4490: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'Insert_eamBalAcct('
4491: ||TO_CHAR(l_stmt_num)
4492: ||'): ', l_api_message);
4493: RAISE FND_API.g_exc_error;
4494:
4498: IF (p_debug = 'Y') THEN
4499: l_api_message :=' Sum WEDI = ' || TO_CHAR(c_wedi_rec.wedi_value);
4500: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4501: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4502: FND_MSG_PUB.add;
4503: END IF;
4504:
4505: End If; -- if c_wedi_rec.wedi_value !=0
4506:
4632: l_api_message :=l_api_message||TO_CHAR(c_pda_rec.category_date);
4633: l_api_message :=l_api_message||' PDA,Value: '||TO_CHAR(c_pda_rec.pda_value);
4634: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4635: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4636: FND_MSG_PUB.add;
4637:
4638: END IF;
4639:
4640: l_stmt_num := 185;
4651: IF l_return_status <> FND_API.g_ret_sts_success THEN
4652:
4653: l_api_message := 'Get_MaintCostCat returned error';
4654:
4655: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
4656: ||TO_CHAR(l_stmt_num)
4657: ||'): ', l_api_message);
4658: RAISE FND_API.g_exc_error;
4659:
4689: l_api_message :=l_api_message||TO_CHAR(l_maint_cost_category);
4690: l_api_message :=l_api_message||' CE: '||TO_CHAR(l_eam_cost_element);
4691: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4692: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4693: FND_MSG_PUB.add;
4694:
4695: END IF;
4696:
4697: l_stmt_num := 195;
4724: IF l_return_status <> FND_API.g_ret_sts_success THEN
4725:
4726: l_api_message := 'insertupdate_eamperbal error';
4727:
4728: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'COMPUTE_JOB_ESTIMATES('
4729: ||TO_CHAR(l_stmt_num)
4730: ||'): ', l_api_message);
4731: RAISE FND_API.g_exc_error;
4732:
4757: l_api_message :=l_api_message|| ' eam_cost_element_id = '||TO_CHAR(l_eam_cost_element);
4758: l_api_message :=l_api_message|| ' Sum PDA = ' || TO_CHAR( c_pda_rec.pda_value);
4759: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4760: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4761: FND_MSG_PUB.add;
4762: END IF;
4763:
4764: Insert_eamBalAcct(
4765: p_api_version => 1.0,
4792:
4793: IF l_return_status <> FND_API.g_ret_sts_success THEN
4794:
4795: l_api_message := 'Insert_eamBalAcct error';
4796: FND_MSG_PUB.ADD_EXC_MSG('CST_EAMCOST_PUB', 'Insert_eamBalAcct('
4797: ||TO_CHAR(l_stmt_num)
4798: ||'): ', l_api_message);
4799: RAISE FND_API.g_exc_error;
4800:
4803: IF (p_debug = 'Y') THEN
4804: l_api_message :=' Sum PDA = ' || TO_CHAR( c_pda_rec.pda_value);
4805: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
4806: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
4807: FND_MSG_PUB.add;
4808: END IF;
4809: End If; -- if c_pda_rec.pda_value != 0
4810:
4811: l_stmt_num := 200;
4978: ---------------------------------------------------------------------------
4979: -- Standard Call to get message count and if count = 1, get message info
4980: ---------------------------------------------------------------------------
4981:
4982: FND_MSG_PUB.Count_And_Get (
4983: p_count => x_msg_count,
4984: p_data => x_msg_data );
4985:
4986: EXCEPTION
4988: WHEN fnd_api.g_exc_error THEN
4989: x_return_status := fnd_api.g_ret_sts_error;
4990:
4991: -- Get message count and data
4992: fnd_msg_pub.count_and_get
4993: ( p_count => x_msg_count
4994: , p_data => x_msg_data
4995: );
4996: --
4997: WHEN fnd_api.g_exc_unexpected_error THEN
4998: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4999:
5000: -- Get message count and data
5001: fnd_msg_pub.count_and_get
5002: ( p_count => x_msg_count
5003: , p_data => x_msg_data
5004: );
5005: --
5005: --
5006: WHEN OTHERS THEN
5007: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5008: --
5009: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
5010: THEN
5011: fnd_msg_pub.add_exc_msg
5012: ( 'CST_EamJob_PUB'
5013: , 'Compute_Job_Estimate : l_stmt_num - '||to_char(l_stmt_num)
5007: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5008: --
5009: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
5010: THEN
5011: fnd_msg_pub.add_exc_msg
5012: ( 'CST_EamJob_PUB'
5013: , 'Compute_Job_Estimate : l_stmt_num - '||to_char(l_stmt_num)
5014: );
5015:
5014: );
5015:
5016: END IF;
5017: -- Get message count and data
5018: fnd_msg_pub.count_and_get
5019: ( p_count => x_msg_count
5020: , p_data => x_msg_data
5021: );
5022:
5100: -- Initialize message list if p_init_msg_list is set to TRUE
5101: -------------------------------------------------------------
5102: l_statement := 20;
5103: IF fnd_api.to_Boolean(p_init_msg_list) then
5104: fnd_msg_pub.initialize;
5105: END IF;
5106:
5107: -------------------------------------------------------------
5108: -- Initialize API return status to Success
5402: -- If nothing, raise error
5403: ---------------------------------------------------------------------------
5404: IF (l_count = 0) THEN
5405: l_api_message := 'No row is inserted into CST_EAM_ROLLUP_TEMP';
5406: fnd_msg_pub.add_exc_msg
5407: ( G_PKG_NAME,
5408: l_api_name,
5409: l_api_message );
5410: RAISE fnd_api.g_exc_error;
5421: ---------------------------------------------------------------------------
5422: -- Standard Call to get message count and if count = 1, get message info
5423: ---------------------------------------------------------------------------
5424: l_statement := 120;
5425: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5426: p_data => x_msg_data );
5427:
5428:
5429: EXCEPTION
5429: EXCEPTION
5430: WHEN fnd_api.g_exc_error then
5431: ROLLBACK TO Rollup_Cost_PUB;
5432: x_return_status := fnd_api.g_ret_sts_error;
5433: fnd_msg_pub.count_and_get ( p_count => x_msg_count,
5434: p_data => x_msg_data );
5435:
5436: WHEN fnd_api.g_exc_unexpected_error then
5437: ROLLBACK TO Rollup_Cost_PUB;
5435:
5436: WHEN fnd_api.g_exc_unexpected_error then
5437: ROLLBACK TO Rollup_Cost_PUB;
5438: x_return_status := fnd_api.g_ret_sts_unexp_error;
5439: fnd_msg_pub.count_and_get ( p_count => x_msg_count,
5440: p_data => x_msg_data );
5441:
5442: WHEN OTHERS THEN
5443: ROLLBACK TO Rollup_Cost_PUB;
5442: WHEN OTHERS THEN
5443: ROLLBACK TO Rollup_Cost_PUB;
5444: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5445:
5446: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
5447: fnd_msg_pub.add_exc_msg
5448: ( G_PKG_NAME,l_api_name || ' : Statement - ' || to_char(l_statement));
5449: END IF;
5450:
5443: ROLLBACK TO Rollup_Cost_PUB;
5444: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5445:
5446: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
5447: fnd_msg_pub.add_exc_msg
5448: ( G_PKG_NAME,l_api_name || ' : Statement - ' || to_char(l_statement));
5449: END IF;
5450:
5451: fnd_msg_pub.count_and_get( p_count => x_msg_count,
5447: fnd_msg_pub.add_exc_msg
5448: ( G_PKG_NAME,l_api_name || ' : Statement - ' || to_char(l_statement));
5449: END IF;
5450:
5451: fnd_msg_pub.count_and_get( p_count => x_msg_count,
5452: p_data => x_msg_data );
5453:
5454: END Rollup_Cost;
5455:
5513: -- Initialize message list if p_init_msg_list is set to TRUE
5514: -------------------------------------------------------------
5515: l_statement := 20;
5516: IF fnd_api.to_Boolean(p_init_msg_list) then
5517: fnd_msg_pub.initialize;
5518: END IF;
5519:
5520: -------------------------------------------------------------
5521: -- Initialize API return status to Success
5548: ---------------------------------------------------------------------------
5549: -- Standard Call to get message count and if count = 1, get message info
5550: ---------------------------------------------------------------------------
5551: l_statement := 70;
5552: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5553: p_data => x_msg_data );
5554:
5555:
5556: EXCEPTION
5557:
5558: WHEN fnd_api.g_exc_error then
5559: ROLLBACK TO Purge_Rollup_Cost_PUB;
5560: x_return_status := fnd_api.g_ret_sts_error;
5561: fnd_msg_pub.count_and_get ( p_count => x_msg_count,
5562: p_data => x_msg_data );
5563:
5564: WHEN fnd_api.g_exc_unexpected_error then
5565: ROLLBACK TO Purge_Rollup_Cost_PUB;
5563:
5564: WHEN fnd_api.g_exc_unexpected_error then
5565: ROLLBACK TO Purge_Rollup_Cost_PUB;
5566: x_return_status := fnd_api.g_ret_sts_unexp_error;
5567: fnd_msg_pub.count_and_get ( p_count => x_msg_count,
5568: p_data => x_msg_data );
5569:
5570: WHEN OTHERS THEN
5571: ROLLBACK TO Purge_Rollup_Cost_PUB;
5569:
5570: WHEN OTHERS THEN
5571: ROLLBACK TO Purge_Rollup_Cost_PUB;
5572: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5573: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
5574: fnd_msg_pub.add_exc_msg
5575: ( G_PKG_NAME,l_api_name || ' : Statement - ' || to_char(l_statement));
5576: END IF;
5577: fnd_msg_pub.count_and_get( p_count => x_msg_count,
5570: WHEN OTHERS THEN
5571: ROLLBACK TO Purge_Rollup_Cost_PUB;
5572: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5573: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
5574: fnd_msg_pub.add_exc_msg
5575: ( G_PKG_NAME,l_api_name || ' : Statement - ' || to_char(l_statement));
5576: END IF;
5577: fnd_msg_pub.count_and_get( p_count => x_msg_count,
5578: p_data => x_msg_data );
5573: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
5574: fnd_msg_pub.add_exc_msg
5575: ( G_PKG_NAME,l_api_name || ' : Statement - ' || to_char(l_statement));
5576: END IF;
5577: fnd_msg_pub.count_and_get( p_count => x_msg_count,
5578: p_data => x_msg_data );
5579:
5580: END Purge_Rollup_Cost;
5581:
5649: END IF;
5650:
5651: -- Initialize message list if p_init_msg_list is set to TRUE
5652: IF FND_API.to_Boolean(p_init_msg_list) THEN
5653: FND_MSG_PUB.initialize;
5654: END IF;
5655:
5656: -- Initialize API return status to success
5657: l_stmt_num := 0;
5766: COMMIT WORK;
5767: END IF;
5768:
5769: -- Standard Call to get message count and if count = 1, get message info
5770: FND_MSG_PUB.Count_And_Get (
5771: p_count => x_msg_count,
5772: p_data => x_msg_data );
5773:
5774: -- Print messages to log file
5779: ROLLBACK TO check_if_direct_item_PUB;
5780: x_return_status := fnd_api.g_ret_sts_error;
5781:
5782: -- Get message count and data
5783: fnd_msg_pub.count_and_get
5784: ( p_count => x_msg_count
5785: , p_data => x_msg_data
5786: );
5787:
5789: ROLLBACK TO check_if_direct_item_PUB;
5790: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5791:
5792: -- Get message count and data
5793: fnd_msg_pub.count_and_get
5794: ( p_count => x_msg_count
5795: , p_data => x_msg_data
5796: );
5797: --
5798: WHEN OTHERS THEN
5799: ROLLBACK TO check_if_direct_item_PUB;
5800: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5801: --
5802: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
5803: THEN
5804: fnd_msg_pub.add_exc_msg
5805: ( 'CST_eamCost_PUB'
5806: , 'check_if_direct_item : Statement - '|| to_char(l_stmt_num)
5800: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5801: --
5802: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
5803: THEN
5804: fnd_msg_pub.add_exc_msg
5805: ( 'CST_eamCost_PUB'
5806: , 'check_if_direct_item : Statement - '|| to_char(l_stmt_num)
5807: );
5808:
5808:
5809: END IF;
5810:
5811: -- Get message count and data
5812: fnd_msg_pub.count_and_get
5813: ( p_count => x_msg_count
5814: , p_data => x_msg_data
5815: );
5816: END check_if_direct_item;
5902: END IF;
5903:
5904: -- Initialize message list if p_init_msg_list is set to TRUE
5905: IF FND_API.to_Boolean(p_init_msg_list) THEN
5906: FND_MSG_PUB.initialize;
5907: END IF;
5908:
5909: -- Initialize API return status to success
5910: l_stmt_num := 10;
6334: FND_FILE.put_line(FND_FILE.log, l_msg_data);
6335: l_api_message := 'WIP_EAM_RESOURCE_TRANSACTION.WIP_EAMRCVDIRECTITEM_HOOK returned error';
6336: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
6337: FND_MESSAGE.set_token('TEXT', l_api_message);
6338: FND_MSG_pub.add;
6339: RAISE FND_API.g_exc_error;
6340: END IF;
6341:
6342: -- Standard check of p_commit
6344: COMMIT WORK;
6345: END IF;
6346:
6347: -- Standard Call to get message count and if count = 1, get message info
6348: FND_MSG_PUB.Count_And_Get (
6349: p_count => x_msg_count,
6350: p_data => x_msg_data );
6351:
6352: -- Print messages to log file
6357: ROLLBACK TO process_direct_item_txn_PUB;
6358: x_return_status := fnd_api.g_ret_sts_error;
6359:
6360: -- Get message count and data
6361: fnd_msg_pub.count_and_get
6362: ( p_count => x_msg_count
6363: , p_data => x_msg_data
6364: );
6365:
6367: ROLLBACK TO process_direct_item_txn_PUB;
6368: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6369:
6370: -- Get message count and data
6371: fnd_msg_pub.count_and_get
6372: ( p_count => x_msg_count
6373: , p_data => x_msg_data
6374: );
6375: --
6376: WHEN OTHERS THEN
6377: ROLLBACK TO process_direct_item_txn_PUB;
6378: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6379: --
6380: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
6381: THEN
6382: fnd_msg_pub.add_exc_msg
6383: ( 'CST_eamCost_PUB'
6384: , 'process_direct_item_txn : Statement - '|| to_char(l_stmt_num)
6378: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6379: --
6380: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
6381: THEN
6382: fnd_msg_pub.add_exc_msg
6383: ( 'CST_eamCost_PUB'
6384: , 'process_direct_item_txn : Statement - '|| to_char(l_stmt_num)
6385: );
6386:
6386:
6387: END IF;
6388:
6389: -- Get message count and data
6390: fnd_msg_pub.count_and_get
6391: ( p_count => x_msg_count
6392: , p_data => x_msg_data
6393: );
6394: END process_direct_item_txn;
6487: END IF;
6488:
6489: -- Initialize message list if p_init_msg_list is set to TRUE
6490: IF FND_API.to_Boolean(p_init_msg_list) THEN
6491: FND_MSG_PUB.initialize;
6492: END IF;
6493:
6494: -- Initialize API return status to success
6495: l_stmt_num := 10;
6608: FND_FILE.put_line(FND_FILE.log, x_msg_data);
6609: l_api_message := 'get_CostEle_for_DirectItem returned unexpected error';
6610: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
6611: FND_MESSAGE.set_token('TEXT', l_api_message);
6612: FND_MSG_pub.add;
6613: raise fnd_api.g_exc_unexpected_error;
6614: end if;
6615:
6616: if (l_debug = 'Y') then
6766: COMMIT WORK;
6767: END IF;
6768:
6769: -- Standard Call to get message count and if count = 1, get message info
6770: FND_MSG_PUB.Count_And_Get (
6771: p_count => x_msg_count,
6772: p_data => x_msg_data );
6773:
6774: -- Print messages to log file
6779: ROLLBACK TO cost_direct_item_txn_PUB;
6780: x_return_status := fnd_api.g_ret_sts_error;
6781:
6782: -- Get message count and data
6783: fnd_msg_pub.count_and_get
6784: ( p_count => x_msg_count
6785: , p_data => x_msg_data
6786: );
6787:
6789: ROLLBACK TO cost_direct_item_txn_PUB;
6790: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6791:
6792: -- Get message count and data
6793: fnd_msg_pub.count_and_get
6794: ( p_count => x_msg_count
6795: , p_data => x_msg_data
6796: );
6797: --
6798: WHEN OTHERS THEN
6799: ROLLBACK TO cost_direct_item_txn_PUB;
6800: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6801: fnd_file.put_line(fnd_file.log,'CST_eamCost_PUB.cost_direct_item_txn: Statement(' || to_char(l_stmt_num) || '): ' || substr(SQLERRM,1,240));
6802: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
6803: THEN
6804: fnd_msg_pub.add_exc_msg
6805: ( 'CST_eamCost_PUB'
6806: , 'cost_direct_item_txn : Statement - '|| to_char(l_stmt_num)
6800: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6801: fnd_file.put_line(fnd_file.log,'CST_eamCost_PUB.cost_direct_item_txn: Statement(' || to_char(l_stmt_num) || '): ' || substr(SQLERRM,1,240));
6802: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
6803: THEN
6804: fnd_msg_pub.add_exc_msg
6805: ( 'CST_eamCost_PUB'
6806: , 'cost_direct_item_txn : Statement - '|| to_char(l_stmt_num)
6807: );
6808:
6808:
6809: END IF;
6810:
6811: -- Get message count and data
6812: fnd_msg_pub.count_and_get
6813: ( p_count => x_msg_count
6814: , p_data => x_msg_data
6815: );
6816: END cost_direct_item_txn;
6889: END IF;
6890:
6891: -- Initialize message list if p_init_msg_list is set to TRUE
6892: IF FND_API.to_Boolean(p_init_msg_list) THEN
6893: FND_MSG_PUB.initialize;
6894: END IF;
6895:
6896: -- Initialize API return status to success
6897: l_stmt_num := 10;
6981: FND_FILE.put_line(FND_FILE.log, x_msg_data);
6982: l_api_message := 'get_CostEle_for_DirectItem returned unexpected error';
6983: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
6984: FND_MESSAGE.set_token('TEXT', l_api_message);
6985: FND_MSG_pub.add;
6986: raise fnd_api.g_exc_unexpected_error;
6987: end if;
6988:
6989: if (l_debug = 'Y') then
7053: COMMIT WORK;
7054: END IF;
7055:
7056: -- Standard Call to get message count and if count = 1, get message info
7057: FND_MSG_PUB.Count_And_Get (
7058: p_count => x_msg_count,
7059: p_data => x_msg_data );
7060:
7061: -- Print messages to log file
7066: ROLLBACK TO insert_direct_item_distr_PUB;
7067: x_return_status := fnd_api.g_ret_sts_error;
7068:
7069: -- Get message count and data
7070: fnd_msg_pub.count_and_get
7071: ( p_count => x_msg_count
7072: , p_data => x_msg_data
7073: );
7074:
7076: ROLLBACK TO insert_direct_item_distr_PUB;
7077: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7078:
7079: -- Get message count and data
7080: fnd_msg_pub.count_and_get
7081: ( p_count => x_msg_count
7082: , p_data => x_msg_data
7083: );
7084: --
7086: ROLLBACK TO insert_direct_item_distr_PUB;
7087: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7088: fnd_file.put_line(fnd_file.log,'CST_eamCost_PUB.insert_direct_item_distr(' || to_char(l_stmt_num) || '): ' || substr(SQLERRM,1,240));
7089: --
7090: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
7091: THEN
7092: fnd_msg_pub.add_exc_msg
7093: ( 'CST_eamCost_PUB'
7094: , 'insert_direct_item_distr : Statement - '|| to_char(l_stmt_num)
7088: fnd_file.put_line(fnd_file.log,'CST_eamCost_PUB.insert_direct_item_distr(' || to_char(l_stmt_num) || '): ' || substr(SQLERRM,1,240));
7089: --
7090: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
7091: THEN
7092: fnd_msg_pub.add_exc_msg
7093: ( 'CST_eamCost_PUB'
7094: , 'insert_direct_item_distr : Statement - '|| to_char(l_stmt_num)
7095: );
7096:
7096:
7097: END IF;
7098:
7099: -- Get message count and data
7100: fnd_msg_pub.count_and_get
7101: ( p_count => x_msg_count
7102: , p_data => x_msg_data
7103: );
7104: END insert_direct_item_distr;
7171: -- Initialize message list if p_init_msg_list is set to TRUE
7172: -------------------------------------------------------------
7173: l_statement := 20;
7174: IF fnd_api.to_Boolean(p_init_msg_list) then
7175: fnd_msg_pub.initialize;
7176: end if;
7177:
7178: -------------------------------------------------------------
7179: -- Initialize API return status to Success
7222: FND_FILE.put_line(FND_FILE.log, x_msg_data);
7223: l_api_message := 'get_CostEle_for_DirectItem returned unexpected error';
7224: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
7225: FND_MESSAGE.set_token('TEXT', l_api_message);
7226: FND_MSG_pub.add;
7227: raise fnd_api.g_exc_unexpected_error;
7228: end if;
7229:
7230: if (l_debug = 'Y') then
7291: COMMIT WORK;
7292: END IF;
7293:
7294: -- Standard Call to get message count and if count = 1, get message info
7295: FND_MSG_PUB.Count_And_Get (
7296: p_count => x_msg_count,
7297: p_data => x_msg_data );
7298:
7299: -- Print messages to log file
7303: WHEN fnd_api.g_exc_error then
7304: ROLLBACK TO update_wip_period_balances_PUB;
7305: x_return_status := fnd_api.g_ret_sts_error;
7306:
7307: fnd_msg_pub.count_and_get
7308: ( p_count => x_msg_count,
7309: p_data => x_msg_data );
7310:
7311: WHEN fnd_api.g_exc_unexpected_error then
7311: WHEN fnd_api.g_exc_unexpected_error then
7312: ROLLBACK TO update_wip_period_balances_PUB;
7313: x_return_status := fnd_api.g_ret_sts_unexp_error;
7314:
7315: fnd_msg_pub.count_and_get
7316: ( p_count => x_msg_count,
7317: p_data => x_msg_data );
7318:
7319: WHEN OTHERS THEN
7318:
7319: WHEN OTHERS THEN
7320: ROLLBACK TO update_wip_period_balances_PUB;
7321: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7322: If fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
7323: fnd_msg_pub.add_exc_msg
7324: ( 'CST_eamCost_PUB',' update_wip_period_balances : Statement - ' || to_char(l_statement));
7325: end if;
7326:
7319: WHEN OTHERS THEN
7320: ROLLBACK TO update_wip_period_balances_PUB;
7321: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7322: If fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
7323: fnd_msg_pub.add_exc_msg
7324: ( 'CST_eamCost_PUB',' update_wip_period_balances : Statement - ' || to_char(l_statement));
7325: end if;
7326:
7327: fnd_msg_pub.count_and_get( p_count => x_msg_count,
7323: fnd_msg_pub.add_exc_msg
7324: ( 'CST_eamCost_PUB',' update_wip_period_balances : Statement - ' || to_char(l_statement));
7325: end if;
7326:
7327: fnd_msg_pub.count_and_get( p_count => x_msg_count,
7328: p_data => x_msg_data );
7329: END update_wip_period_balances;
7330:
7331: ----------------------------------------------------------------------------
7387: END IF;
7388:
7389: -- Initialize message list if p_init_msg_list is set to TRUE
7390: IF FND_API.to_Boolean(p_init_msg_list) THEN
7391: FND_MSG_PUB.initialize;
7392: END IF;
7393:
7394: -- Initialize API return status to success
7395: x_return_status := FND_API.G_RET_STS_SUCCESS;
7495: COMMIT WORK;
7496: END IF;
7497:
7498: -- Standard Call to get message count and if count = 1, get message info
7499: FND_MSG_PUB.Count_And_Get (
7500: p_count => x_msg_count,
7501: p_data => x_msg_data );
7502:
7503: -- Print messages to log file
7508: ROLLBACK TO insert_direct_item_txn_PUB;
7509: x_return_status := fnd_api.g_ret_sts_error;
7510:
7511: -- Get message count and data
7512: fnd_msg_pub.count_and_get
7513: ( p_count => x_msg_count
7514: , p_data => x_msg_data
7515: );
7516:
7518: ROLLBACK TO insert_direct_item_txn_PUB;
7519: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7520:
7521: -- Get message count and data
7522: fnd_msg_pub.count_and_get
7523: ( p_count => x_msg_count
7524: , p_data => x_msg_data
7525: );
7526: --
7528: ROLLBACK TO insert_direct_item_txn_PUB;
7529: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7530: fnd_file.put_line(fnd_file.log,'CST_eamCost_PUB.insert_direct_item_txn: Statement(' || to_char(l_stmt_num) || '): ' || substr(SQLERRM,1,240));
7531: --
7532: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
7533: THEN
7534: fnd_msg_pub.add_exc_msg
7535: ( 'CST_eamCost_PUB'
7536: , 'insert_direct_item_txn : Statement - '|| to_char(l_stmt_num)
7530: fnd_file.put_line(fnd_file.log,'CST_eamCost_PUB.insert_direct_item_txn: Statement(' || to_char(l_stmt_num) || '): ' || substr(SQLERRM,1,240));
7531: --
7532: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
7533: THEN
7534: fnd_msg_pub.add_exc_msg
7535: ( 'CST_eamCost_PUB'
7536: , 'insert_direct_item_txn : Statement - '|| to_char(l_stmt_num)
7537: );
7538:
7538:
7539: END IF;
7540:
7541: -- Get message count and data
7542: fnd_msg_pub.count_and_get
7543: ( p_count => x_msg_count
7544: , p_data => x_msg_data
7545: );
7546: END insert_direct_item_txn;
7616: -- Initialize message list if p_init_msg_list is set to TRUE
7617: -------------------------------------------------------------
7618: l_statement := 20;
7619: IF fnd_api.to_Boolean(p_init_msg_list) then
7620: fnd_msg_pub.initialize;
7621: end if;
7622:
7623: -------------------------------------------------------------
7624: -- Initialize API return status to Success
7634: if (p_wip_entity_id is null) then
7635: l_api_message := 'Please specify a wip entity id';
7636: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
7637: FND_MESSAGE.set_token('TEXT', l_api_message);
7638: FND_MSG_PUB.add;
7639:
7640: RAISE fnd_api.g_exc_error;
7641: end if;
7642:
7666: WHEN fnd_api.g_exc_error then
7667: x_return_status := fnd_api.g_ret_sts_error;
7668: x_material_acct := -1;
7669:
7670: fnd_msg_pub.count_and_get
7671: ( p_count => x_msg_count,
7672: p_data => x_msg_data );
7673:
7674: WHEN fnd_api.g_exc_unexpected_error then
7674: WHEN fnd_api.g_exc_unexpected_error then
7675: x_return_status := fnd_api.g_ret_sts_unexp_error;
7676: x_material_acct := -1;
7677:
7678: fnd_msg_pub.count_and_get
7679: ( p_count => x_msg_count,
7680: p_data => x_msg_data );
7681:
7682: WHEN OTHERS THEN
7681:
7682: WHEN OTHERS THEN
7683: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7684: x_material_acct := -1;
7685: If fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
7686: fnd_msg_pub.add_exc_msg
7687: ( 'CST_eamCost_PUB',' get_Direct_Item_Charge_Acct : Statement - ' || to_char(l_statement));
7688: end if;
7689:
7682: WHEN OTHERS THEN
7683: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7684: x_material_acct := -1;
7685: If fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
7686: fnd_msg_pub.add_exc_msg
7687: ( 'CST_eamCost_PUB',' get_Direct_Item_Charge_Acct : Statement - ' || to_char(l_statement));
7688: end if;
7689:
7690: fnd_msg_pub.count_and_get( p_count => x_msg_count,
7686: fnd_msg_pub.add_exc_msg
7687: ( 'CST_eamCost_PUB',' get_Direct_Item_Charge_Acct : Statement - ' || to_char(l_statement));
7688: end if;
7689:
7690: fnd_msg_pub.count_and_get( p_count => x_msg_count,
7691: p_data => x_msg_data );
7692: END get_Direct_Item_Charge_Acct;
7693:
7694: ----------------------------------------------------------------------------
7753: END IF;
7754:
7755: -- Initialize message list if p_init_msg_list is set to TRUE
7756: IF FND_API.to_Boolean(p_init_msg_list) THEN
7757: FND_MSG_PUB.initialize;
7758: END IF;
7759:
7760:
7761: -- Initialize API return status to success
7807: COMMIT WORK;
7808: END IF;
7809:
7810: -- Standard Call to get message count and if count = 1, get message info
7811: FND_MSG_PUB.Count_And_Get (
7812: p_count => x_msg_count,
7813: p_data => x_msg_data );
7814:
7815: EXCEPTION
7817: ROLLBACK TO validate_for_reestimation_PUB;
7818: x_return_status := fnd_api.g_ret_sts_error;
7819:
7820: -- Get message count and data
7821: fnd_msg_pub.count_and_get
7822: ( p_count => x_msg_count
7823: , p_data => x_msg_data
7824: );
7825:
7827: ROLLBACK TO validate_for_reestimation_PUB;
7828: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7829:
7830: -- Get message count and data
7831: fnd_msg_pub.count_and_get
7832: ( p_count => x_msg_count
7833: , p_data => x_msg_data
7834: );
7835:
7836: WHEN OTHERS THEN
7837: ROLLBACK TO validate_for_reestimation_PUB;
7838: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7839: --
7840: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
7841: THEN
7842: fnd_msg_pub.add_exc_msg
7843: ( 'CST_eamCost_PUB'
7844: , 'validate_for_reestimation : Statement - '|| to_char(l_stmt_num)
7838: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7839: --
7840: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
7841: THEN
7842: fnd_msg_pub.add_exc_msg
7843: ( 'CST_eamCost_PUB'
7844: , 'validate_for_reestimation : Statement - '|| to_char(l_stmt_num)
7845: );
7846:
7846:
7847: END IF;
7848:
7849: -- Get message count and data
7850: fnd_msg_pub.count_and_get
7851: ( p_count => x_msg_count
7852: , p_data => x_msg_data
7853: );
7854: END validate_for_reestimation;
8004: -------------------------------------------------------------------------
8005: -- Initialize message list if p_init_msg_list is set to TRUE
8006: -------------------------------------------------------------------------
8007: IF FND_API.to_Boolean(p_init_msg_list) THEN
8008: FND_MSG_PUB.initialize;
8009: END IF;
8010:
8011:
8012: -------------------------------------------------------------------------
8085: l_api_message := ' Number Members: ' ||TO_CHAR(l_number_members);
8086: l_api_message := l_api_message || ' Weightage Factor: '||TO_CHAR(l_weightage_factor);
8087: FND_MESSAGE.SET_NAME ('BOM', 'CST_API_MESSAGE');
8088: FND_MESSAGE.SET_TOKEN ('TEXT', l_api_message);
8089: FND_MSG_PUB.add;
8090:
8091: -------------------------------------------------------------
8092: -- Get variance amounts pl + moh, resource , osp, overhead
8093: --------------------------------------------------------------
8320: ---------------------------------------------------------------------------
8321: -- Standard Call to get message count and if count = 1, get message info
8322: ---------------------------------------------------------------------------
8323:
8324: FND_MSG_PUB.Count_And_Get (
8325: p_count => x_msg_count,
8326: p_data => x_msg_data );
8327:
8328: EXCEPTION
8330: WHEN fnd_api.g_exc_error THEN
8331: x_return_status := fnd_api.g_ret_sts_error;
8332:
8333: -- Get message count and data
8334: fnd_msg_pub.count_and_get
8335: ( p_count => x_msg_count
8336: , p_data => x_msg_data
8337: );
8338: --
8340: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8341: fnd_file.put_line(fnd_file.log,l_msg_data);
8342:
8343: -- Get message count and data
8344: fnd_msg_pub.count_and_get
8345: ( p_count => x_msg_count
8346: , p_data => x_msg_data
8347: );
8348: --
8348: --
8349: WHEN OTHERS THEN
8350: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8351: --
8352: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
8353: THEN
8354: fnd_msg_pub.add_exc_msg
8355: ( 'CST_EamJob_PUB'
8356: , 'Redistribute_WIP_Accounts : l_stmt_num - '
8350: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8351: --
8352: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
8353: THEN
8354: fnd_msg_pub.add_exc_msg
8355: ( 'CST_EamJob_PUB'
8356: , 'Redistribute_WIP_Accounts : l_stmt_num - '
8357: ||to_char(l_stmt_num)
8358: );
8358: );
8359:
8360: END IF;
8361: -- Get message count and data
8362: fnd_msg_pub.count_and_get
8363: ( p_count => x_msg_count
8364: , p_data => x_msg_data
8365: );
8366:
8420: END IF;
8421:
8422: -- Initialize message list if p_init_msg_list is set to TRUE
8423: IF FND_API.to_Boolean(p_init_msg_list) THEN
8424: FND_MSG_PUB.initialize;
8425: END IF;
8426:
8427: -- Initialize API return status to success
8428: l_stmt_num := 0;
8491: END IF;
8492:
8493: -- Standard Call to get message count and if count = 1, get message info
8494: l_stmt_num := 30;
8495: FND_MSG_PUB.Count_And_Get(
8496: p_count => x_msg_count,
8497: p_data => x_msg_data);
8498:
8499: EXCEPTION
8500: WHEN fnd_api.g_exc_error THEN
8501: x_return_status := fnd_api.g_ret_sts_error;
8502:
8503: -- Get message count and data
8504: fnd_msg_pub.count_and_get(
8505: p_count => x_msg_count,
8506: p_data => x_msg_data);
8507:
8508: WHEN fnd_api.g_exc_unexpected_error THEN
8508: WHEN fnd_api.g_exc_unexpected_error THEN
8509: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8510:
8511: -- Get message count and data
8512: fnd_msg_pub.count_and_get(
8513: p_count => x_msg_count,
8514: p_data => x_msg_data);
8515:
8516: WHEN OTHERS THEN
8515:
8516: WHEN OTHERS THEN
8517: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8518:
8519: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8520: fnd_msg_pub.add_exc_msg(
8521: 'CST_eamCost_PUB',
8522: 'get_charge_asset : Statement - '|| to_char(l_stmt_num));
8523: END IF;
8516: WHEN OTHERS THEN
8517: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8518:
8519: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8520: fnd_msg_pub.add_exc_msg(
8521: 'CST_eamCost_PUB',
8522: 'get_charge_asset : Statement - '|| to_char(l_stmt_num));
8523: END IF;
8524:
8522: 'get_charge_asset : Statement - '|| to_char(l_stmt_num));
8523: END IF;
8524:
8525: -- Get message count and data
8526: fnd_msg_pub.count_and_get(
8527: p_count => x_msg_count,
8528: p_data => x_msg_data);
8529: END get_charge_asset;
8530:
8599: -- Initialize message list if p_init_msg_list is set to TRUE
8600: -------------------------------------------------------------
8601: l_statement := 20;
8602: IF fnd_api.to_Boolean(p_init_msg_list) then
8603: fnd_msg_pub.initialize;
8604: end if;
8605:
8606: -------------------------------------------
8607: -- Initialize API return status to Success
8616: if (p_txn_id is null or p_mnt_or_mfg is null) then
8617: l_api_message := 'One of the IN parameter is null';
8618: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
8619: FND_MESSAGE.set_token('TEXT', l_api_message);
8620: FND_MSG_PUB.add;
8621: RAISE fnd_api.g_exc_error;
8622: end if;
8623:
8624: ----------------------------------------------------------------------
8640: when no_data_found then
8641: l_api_message := 'Transaction ID does not exist in WIP_COST_TXN_INTERFACE table. ';
8642: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
8643: FND_MESSAGE.set_token('TEXT', l_api_message);
8644: FND_MSG_PUB.add;
8645: RAISE fnd_api.g_exc_error;
8646: end;
8647: ELSE -- Done to support eAM in PAC, get data from WT as WCTI contains nothing at this moment
8648: l_statement := 55;
8659: when no_data_found then
8660: l_api_message := 'Transaction ID does not exist in WIP_TRANSACTIONS table. ';
8661: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
8662: FND_MESSAGE.set_token('TEXT', l_api_message);
8663: FND_MSG_PUB.add;
8664: RAISE fnd_api.g_exc_error;
8665: end;
8666: END IF;
8667:
8681: l_api_message := 'No po_header_id exist for transaction ID: ' || TO_CHAR(p_txn_id);
8682: l_api_message := l_api_message || ' wip_cost_txn_interface ';
8683: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
8684: FND_MESSAGE.set_token('TEXT', l_api_message);
8685: FND_MSG_pub.add;
8686: RAISE FND_API.g_exc_error;
8687: end if;
8688:
8689: -----------------------
8699: l_api_message := 'No po_line_id exist for transaction ID: ' || TO_CHAR(p_txn_id);
8700: l_api_message := l_api_message || ' wip_cost_txn_interface ';
8701: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
8702: FND_MESSAGE.set_token('TEXT', l_api_message);
8703: FND_MSG_pub.add;
8704: RAISE FND_API.g_exc_error;
8705: end if;
8706:
8707: ------------------------
8721: l_api_message := 'No rcv_transaction_id exist for transaction ID: ' || TO_CHAR(p_txn_id);
8722: l_api_message := l_api_message || ' wip_cost_txn_interface ';
8723: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
8724: FND_MESSAGE.set_token('TEXT', l_api_message);
8725: FND_MSG_pub.add;
8726: RAISE FND_API.g_exc_error;
8727: End if;
8728:
8729: If (l_po_release_id <> -1) then
8735: l_api_message := 'No po_release_id exist for transaction ID: ' || TO_CHAR(p_txn_id);
8736: l_api_message := l_api_message || ' wip_cost_txn_interface ';
8737: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
8738: FND_MESSAGE.set_token('TEXT', l_api_message);
8739: FND_MSG_pub.add;
8740: RAISE FND_API.g_exc_error;
8741: End if;
8742:
8743: end if;
8770: elsif (l_category_id = -1) then
8771: l_api_message := 'No category_id exist for PO Line ID: ' || TO_CHAR(l_po_line_id);
8772: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
8773: FND_MESSAGE.set_token('TEXT', l_api_message);
8774: FND_MSG_pub.add;
8775: RAISE FND_API.g_exc_error;
8776: else
8777: l_api_message := 'PO Header ID ' || TO_CHAR(l_po_header_id);
8778: l_api_message := l_api_message || ' has not been approved';
8777: l_api_message := 'PO Header ID ' || TO_CHAR(l_po_header_id);
8778: l_api_message := l_api_message || ' has not been approved';
8779: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
8780: FND_MESSAGE.set_token('TEXT', l_api_message);
8781: FND_MSG_pub.add;
8782: RAISE FND_API.g_exc_error;
8783: end if;
8784:
8785: x_cost_element_id := l_cost_element_id;
8784:
8785: x_cost_element_id := l_cost_element_id;
8786:
8787: -- Standard Call to get message count and if count = 1, get message info
8788: FND_MSG_PUB.Count_And_Get (
8789: p_count => x_msg_count,
8790: p_data => x_msg_data );
8791:
8792: EXCEPTION
8793: WHEN fnd_api.g_exc_error then
8794: x_return_status := fnd_api.g_ret_sts_error;
8795: x_cost_element_id := -1;
8796:
8797: fnd_msg_pub.count_and_get(
8798: p_count => x_msg_count,
8799: p_data => x_msg_data );
8800:
8801: WHEN fnd_api.g_exc_unexpected_error then
8801: WHEN fnd_api.g_exc_unexpected_error then
8802: x_return_status := fnd_api.g_ret_sts_unexp_error;
8803: x_cost_element_id := -1;
8804:
8805: fnd_msg_pub.count_and_get(
8806: p_count => x_msg_count,
8807: p_data => x_msg_data );
8808:
8809: WHEN OTHERS THEN
8808:
8809: WHEN OTHERS THEN
8810: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8811: x_cost_element_id:= -1;
8812: If fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
8813: fnd_msg_pub.add_exc_msg ( 'CST_eamCost_PUB',
8814: ' get_CostElement_for_DirectItem: Statement - ' || to_char(l_statement));
8815: end if;
8816:
8809: WHEN OTHERS THEN
8810: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8811: x_cost_element_id:= -1;
8812: If fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
8813: fnd_msg_pub.add_exc_msg ( 'CST_eamCost_PUB',
8814: ' get_CostElement_for_DirectItem: Statement - ' || to_char(l_statement));
8815: end if;
8816:
8817: fnd_msg_pub.count_and_get(
8813: fnd_msg_pub.add_exc_msg ( 'CST_eamCost_PUB',
8814: ' get_CostElement_for_DirectItem: Statement - ' || to_char(l_statement));
8815: end if;
8816:
8817: fnd_msg_pub.count_and_get(
8818: p_count => x_msg_count,
8819: p_data => x_msg_data );
8820: END get_CostEle_for_DirectItem;
8821:
8882: -- Initialize message list if p_init_msg_list is set to TRUE
8883: -------------------------------------------------------------
8884: l_statement := 20;
8885: IF fnd_api.to_Boolean(p_init_msg_list) then
8886: fnd_msg_pub.initialize;
8887: end if;
8888:
8889: -------------------------------------------
8890: -- Initialize API return status to Success
8899: if (p_txn_id is null) then
8900: l_api_message := 'IN parameter is null';
8901: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
8902: FND_MESSAGE.set_token('TEXT', l_api_message);
8903: FND_MSG_PUB.add;
8904: RAISE fnd_api.g_exc_error;
8905: end if;
8906:
8907: -------------------------------------------------------------------------
8919: when no_data_found then
8920: l_api_message := 'Transaction ID does not exist in WIP_TRANSACTIONS table.';
8921: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
8922: FND_MESSAGE.set_token('TEXT', l_api_message);
8923: FND_MSG_PUB.add;
8924: RAISE fnd_api.g_exc_error;
8925: end;
8926:
8927: -------------------------
8937: l_api_message := 'No po_header_id exist for transaction ID: ' || TO_CHAR(p_txn_id);
8938: l_api_message := l_api_message || ' wip_transactions ';
8939: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
8940: FND_MESSAGE.set_token('TEXT', l_api_message);
8941: FND_MSG_pub.add;
8942: RAISE FND_API.g_exc_error;
8943: end if;
8944:
8945: -----------------------
8955: l_api_message := 'No po_line_id exist for transaction ID: ' || TO_CHAR(p_txn_id);
8956: l_api_message := l_api_message || ' wip_transactions ';
8957: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
8958: FND_MESSAGE.set_token('TEXT', l_api_message);
8959: FND_MSG_pub.add;
8960: RAISE FND_API.g_exc_error;
8961: end if;
8962:
8963: ----------------------------
8981: elsif (l_category_id = -1) then
8982: l_api_message := 'No category_id exist for PO Line ID: ' || TO_CHAR(l_po_line_id);
8983: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
8984: FND_MESSAGE.set_token('TEXT', l_api_message);
8985: FND_MSG_pub.add;
8986: RAISE FND_API.g_exc_error;
8987: else
8988: l_api_message := 'PO Header ID ' || TO_CHAR(l_po_header_id);
8989: l_api_message := l_api_message || ' has not been approved';
8988: l_api_message := 'PO Header ID ' || TO_CHAR(l_po_header_id);
8989: l_api_message := l_api_message || ' has not been approved';
8990: FND_MESSAGE.set_name('BOM','CST_API_MESSAGE');
8991: FND_MESSAGE.set_token('TEXT', l_api_message);
8992: FND_MSG_pub.add;
8993: RAISE FND_API.g_exc_error;
8994: end if;
8995:
8996: x_expenditure_type := l_expenditure_type;
8995:
8996: x_expenditure_type := l_expenditure_type;
8997:
8998: -- Standard Call to get message count and if count = 1, get message info
8999: FND_MSG_PUB.Count_And_Get (
9000: p_count => x_msg_count,
9001: p_data => x_msg_data );
9002:
9003: EXCEPTION
9004: WHEN fnd_api.g_exc_error then
9005: x_return_status := fnd_api.g_ret_sts_error;
9006: x_expenditure_type := to_char(-1);
9007:
9008: fnd_msg_pub.count_and_get(
9009: p_count => x_msg_count,
9010: p_data => x_msg_data );
9011:
9012: WHEN fnd_api.g_exc_unexpected_error then
9012: WHEN fnd_api.g_exc_unexpected_error then
9013: x_return_status := fnd_api.g_ret_sts_unexp_error;
9014: x_expenditure_type := to_char(-1);
9015:
9016: fnd_msg_pub.count_and_get(
9017: p_count => x_msg_count,
9018: p_data => x_msg_data );
9019:
9020: WHEN OTHERS THEN
9019:
9020: WHEN OTHERS THEN
9021: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9022: x_expenditure_type := to_char(-1);
9023: If fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
9024: fnd_msg_pub.add_exc_msg ( 'CST_eamCost_PUB',
9025: ' get_ExpType_for_DirectItem: Statement - ' || to_char(l_statement));
9026: end if;
9027:
9020: WHEN OTHERS THEN
9021: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9022: x_expenditure_type := to_char(-1);
9023: If fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
9024: fnd_msg_pub.add_exc_msg ( 'CST_eamCost_PUB',
9025: ' get_ExpType_for_DirectItem: Statement - ' || to_char(l_statement));
9026: end if;
9027:
9028: fnd_msg_pub.count_and_get(
9024: fnd_msg_pub.add_exc_msg ( 'CST_eamCost_PUB',
9025: ' get_ExpType_for_DirectItem: Statement - ' || to_char(l_statement));
9026: end if;
9027:
9028: fnd_msg_pub.count_and_get(
9029: p_count => x_msg_count,
9030: p_data => x_msg_data );
9031: END get_ExpType_for_DirectItem;
9032:
9053: SAVEPOINT Rollup_WorkOrderCost_PUB;
9054:
9055: -- Initialize message list if p_init_msg_list is set to TRUE
9056: IF FND_API.to_Boolean(p_init_msg_list) THEN
9057: FND_MSG_PUB.initialize;
9058: END IF;
9059:
9060: -- Check for call compatibility
9061: IF NOT FND_API.Compatible_API_Call
9070:
9071: -- Check for message level threshold
9072: l_msg_level_threshold := FND_PROFILE.Value('FND_AS_MSG_LEVEL_THRESHOLD');
9073:
9074: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH
9075: THEN
9076: FND_MSG_PUB.Add_Exc_Msg(
9077: p_pkg_name => G_PKG_NAME,
9078: p_procedure_name => l_api_name,
9072: l_msg_level_threshold := FND_PROFILE.Value('FND_AS_MSG_LEVEL_THRESHOLD');
9073:
9074: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH
9075: THEN
9076: FND_MSG_PUB.Add_Exc_Msg(
9077: p_pkg_name => G_PKG_NAME,
9078: p_procedure_name => l_api_name,
9079: p_error_text => SUBSTR(
9080: l_stmt_num||':'||
9105: WHERE group_id = p_group_id;
9106:
9107: -- Generate a warning if there is no matching record in the supplied group id
9108: l_stmt_num := 15;
9109: IF l_max_level IS NULL and l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_SUCCESS
9110: THEN
9111: FND_MSG_PUB.Add_Exc_Msg(
9112: p_pkg_name => G_PKG_NAME,
9113: p_procedure_name => l_api_name,
9107: -- Generate a warning if there is no matching record in the supplied group id
9108: l_stmt_num := 15;
9109: IF l_max_level IS NULL and l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_SUCCESS
9110: THEN
9111: FND_MSG_PUB.Add_Exc_Msg(
9112: p_pkg_name => G_PKG_NAME,
9113: p_procedure_name => l_api_name,
9114: p_error_text => 'There is no matching record in CST_EAM_HIERARCHY_SNAPSHOT ' ||
9115: 'for group id ' || p_group_id
9124: WHERE group_id = p_group_id;
9125:
9126: -- Generate a warning if there are existing calculations for this group id
9127: l_stmt_num := 19;
9128: IF SQL%ROWCOUNT > 0 and l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH
9129: THEN
9130: FND_MSG_PUB.Add_Exc_Msg(
9131: p_pkg_name => G_PKG_NAME,
9132: p_procedure_name => l_api_name,
9126: -- Generate a warning if there are existing calculations for this group id
9127: l_stmt_num := 19;
9128: IF SQL%ROWCOUNT > 0 and l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH
9129: THEN
9130: FND_MSG_PUB.Add_Exc_Msg(
9131: p_pkg_name => G_PKG_NAME,
9132: p_procedure_name => l_api_name,
9133: p_error_text => 'Deleted ' || SQL%ROWCOUNT || ' existing calculation for ' ||
9134: ' group id '|| p_group_id
9242: TEMP.period_name,
9243: TEMP.maint_cost_category;
9244: END LOOP;
9245:
9246: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_SUCCESS
9247: THEN
9248: FND_MSG_PUB.Add_Exc_Msg(
9249: p_pkg_name => G_PKG_NAME,
9250: p_procedure_name => l_api_name,
9244: END LOOP;
9245:
9246: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_SUCCESS
9247: THEN
9248: FND_MSG_PUB.Add_Exc_Msg(
9249: p_pkg_name => G_PKG_NAME,
9250: p_procedure_name => l_api_name,
9251: p_error_text => l_stmt_num||
9252: ': Successfully rolled up the cost for group id '||
9261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9262: WHEN l_object_type_exc THEN
9263: ROLLBACK TO Rollup_WorkOrderCost_PUB;
9264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9265: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_ERROR
9266: THEN
9267: FND_MSG_PUB.Add_Exc_Msg(
9268: p_pkg_name => G_PKG_NAME,
9269: p_procedure_name => l_api_name,
9263: ROLLBACK TO Rollup_WorkOrderCost_PUB;
9264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9265: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_ERROR
9266: THEN
9267: FND_MSG_PUB.Add_Exc_Msg(
9268: p_pkg_name => G_PKG_NAME,
9269: p_procedure_name => l_api_name,
9270: p_error_text => 'Object type must be inserted. Use 0 instead of '||
9271: 'NULL for entities that are not a WIP entity'
9273: END IF;
9274: WHEN OTHERS THEN
9275: ROLLBACK TO Rollup_WorkOrderCost_PUB;
9276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9277: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
9278: THEN
9279: FND_MSG_PUB.Add_Exc_Msg(
9280: p_pkg_name => G_PKG_NAME,
9281: p_procedure_name => l_api_name,
9275: ROLLBACK TO Rollup_WorkOrderCost_PUB;
9276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9277: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
9278: THEN
9279: FND_MSG_PUB.Add_Exc_Msg(
9280: p_pkg_name => G_PKG_NAME,
9281: p_procedure_name => l_api_name,
9282: p_error_text => SUBSTR(l_stmt_num||SQLERRM,1,240)
9283: );
9303: SAVEPOINT Purge_RollupCost_PUB;
9304:
9305: -- Initialize message list if p_init_msg_list is set to TRUE
9306: IF FND_API.to_Boolean(p_init_msg_list) THEN
9307: FND_MSG_PUB.initialize;
9308: END IF;
9309:
9310: -- Check for call compatibility
9311: IF NOT FND_API.Compatible_API_Call
9320:
9321: -- Check for message level threshold
9322: l_msg_level_threshold := FND_PROFILE.Value('FND_AS_MSG_LEVEL_THRESHOLD');
9323:
9324: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH
9325: THEN
9326: FND_MSG_PUB.Add_Exc_Msg(
9327: p_pkg_name => G_PKG_NAME,
9328: p_procedure_name => l_api_name,
9322: l_msg_level_threshold := FND_PROFILE.Value('FND_AS_MSG_LEVEL_THRESHOLD');
9323:
9324: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH
9325: THEN
9326: FND_MSG_PUB.Add_Exc_Msg(
9327: p_pkg_name => G_PKG_NAME,
9328: p_procedure_name => l_api_name,
9329: p_error_text => SUBSTR(
9330: l_stmt_num||':'||
9342: AND program_application_id =
9343: NVL(p_prog_appl_id,program_application_id)
9344: AND last_update_date < NVL(p_last_update_date,last_update_date+1);
9345:
9346: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_SUCCESS
9347: THEN
9348: FND_MSG_PUB.Add_Exc_Msg(
9349: p_pkg_name => G_PKG_NAME,
9350: p_procedure_name => l_api_name,
9344: AND last_update_date < NVL(p_last_update_date,last_update_date+1);
9345:
9346: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_SUCCESS
9347: THEN
9348: FND_MSG_PUB.Add_Exc_Msg(
9349: p_pkg_name => G_PKG_NAME,
9350: p_procedure_name => l_api_name,
9351: p_error_text => l_stmt_num||
9352: ': Successfully deleted '||
9361: AND program_application_id =
9362: NVL(p_prog_appl_id,program_application_id)
9363: AND last_update_date < NVL(p_last_update_date,last_update_date+1);
9364:
9365: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_SUCCESS
9366: THEN
9367: FND_MSG_PUB.Add_Exc_Msg(
9368: p_pkg_name => G_PKG_NAME,
9369: p_procedure_name => l_api_name,
9363: AND last_update_date < NVL(p_last_update_date,last_update_date+1);
9364:
9365: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_SUCCESS
9366: THEN
9367: FND_MSG_PUB.Add_Exc_Msg(
9368: p_pkg_name => G_PKG_NAME,
9369: p_procedure_name => l_api_name,
9370: p_error_text => l_stmt_num||
9371: ': Successfully deleted '||
9381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9382: WHEN OTHERS THEN
9383: ROLLBACK TO Purge_RollupCost_PUB;
9384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9385: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
9386: THEN
9387: FND_MSG_PUB.Add_Exc_Msg(
9388: p_pkg_name => G_PKG_NAME,
9389: p_procedure_name => l_api_name,
9383: ROLLBACK TO Purge_RollupCost_PUB;
9384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9385: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
9386: THEN
9387: FND_MSG_PUB.Add_Exc_Msg(
9388: p_pkg_name => G_PKG_NAME,
9389: p_procedure_name => l_api_name,
9390: p_error_text => SUBSTR(l_stmt_num||SQLERRM,1,240)
9391: );
9490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9491: END IF;
9492: -- Initialize message list if p_init_msg_list is set to TRUE.
9493: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9494: FND_MSG_PUB.initialize;
9495: END IF;
9496:
9497: l_stmt_num := 10;
9498:
9590: );
9591: END IF;
9592:
9593: -- Standard call to get message count and if count is 1, get message info.
9594: FND_MSG_PUB.Count_And_Get
9595: ( p_count => x_msg_count ,
9596: p_data => x_msg_data
9597: );
9598:
9608: l_full_name ||'('|| l_stmt_num ||') :' || SUBSTRB(SQLERRM , 1 , 240)
9609: );
9610: END IF;
9611:
9612: FND_MSG_PUB.Count_And_Get
9613: ( p_count => x_msg_count ,
9614: p_data => x_msg_data
9615: );
9616: WHEN OTHERS THEN
9624: l_full_name || '( '|| l_stmt_num || ') :' || SUBSTRB(SQLERRM , 1 , 240)
9625: );
9626: END IF;
9627:
9628: IF FND_MSG_PUB.Check_Msg_Level
9629: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9630: THEN
9631: FND_MSG_PUB.Add_Exc_Msg
9632: ( 'CST_eamCost_PUB' ,
9625: );
9626: END IF;
9627:
9628: IF FND_MSG_PUB.Check_Msg_Level
9629: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9630: THEN
9631: FND_MSG_PUB.Add_Exc_Msg
9632: ( 'CST_eamCost_PUB' ,
9633: l_api_name
9627:
9628: IF FND_MSG_PUB.Check_Msg_Level
9629: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9630: THEN
9631: FND_MSG_PUB.Add_Exc_Msg
9632: ( 'CST_eamCost_PUB' ,
9633: l_api_name
9634: );
9635: END IF;
9632: ( 'CST_eamCost_PUB' ,
9633: l_api_name
9634: );
9635: END IF;
9636: FND_MSG_PUB.Count_And_Get
9637: ( p_count => x_msg_count ,
9638: p_data => x_msg_data
9639: );
9640: END Insert_eamBalAcct;
9685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9686: END IF;
9687: -- Initialize message list if p_init_msg_list is set to TRUE.
9688: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9689: FND_MSG_PUB.initialize;
9690: END IF;
9691:
9692: if( l_pLog ) then
9693: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
9720: );
9721: END IF;
9722:
9723: -- Standard call to get message count and if count is 1, get message info.
9724: FND_MSG_PUB.Count_And_Get
9725: ( p_count => x_msg_count ,
9726: p_data => x_msg_data
9727: );
9728:
9737: l_module || '.' || l_stmt_num ,
9738: l_full_name ||'('|| l_stmt_num ||') :' || SUBSTRB (SQLERRM , 1 , 240));
9739: END IF;
9740:
9741: FND_MSG_PUB.Count_And_Get
9742: ( p_count => x_msg_count ,
9743: p_data => x_msg_data
9744: );
9745: WHEN OTHERS THEN
9752: l_module || '.' || l_stmt_num,
9753: l_full_name ||'('|| l_stmt_num ||') :' || SUBSTRB (SQLERRM , 1 , 240));
9754: END IF;
9755:
9756: IF FND_MSG_PUB.Check_Msg_Level
9757: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9758: THEN
9759: FND_MSG_PUB.Add_Exc_Msg
9760: ( 'CST_eamCost_PUB' ,
9753: l_full_name ||'('|| l_stmt_num ||') :' || SUBSTRB (SQLERRM , 1 , 240));
9754: END IF;
9755:
9756: IF FND_MSG_PUB.Check_Msg_Level
9757: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9758: THEN
9759: FND_MSG_PUB.Add_Exc_Msg
9760: ( 'CST_eamCost_PUB' ,
9761: l_api_name
9755:
9756: IF FND_MSG_PUB.Check_Msg_Level
9757: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9758: THEN
9759: FND_MSG_PUB.Add_Exc_Msg
9760: ( 'CST_eamCost_PUB' ,
9761: l_api_name
9762: );
9763: END IF;
9760: ( 'CST_eamCost_PUB' ,
9761: l_api_name
9762: );
9763: END IF;
9764: FND_MSG_PUB.Count_And_Get
9765: ( p_count => x_msg_count ,
9766: p_data => x_msg_data
9767: );
9768: END Delete_eamBalAcct;
9842: END IF;
9843:
9844: -- Initialize message list if p_init_msg_list is set to TRUE.
9845: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9846: FND_MSG_PUB.initialize;
9847: END IF;
9848:
9849: IF( l_pLog ) THEN
9850: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
10237: );
10238: END IF;
10239:
10240: -- Standard call to get message count and if count is 1, get message info.
10241: FND_MSG_PUB.Count_And_Get
10242: ( p_count => x_msg_count,
10243: p_data => x_msg_data
10244: );
10245:
10254: l_module || '.' || l_stmt_num ,
10255: l_full_name ||'('|| l_stmt_num ||') :' || SUBSTRB (SQLERRM , 1 , 240));
10256: END IF;
10257:
10258: FND_MSG_PUB.Count_And_Get
10259: ( p_count => x_msg_count,
10260: p_data => x_msg_data
10261: );
10262:
10270: l_module || '.' || l_stmt_num,
10271: l_full_name ||'('|| l_stmt_num ||') :' || SUBSTRB (SQLERRM , 1 , 240));
10272: END IF;
10273:
10274: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10275: FND_MSG_PUB.Add_Exc_Msg('CST_eamCost_PUB'
10276: , l_api_name);
10277: END IF;
10278:
10271: l_full_name ||'('|| l_stmt_num ||') :' || SUBSTRB (SQLERRM , 1 , 240));
10272: END IF;
10273:
10274: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10275: FND_MSG_PUB.Add_Exc_Msg('CST_eamCost_PUB'
10276: , l_api_name);
10277: END IF;
10278:
10279: FND_MSG_PUB.Count_And_Get
10275: FND_MSG_PUB.Add_Exc_Msg('CST_eamCost_PUB'
10276: , l_api_name);
10277: END IF;
10278:
10279: FND_MSG_PUB.Count_And_Get
10280: ( p_count => x_msg_count,
10281: p_data => x_msg_data
10282: );
10283: