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. |
446: /* Create the Events for the transactions in the WCTI group */
447:
448: CST_XLA_PVT.CreateBulk_WIPXLAEvent(
449: p_api_version => 1.0,
450: p_init_msg_list => FND_API.G_FALSE,
451: p_commit => FND_API.G_FALSE,
452: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
453: x_return_status => l_return_status,
454: x_msg_count => x_msg_count,
447:
448: CST_XLA_PVT.CreateBulk_WIPXLAEvent(
449: p_api_version => 1.0,
450: p_init_msg_list => FND_API.G_FALSE,
451: p_commit => FND_API.G_FALSE,
452: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
453: x_return_status => l_return_status,
454: x_msg_count => x_msg_count,
455: x_msg_data => x_msg_data,
448: CST_XLA_PVT.CreateBulk_WIPXLAEvent(
449: p_api_version => 1.0,
450: p_init_msg_list => FND_API.G_FALSE,
451: p_commit => FND_API.G_FALSE,
452: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
453: x_return_status => l_return_status,
454: x_msg_count => x_msg_count,
455: x_msg_data => x_msg_data,
456: p_wcti_group_id => p_wcti_group_id,
455: x_msg_data => x_msg_data,
456: p_wcti_group_id => p_wcti_group_id,
457: p_organization_id => p_org_id );
458:
459: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
461: END IF;
462:
463:
456: p_wcti_group_id => p_wcti_group_id,
457: p_organization_id => p_org_id );
458:
459: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
461: END IF;
462:
463:
464: /*------------------------------------------------------------------------+
672: l_err_msg);
673:
674: IF (l_err_num <> 0) THEN
675: l_msg_data := 'CSTPWCPX.CMLCPX: ' || l_err_msg;
676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
677: END IF;
678:
679: /* Procedure level log message for Entry point */
680: IF (l_pLog) THEN
691: p_data => x_msg_data
692: );
693:
694: /* Standard check of p_commit. */
695: IF FND_API.To_Boolean( p_commit ) THEN
696: COMMIT WORK;
697: END IF;
698:
699: EXCEPTION
696: COMMIT WORK;
697: END IF;
698:
699: EXCEPTION
700: WHEN FND_API.G_EXC_ERROR THEN
701: ROLLBACK TO Calculate_Job_Variance_GRP;
702: x_return_status := FND_API.G_RET_STS_ERROR ;
703:
704: IF l_errorLog THEN
698:
699: EXCEPTION
700: WHEN FND_API.G_EXC_ERROR THEN
701: ROLLBACK TO Calculate_Job_Variance_GRP;
702: x_return_status := FND_API.G_RET_STS_ERROR ;
703:
704: IF l_errorLog THEN
705: FND_LOG.STRING(
706: FND_LOG.LEVEL_ERROR,
714: ( p_count => x_msg_count,
715: p_data => x_msg_data
716: );
717:
718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
719: ROLLBACK TO Calculate_Job_Variance_GRP;
720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
721:
722: IF (l_exceptionLog) THEN
716: );
717:
718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
719: ROLLBACK TO Calculate_Job_Variance_GRP;
720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
721:
722: IF (l_exceptionLog) THEN
723: FND_LOG.STRING(
724: FND_LOG.LEVEL_EXCEPTION,
733: );
734:
735: WHEN OTHERS THEN
736: ROLLBACK TO Calculate_Job_Variance_GRP;
737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
738:
739: IF (l_uLog) THEN
740: FND_LOG.STRING(
741: FND_LOG.LEVEL_UNEXPECTED,