2674: x_msg_data => l_msg_data,
2675: x_msg_count => l_msg_count,
2676: p_include_gen_attach => 'N' );
2677:
2678: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
2679: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
2680: RAISE FND_API.G_EXC_ERROR;
2681: ELSE
2682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2675: x_msg_count => l_msg_count,
2676: p_include_gen_attach => 'N' );
2677:
2678: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
2679: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
2680: RAISE FND_API.G_EXC_ERROR;
2681: ELSE
2682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2683: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
2676: p_include_gen_attach => 'N' );
2677:
2678: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
2679: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
2680: RAISE FND_API.G_EXC_ERROR;
2681: ELSE
2682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2683: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
2684: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
2678: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
2679: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
2680: RAISE FND_API.G_EXC_ERROR;
2681: ELSE
2682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2683: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
2684: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
2685:
2686: IF (l_pending_signature_flag <> 'Y') THEN
2679: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
2680: RAISE FND_API.G_EXC_ERROR;
2681: ELSE
2682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2683: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
2684: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
2685:
2686: IF (l_pending_signature_flag <> 'Y') THEN
2687:
2680: RAISE FND_API.G_EXC_ERROR;
2681: ELSE
2682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2683: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
2684: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
2685:
2686: IF (l_pending_signature_flag <> 'Y') THEN
2687:
2688: l_progress := '030';
2702: x_return_status => l_return_status,
2703: x_msg_data => l_msg_data,
2704: x_msg_count => l_msg_count);
2705:
2706: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
2707: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
2708: RAISE FND_API.G_EXC_ERROR;
2709: ELSE
2710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2703: x_msg_data => l_msg_data,
2704: x_msg_count => l_msg_count);
2705:
2706: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
2707: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
2708: RAISE FND_API.G_EXC_ERROR;
2709: ELSE
2710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2711: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
2704: x_msg_count => l_msg_count);
2705:
2706: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
2707: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
2708: RAISE FND_API.G_EXC_ERROR;
2709: ELSE
2710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2711: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
2712: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
2706: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
2707: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
2708: RAISE FND_API.G_EXC_ERROR;
2709: ELSE
2710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2711: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
2712: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
2713:
2714: END IF; /*IF (l_pending_signature_flag <> 'Y')*/
2707: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
2708: RAISE FND_API.G_EXC_ERROR;
2709: ELSE
2710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2711: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
2712: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
2713:
2714: END IF; /*IF (l_pending_signature_flag <> 'Y')*/
2715:
2708: RAISE FND_API.G_EXC_ERROR;
2709: ELSE
2710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2711: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
2712: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
2713:
2714: END IF; /*IF (l_pending_signature_flag <> 'Y')*/
2715:
2716: END IF; /*IF (l_conterms_exist_flag = 'Y')*/
2764: -- PO ---> PLANNED/STANDARD
2765: -- PA ---> CONTRACT/BLANKET
2766: --OUT:
2767: --x_return_status
2768: -- FND_API.G_RET_STS_SUCCESS if API succeeds
2769: -- FND_API.G_RET_STS_ERROR if API fails
2770: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2771: --x_msg_count
2772: -- returns count of messages in the stack.
2765: -- PA ---> CONTRACT/BLANKET
2766: --OUT:
2767: --x_return_status
2768: -- FND_API.G_RET_STS_SUCCESS if API succeeds
2769: -- FND_API.G_RET_STS_ERROR if API fails
2770: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2771: --x_msg_count
2772: -- returns count of messages in the stack.
2773: --x_msg_data
2766: --OUT:
2767: --x_return_status
2768: -- FND_API.G_RET_STS_SUCCESS if API succeeds
2769: -- FND_API.G_RET_STS_ERROR if API fails
2770: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2771: --x_msg_count
2772: -- returns count of messages in the stack.
2773: --x_msg_data
2774: -- Contains error msg in case x_return_status returned
2771: --x_msg_count
2772: -- returns count of messages in the stack.
2773: --x_msg_data
2774: -- Contains error msg in case x_return_status returned
2775: -- FND_API.G_RET_STS_ERROR or FND_API.G_RET_STS_UNEXP_ERROR
2776: --Testing:
2777: -- None.
2778: --End of Comments
2779: -------------------------------------------------------------------------------
2827:
2828: BEGIN
2829:
2830: -- Standard call to check for call compatibility
2831: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
2832: THEN
2833: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2834: END IF;
2835:
2829:
2830: -- Standard call to check for call compatibility
2831: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
2832: THEN
2833: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2834: END IF;
2835:
2836: l_progress := '000';
2837: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3103: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3104: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3105: 'Returning from PVT package');
3106: END IF;
3107: x_return_status := FND_API.G_RET_STS_SUCCESS;
3108:
3109: l_progress := '310';
3110: EXCEPTION
3111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3107: x_return_status := FND_API.G_RET_STS_SUCCESS;
3108:
3109: l_progress := '310';
3110: EXCEPTION
3111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3112: ROLLBACK TO PO_ARCHIVE_SP;
3113: IF (G_FND_DEBUG = 'Y') THEN
3114: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3115: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3121: FND_MSG_PUB.Count_And_Get
3122: (p_count => x_msg_count,
3123: p_data => x_msg_data
3124: );
3125: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3126: WHEN FND_API.G_EXC_ERROR THEN
3127: ROLLBACK TO PO_ARCHIVE_SP;
3128: IF (G_FND_DEBUG = 'Y') THEN
3129: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3122: (p_count => x_msg_count,
3123: p_data => x_msg_data
3124: );
3125: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3126: WHEN FND_API.G_EXC_ERROR THEN
3127: ROLLBACK TO PO_ARCHIVE_SP;
3128: IF (G_FND_DEBUG = 'Y') THEN
3129: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3130: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3136: FND_MSG_PUB.Count_And_Get
3137: (p_count => x_msg_count,
3138: p_data => x_msg_data
3139: );
3140: x_return_status := FND_API.G_RET_STS_ERROR;
3141: WHEN OTHERS THEN
3142: ROLLBACK TO PO_ARCHIVE_SP;
3143: IF (G_FND_DEBUG = 'Y') THEN
3144: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3151: FND_MSG_PUB.Count_And_Get
3152: (p_count => x_msg_count,
3153: p_data => x_msg_data
3154: );
3155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3156: END ARCHIVE_PO;
3157:
3158: -----------------------------------------------------------------
3159: -------------------------------------------------------------------------------