[Home] [Help]
3032: x_msg_data => l_msg_data,
3033: x_msg_count => l_msg_count,
3034: p_include_gen_attach => 'N' );
3035:
3036: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
3037: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
3038: RAISE FND_API.G_EXC_ERROR;
3039: ELSE
3040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3033: x_msg_count => l_msg_count,
3034: p_include_gen_attach => 'N' );
3035:
3036: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
3037: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
3038: RAISE FND_API.G_EXC_ERROR;
3039: ELSE
3040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3041: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
3034: p_include_gen_attach => 'N' );
3035:
3036: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
3037: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
3038: RAISE FND_API.G_EXC_ERROR;
3039: ELSE
3040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3041: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
3042: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
3036: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
3037: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
3038: RAISE FND_API.G_EXC_ERROR;
3039: ELSE
3040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3041: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
3042: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
3043:
3044: IF (l_pending_signature_flag <> 'Y') THEN
3037: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
3038: RAISE FND_API.G_EXC_ERROR;
3039: ELSE
3040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3041: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
3042: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
3043:
3044: IF (l_pending_signature_flag <> 'Y') THEN
3045:
3038: RAISE FND_API.G_EXC_ERROR;
3039: ELSE
3040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3041: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
3042: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
3043:
3044: IF (l_pending_signature_flag <> 'Y') THEN
3045:
3046: l_progress := '030';
3060: x_return_status => l_return_status,
3061: x_msg_data => l_msg_data,
3062: x_msg_count => l_msg_count);
3063:
3064: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
3065: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
3066: RAISE FND_API.G_EXC_ERROR;
3067: ELSE
3068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3061: x_msg_data => l_msg_data,
3062: x_msg_count => l_msg_count);
3063:
3064: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
3065: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
3066: RAISE FND_API.G_EXC_ERROR;
3067: ELSE
3068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3069: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
3062: x_msg_count => l_msg_count);
3063:
3064: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
3065: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
3066: RAISE FND_API.G_EXC_ERROR;
3067: ELSE
3068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3069: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
3070: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
3064: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
3065: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
3066: RAISE FND_API.G_EXC_ERROR;
3067: ELSE
3068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3069: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
3070: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
3071:
3072: END IF; /*IF (l_pending_signature_flag <> 'Y')*/
3065: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
3066: RAISE FND_API.G_EXC_ERROR;
3067: ELSE
3068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3069: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
3070: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
3071:
3072: END IF; /*IF (l_pending_signature_flag <> 'Y')*/
3073:
3066: RAISE FND_API.G_EXC_ERROR;
3067: ELSE
3068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3069: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
3070: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
3071:
3072: END IF; /*IF (l_pending_signature_flag <> 'Y')*/
3073:
3074: END IF; /*IF (l_conterms_exist_flag = 'Y')*/
3122: -- PO ---> PLANNED/STANDARD
3123: -- PA ---> CONTRACT/BLANKET
3124: --OUT:
3125: --x_return_status
3126: -- FND_API.G_RET_STS_SUCCESS if API succeeds
3127: -- FND_API.G_RET_STS_ERROR if API fails
3128: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3129: --x_msg_count
3130: -- returns count of messages in the stack.
3123: -- PA ---> CONTRACT/BLANKET
3124: --OUT:
3125: --x_return_status
3126: -- FND_API.G_RET_STS_SUCCESS if API succeeds
3127: -- FND_API.G_RET_STS_ERROR if API fails
3128: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3129: --x_msg_count
3130: -- returns count of messages in the stack.
3131: --x_msg_data
3124: --OUT:
3125: --x_return_status
3126: -- FND_API.G_RET_STS_SUCCESS if API succeeds
3127: -- FND_API.G_RET_STS_ERROR if API fails
3128: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3129: --x_msg_count
3130: -- returns count of messages in the stack.
3131: --x_msg_data
3132: -- Contains error msg in case x_return_status returned
3129: --x_msg_count
3130: -- returns count of messages in the stack.
3131: --x_msg_data
3132: -- Contains error msg in case x_return_status returned
3133: -- FND_API.G_RET_STS_ERROR or FND_API.G_RET_STS_UNEXP_ERROR
3134: --Testing:
3135: -- None.
3136: --End of Comments
3137: -------------------------------------------------------------------------------
3187:
3188: BEGIN
3189:
3190: -- Standard call to check for call compatibility
3191: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
3192: THEN
3193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3194: END IF;
3195:
3189:
3190: -- Standard call to check for call compatibility
3191: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
3192: THEN
3193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3194: END IF;
3195:
3196: l_progress := '000';
3197: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3667: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3668: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3669: 'Returning from PVT package');
3670: END IF;
3671: x_return_status := FND_API.G_RET_STS_SUCCESS;
3672:
3673: l_progress := '310';
3674: EXCEPTION
3675: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3671: x_return_status := FND_API.G_RET_STS_SUCCESS;
3672:
3673: l_progress := '310';
3674: EXCEPTION
3675: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3676: ROLLBACK TO PO_ARCHIVE_SP;
3677: IF (G_FND_DEBUG = 'Y') THEN
3678: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3679: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3685: FND_MSG_PUB.Count_And_Get
3686: (p_count => x_msg_count,
3687: p_data => x_msg_data
3688: );
3689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3690: WHEN FND_API.G_EXC_ERROR THEN
3691: ROLLBACK TO PO_ARCHIVE_SP;
3692: IF (G_FND_DEBUG = 'Y') THEN
3693: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3686: (p_count => x_msg_count,
3687: p_data => x_msg_data
3688: );
3689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3690: WHEN FND_API.G_EXC_ERROR THEN
3691: ROLLBACK TO PO_ARCHIVE_SP;
3692: IF (G_FND_DEBUG = 'Y') THEN
3693: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3694: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3700: FND_MSG_PUB.Count_And_Get
3701: (p_count => x_msg_count,
3702: p_data => x_msg_data
3703: );
3704: x_return_status := FND_API.G_RET_STS_ERROR;
3705: WHEN OTHERS THEN
3706: ROLLBACK TO PO_ARCHIVE_SP;
3707: IF (G_FND_DEBUG = 'Y') THEN
3708: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3715: FND_MSG_PUB.Count_And_Get
3716: (p_count => x_msg_count,
3717: p_data => x_msg_data
3718: );
3719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3720: END ARCHIVE_PO;
3721:
3722: -----------------------------------------------------------------
3723: -------------------------------------------------------------------------------
5570: IF PO_LOG.d_stmt THEN
5571: PO_LOG.stmt(d_mod,l_progress,'After Check_Uda_Enabled with x_return_status : ' || l_return_status);
5572: END IF;
5573:
5574: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5576: END IF;
5577: -- End Check if Document is UDA Enabled
5578:
5571: PO_LOG.stmt(d_mod,l_progress,'After Check_Uda_Enabled with x_return_status : ' || l_return_status);
5572: END IF;
5573:
5574: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5576: END IF;
5577: -- End Check if Document is UDA Enabled
5578:
5579: -- Archive UDA data only for UDA_enabled Docs, and only for DocTypes PO and PA