952: l_progress := '020';
953:
954: x_period := l_period_name_tbl(1);
955:
956: IF (l_invalid_period_flag = FND_API.G_FALSE) THEN
957:
958: l_progress := '030';
959: IF g_debug_stmt THEN
960: PO_DEBUG.debug_stmt(l_log_head,l_progress,'valid period');
6039: --p_sob_id
6040: -- The set of books ID, or NULL to default the current OU's SOB.
6041: --OUT:
6042: --x_return_status
6043: -- FND_API.g_ret_sts_success - if the procedure completed successfully
6044: -- FND_API.g_ret_sts_unexp_error - unexpected error occurred
6045: --x_in_sob
6046: -- TRUE if p_inv_org_id is within the set of books p_sob_id.
6047: -- FALSE otherwise.
6040: -- The set of books ID, or NULL to default the current OU's SOB.
6041: --OUT:
6042: --x_return_status
6043: -- FND_API.g_ret_sts_success - if the procedure completed successfully
6044: -- FND_API.g_ret_sts_unexp_error - unexpected error occurred
6045: --x_in_sob
6046: -- TRUE if p_inv_org_id is within the set of books p_sob_id.
6047: -- FALSE otherwise.
6048: --End of Comments
6058: l_progress VARCHAR2(3);
6059: l_in_sob VARCHAR2(1);
6060: BEGIN
6061: l_progress := '000';
6062: x_return_status := FND_API.g_ret_sts_success;
6063:
6064: IF g_debug_stmt THEN
6065: PO_DEBUG.debug_stmt
6066: (p_log_head => g_log_head||'check_inv_org_in_sob',
6117: END IF;
6118:
6119: EXCEPTION
6120: WHEN OTHERS THEN
6121: x_return_status := FND_API.g_ret_sts_unexp_error;
6122: x_in_sob := FALSE;
6123: FND_MSG_PUB.add_exc_msg(p_pkg_name => g_pkg_name,
6124: p_procedure_name => 'check_inv_org_in_sob',
6125: p_error_text => 'Progress: '||l_progress||
6150: --p_inv_org_id
6151: -- The inventory organization ID.
6152: --OUT:
6153: --x_return_status
6154: -- FND_API.g_ret_sts_success - if the procedure completed successfully
6155: -- FND_API.g_ret_sts_unexp_error - unexpected error occurred
6156: --x_ou_id
6157: -- The operating unit ID associated with the inventory org p_inv_org_id. This
6158: -- will be NULL if p_inv_org_id is passed in as NULL.
6151: -- The inventory organization ID.
6152: --OUT:
6153: --x_return_status
6154: -- FND_API.g_ret_sts_success - if the procedure completed successfully
6155: -- FND_API.g_ret_sts_unexp_error - unexpected error occurred
6156: --x_ou_id
6157: -- The operating unit ID associated with the inventory org p_inv_org_id. This
6158: -- will be NULL if p_inv_org_id is passed in as NULL.
6159: --End of Comments
6167: IS
6168: l_progress VARCHAR2(3);
6169: BEGIN
6170: l_progress := '000';
6171: x_return_status := FND_API.g_ret_sts_success;
6172:
6173: IF g_debug_stmt THEN
6174: PO_DEBUG.debug_stmt
6175: (p_log_head => g_log_head||'get_inv_org_ou_id',
6208: END IF;
6209:
6210: EXCEPTION
6211: WHEN OTHERS THEN
6212: x_return_status := FND_API.g_ret_sts_unexp_error;
6213: FND_MSG_PUB.add_exc_msg(p_pkg_name => g_pkg_name,
6214: p_procedure_name => 'get_inv_org_ou_id',
6215: p_error_text => 'Progress: '||l_progress||
6216: ' Error: '||SUBSTRB(SQLERRM,1,215));
6239: --p_inv_org_id
6240: -- The inventory organization ID.
6241: --OUT:
6242: --x_return_status
6243: -- FND_API.g_ret_sts_success - if the procedure completed successfully
6244: -- FND_API.g_ret_sts_unexp_error - unexpected error occurred
6245: --x_sob_id
6246: -- The set of books ID associated with the inventory org p_inv_org_id.
6247: --End of Comments
6240: -- The inventory organization ID.
6241: --OUT:
6242: --x_return_status
6243: -- FND_API.g_ret_sts_success - if the procedure completed successfully
6244: -- FND_API.g_ret_sts_unexp_error - unexpected error occurred
6245: --x_sob_id
6246: -- The set of books ID associated with the inventory org p_inv_org_id.
6247: --End of Comments
6248: --------------------------------------------------------------------------------
6255: IS
6256: l_progress VARCHAR2(3);
6257: BEGIN
6258: l_progress := '000';
6259: x_return_status := FND_API.g_ret_sts_success;
6260:
6261: IF g_debug_stmt THEN
6262: PO_DEBUG.debug_stmt
6263: (p_log_head => g_log_head||'get_inv_org_sob_id',
6288: END IF;
6289:
6290: EXCEPTION
6291: WHEN OTHERS THEN
6292: x_return_status := FND_API.g_ret_sts_unexp_error;
6293: FND_MSG_PUB.add_exc_msg(p_pkg_name => g_pkg_name,
6294: p_procedure_name => 'get_inv_org_sob_id',
6295: p_error_text => 'Progress: '||l_progress||
6296: ' Error: '||SUBSTRB(SQLERRM,1,215));
6324: --p_inv_org_id
6325: -- The inventory organization ID.
6326: --OUT:
6327: --x_return_status
6328: -- FND_API.g_ret_sts_success - if the procedure completed successfully
6329: -- FND_API.g_ret_sts_unexp_error - unexpected error occurred
6330: --x_business_group_id
6331: -- The business group ID associated with the inventory org p_inv_org_id.
6332: --x_set_of_books_id
6325: -- The inventory organization ID.
6326: --OUT:
6327: --x_return_status
6328: -- FND_API.g_ret_sts_success - if the procedure completed successfully
6329: -- FND_API.g_ret_sts_unexp_error - unexpected error occurred
6330: --x_business_group_id
6331: -- The business group ID associated with the inventory org p_inv_org_id.
6332: --x_set_of_books_id
6333: -- The set of books ID associated with the inventory org p_inv_org_id.
6352: IS
6353: l_progress VARCHAR2(3);
6354: BEGIN
6355: l_progress := '000';
6356: x_return_status := FND_API.g_ret_sts_success;
6357:
6358: IF g_debug_stmt THEN
6359: PO_DEBUG.debug_stmt
6360: (p_log_head => g_log_head||'get_inv_org_info',
6400: END IF;
6401:
6402: EXCEPTION
6403: WHEN OTHERS THEN
6404: x_return_status := FND_API.g_ret_sts_unexp_error;
6405: FND_MSG_PUB.add_exc_msg(p_pkg_name => g_pkg_name,
6406: p_procedure_name => 'get_inv_org_info',
6407: p_error_text => 'Progress: '||l_progress||
6408: ' Error: '||SUBSTRB(SQLERRM,1,215));
7079: --p_parameter_value
7080: -- Parameter value to be validated
7081: --OUT:
7082: --x_return_status
7083: -- FND_API.G_RET_STS_SUCCESS if the parameter value is valid.
7084: -- FND_API.G_RET_STS_ERROR if the parameter value is not valid.
7085: -- FND_API.G_RET_STS_UNEXP_ERROR if an unexpected error occurred.
7086: --End of Comments
7087: -------------------------------------------------------------------------------
7080: -- Parameter value to be validated
7081: --OUT:
7082: --x_return_status
7083: -- FND_API.G_RET_STS_SUCCESS if the parameter value is valid.
7084: -- FND_API.G_RET_STS_ERROR if the parameter value is not valid.
7085: -- FND_API.G_RET_STS_UNEXP_ERROR if an unexpected error occurred.
7086: --End of Comments
7087: -------------------------------------------------------------------------------
7088: PROCEDURE validate_yes_no_param (
7081: --OUT:
7082: --x_return_status
7083: -- FND_API.G_RET_STS_SUCCESS if the parameter value is valid.
7084: -- FND_API.G_RET_STS_ERROR if the parameter value is not valid.
7085: -- FND_API.G_RET_STS_UNEXP_ERROR if an unexpected error occurred.
7086: --End of Comments
7087: -------------------------------------------------------------------------------
7088: PROCEDURE validate_yes_no_param (
7089: x_return_status OUT NOCOPY VARCHAR2,
7091: p_parameter_value IN VARCHAR2
7092: ) IS
7093: l_proc_name CONSTANT VARCHAR2(30) := 'VALIDATE_YES_NO_PARAM';
7094: BEGIN
7095: x_return_status := FND_API.G_RET_STS_SUCCESS;
7096:
7097: IF (p_parameter_value IS NOT NULL)
7098: AND (p_parameter_value NOT IN (G_PARAMETER_YES, G_PARAMETER_NO)) THEN
7099:
7101: FND_MESSAGE.set_token('PARAMETER_NAME', p_parameter_name);
7102: FND_MESSAGE.set_token('PARAMETER_VALUE', p_parameter_value);
7103: FND_MSG_PUB.add;
7104:
7105: x_return_status := FND_API.G_RET_STS_ERROR;
7106: RETURN;
7107: END IF;
7108:
7109: EXCEPTION
7109: EXCEPTION
7110: WHEN OTHERS THEN
7111: PO_DEBUG.handle_unexp_error(p_pkg_name => g_pkg_name,
7112: p_proc_name => l_proc_name );
7113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7114: END validate_yes_no_param;
7115: -- Bug 3373453 END
7116:
7117:
7923: ELSE
7924:
7925: JMF_SHIKYU_GRP.Validate_Osa_Flag(
7926: p_api_version => 1.0,
7927: p_init_msg_list => FND_API.G_FALSE,
7928: x_return_status => l_return_status,
7929: x_msg_count => l_msg_count,
7930: x_msg_data => l_msg_data,
7931: p_inventory_item_id => p_item_id,