94: ')');
95: END IF;
96:
97: /* Standard call to check for call compatibility. */
98: IF NOT FND_API.Compatible_API_Call ( l_api_version,
99: p_api_version,
100: l_api_name,
101: G_PKG_NAME )
102: THEN
99: p_api_version,
100: l_api_name,
101: G_PKG_NAME )
102: THEN
103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
104: END IF;
105:
106: /* Initialize message list if p_init_msg_list is set to TRUE. */
107: IF FND_API.to_Boolean( p_init_msg_list ) THEN
103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
104: END IF;
105:
106: /* Initialize message list if p_init_msg_list is set to TRUE. */
107: IF FND_API.to_Boolean( p_init_msg_list ) THEN
108: FND_MSG_PUB.initialize;
109: END IF;
110:
111: /* Initialize API return status to success */
108: FND_MSG_PUB.initialize;
109: END IF;
110:
111: /* Initialize API return status to success */
112: l_return_status := FND_API.G_RET_STS_SUCCESS;
113: x_return_status := FND_API.G_RET_STS_SUCCESS;
114:
115: /*------------------------------------------------------------------------+
116: | Calling CSTPOYLD.transact_op_yield_var to calculate and account |
109: END IF;
110:
111: /* Initialize API return status to success */
112: l_return_status := FND_API.G_RET_STS_SUCCESS;
113: x_return_status := FND_API.G_RET_STS_SUCCESS;
114:
115: /*------------------------------------------------------------------------+
116: | Calling CSTPOYLD.transact_op_yield_var to calculate and account |
117: | operation yield variance for lot based job. |
130: l_err_msg);
131:
132: IF (l_return_code <> 1) THEN
133: l_msg_data := 'CSTPOYLD.transact_op_yield_var: ' || l_err_msg;
134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
135: END IF;
136:
137: /*------------------------------------------------------------------------+
138: | Check if any of the jobs have an asset route associated with it. |
153: x_return_status => l_return_status,
154: x_msg_count => x_msg_count,
155: x_msg_data => x_msg_data);
156:
157: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
158: l_msg_data := 'Error in CST_eamCost_PUB.Redistribute_WIP_Accounts()';
159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160: END IF;
161:
155: x_msg_data => x_msg_data);
156:
157: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
158: l_msg_data := 'Error in CST_eamCost_PUB.Redistribute_WIP_Accounts()';
159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160: END IF;
161:
162: /*------------------------------------------------------------------------+
163: | Post elemental variance for discrete and non-std jobs. |
424: /* Create the Events for the transactions in the WCTI group */
425:
426: CST_XLA_PVT.CreateBulk_WIPXLAEvent(
427: p_api_version => 1.0,
428: p_init_msg_list => FND_API.G_FALSE,
429: p_commit => FND_API.G_FALSE,
430: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
431: x_return_status => l_return_status,
432: x_msg_count => x_msg_count,
425:
426: CST_XLA_PVT.CreateBulk_WIPXLAEvent(
427: p_api_version => 1.0,
428: p_init_msg_list => FND_API.G_FALSE,
429: p_commit => FND_API.G_FALSE,
430: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
431: x_return_status => l_return_status,
432: x_msg_count => x_msg_count,
433: x_msg_data => x_msg_data,
426: CST_XLA_PVT.CreateBulk_WIPXLAEvent(
427: p_api_version => 1.0,
428: p_init_msg_list => FND_API.G_FALSE,
429: p_commit => FND_API.G_FALSE,
430: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
431: x_return_status => l_return_status,
432: x_msg_count => x_msg_count,
433: x_msg_data => x_msg_data,
434: p_wcti_group_id => p_wcti_group_id,
433: x_msg_data => x_msg_data,
434: p_wcti_group_id => p_wcti_group_id,
435: p_organization_id => p_org_id );
436:
437: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
439: END IF;
440:
441:
434: p_wcti_group_id => p_wcti_group_id,
435: p_organization_id => p_org_id );
436:
437: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
439: END IF;
440:
441:
442: /*------------------------------------------------------------------------+
629: l_err_msg);
630:
631: IF (l_err_num <> 0) THEN
632: l_msg_data := 'CSTPWCPX.CMLCPX: ' || l_err_msg;
633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634: END IF;
635:
636: /* Procedure level log message for Entry point */
637: IF (l_pLog) THEN
648: p_data => x_msg_data
649: );
650:
651: /* Standard check of p_commit. */
652: IF FND_API.To_Boolean( p_commit ) THEN
653: COMMIT WORK;
654: END IF;
655:
656: EXCEPTION
653: COMMIT WORK;
654: END IF;
655:
656: EXCEPTION
657: WHEN FND_API.G_EXC_ERROR THEN
658: ROLLBACK TO Calculate_Job_Variance_GRP;
659: x_return_status := FND_API.G_RET_STS_ERROR ;
660:
661: IF l_errorLog THEN
655:
656: EXCEPTION
657: WHEN FND_API.G_EXC_ERROR THEN
658: ROLLBACK TO Calculate_Job_Variance_GRP;
659: x_return_status := FND_API.G_RET_STS_ERROR ;
660:
661: IF l_errorLog THEN
662: FND_LOG.STRING(
663: FND_LOG.LEVEL_ERROR,
671: ( p_count => x_msg_count,
672: p_data => x_msg_data
673: );
674:
675: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
676: ROLLBACK TO Calculate_Job_Variance_GRP;
677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
678:
679: IF (l_exceptionLog) THEN
673: );
674:
675: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
676: ROLLBACK TO Calculate_Job_Variance_GRP;
677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
678:
679: IF (l_exceptionLog) THEN
680: FND_LOG.STRING(
681: FND_LOG.LEVEL_EXCEPTION,
690: );
691:
692: WHEN OTHERS THEN
693: ROLLBACK TO Calculate_Job_Variance_GRP;
694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
695:
696: IF (l_uLog) THEN
697: FND_LOG.STRING(
698: FND_LOG.LEVEL_UNEXPECTED,