[Home] [Help]
1: PACKAGE BODY ASO_UTILITY_PVT as
2: /* $Header: asovutlb.pls 120.20 2006/11/02 23:52:52 skulkarn ship $ */
3: --
4: -- NAME
5: -- ASO_UTILITY_PVT
1: PACKAGE BODY ASO_UTILITY_PVT as
2: /* $Header: asovutlb.pls 120.20 2006/11/02 23:52:52 skulkarn ship $ */
3: --
4: -- NAME
5: -- ASO_UTILITY_PVT
6: --
7: -- HISTORY
8: -- 10/18/2002 hyang - 2633507, performance fix
9: --
7: -- HISTORY
8: -- 10/18/2002 hyang - 2633507, performance fix
9: --
10:
11: G_PKG_NAME CONSTANT VARCHAR2(30):='ASO_UTILITY_PVT';
12: G_FILE_NAME CONSTANT VARCHAR2(12):='asovutlb.pls';
13:
14: PROCEDURE Start_API(
15: p_api_name IN VARCHAR2,
384: NULL;
385: END Set_Message;
386:
387: PROCEDURE Gen_Flexfield_Where(
388: p_flex_where_tbl_type IN ASO_UTILITY_PVT.flex_where_tbl_type,
389: x_flex_where_clause OUT NOCOPY /* file.sql.39 change */ VARCHAR2) IS
390: l_flex_where_cl VARCHAR2(2000) := NULL;
391: BEGIN
392: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
390: l_flex_where_cl VARCHAR2(2000) := NULL;
391: BEGIN
392: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
393: null;
394: --dbms_output.put_line('ASO_UTILITY_PVT Generate Flexfield Where: begin');
395: END IF;
396:
397: FOR i IN 1..p_flex_where_tbl_type.count LOOP
398: IF (p_flex_where_tbl_type(i).value IS NOT NULL
404: x_flex_where_clause := l_flex_where_cl;
405:
406: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
407: null;
408: --dbms_output.put_line('ASO_UTILITY_PVT Generate Flexfield Where: end');
409: END IF;
410: END;
411:
412: PROCEDURE Bind_Flexfield_Where(
410: END;
411:
412: PROCEDURE Bind_Flexfield_Where(
413: p_cursor_id IN NUMBER,
414: p_flex_where_tbl_type IN ASO_UTILITY_PVT.flex_where_tbl_type) IS
415: BEGIN
416: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
417: null;
418: --dbms_output.put_line('ASO_UTILITY_PVT Bind Flexfield Where: begin');
414: p_flex_where_tbl_type IN ASO_UTILITY_PVT.flex_where_tbl_type) IS
415: BEGIN
416: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
417: null;
418: --dbms_output.put_line('ASO_UTILITY_PVT Bind Flexfield Where: begin');
419: END IF;
420:
421: FOR i IN 1..p_flex_where_tbl_type.count LOOP
422: IF (p_flex_where_tbl_type(i).value IS NOT NULL
427: END LOOP;
428:
429: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
430: null;
431: --dbms_output.put_line('ASO_UTILITY_PVT Bind Flexfield Where: end');
432: END IF;
433: END;
434:
435:
5881: IS
5882: l_attribute_value APPS.HR_ORGANIZATION_INFORMATION.ORG_INFORMATION1%TYPE;
5883: BEGIN
5884: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5885: aso_debug_pub.add('ASO_UTILITY_PVT: GET_OU_ATTRIBUTE_VALUE: p_attribute '||p_attribute,1,'Y');
5886: aso_debug_pub.add('ASO_UTILITY_PVT: GET_OU_ATTRIBUTE_VALUE: p_organization_id '||p_organization_id,1,'Y');
5887: END IF;
5888:
5889: IF (p_attribute = G_DEFAULT_ORDER_TYPE) THEN
5882: l_attribute_value APPS.HR_ORGANIZATION_INFORMATION.ORG_INFORMATION1%TYPE;
5883: BEGIN
5884: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5885: aso_debug_pub.add('ASO_UTILITY_PVT: GET_OU_ATTRIBUTE_VALUE: p_attribute '||p_attribute,1,'Y');
5886: aso_debug_pub.add('ASO_UTILITY_PVT: GET_OU_ATTRIBUTE_VALUE: p_organization_id '||p_organization_id,1,'Y');
5887: END IF;
5888:
5889: IF (p_attribute = G_DEFAULT_ORDER_TYPE) THEN
5890: BEGIN
5943: END;
5944: END IF;
5945:
5946: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5947: aso_debug_pub.add('ASO_UTILITY_PVT: GET_OU_ATTRIBUTE_VALUE: l_attribute_value '||l_attribute_value,1,'Y');
5948: END IF;
5949:
5950: RETURN l_attribute_value;
5951:
5959:
5960: l_organization_id := MO_GLOBAL.GET_CURRENT_ORG_ID;
5961:
5962: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5963: aso_debug_pub.add('ASO_UTILITY_PVT: GET_OU_ATTRIBUTE_VALUE: p_attribute '||p_attribute,1,'Y');
5964: aso_debug_pub.add('ASO_UTILITY_PVT: GET_OU_ATTRIBUTE_VALUE: l_organization_id '||l_organization_id,1,'Y');
5965: END IF;
5966:
5967: l_attribute_value := GET_OU_ATTRIBUTE_VALUE(p_attribute, l_organization_id);
5960: l_organization_id := MO_GLOBAL.GET_CURRENT_ORG_ID;
5961:
5962: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5963: aso_debug_pub.add('ASO_UTILITY_PVT: GET_OU_ATTRIBUTE_VALUE: p_attribute '||p_attribute,1,'Y');
5964: aso_debug_pub.add('ASO_UTILITY_PVT: GET_OU_ATTRIBUTE_VALUE: l_organization_id '||l_organization_id,1,'Y');
5965: END IF;
5966:
5967: l_attribute_value := GET_OU_ATTRIBUTE_VALUE(p_attribute, l_organization_id);
5968:
5967: l_attribute_value := GET_OU_ATTRIBUTE_VALUE(p_attribute, l_organization_id);
5968:
5969:
5970: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5971: aso_debug_pub.add('ASO_UTILITY_PVT: GET_OU_ATTRIBUTE_VALUE: l_attribute_value '||l_attribute_value,1,'Y');
5972: END IF;
5973:
5974: RETURN l_attribute_value;
5975:
6044: FETCH cur_find_rec INTO l_quote_number, l_conc_request_id ;
6045:
6046: IF (cur_find_rec%ROWCOUNT = 0) THEN
6047: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6048: aso_debug_pub.add('ASO_UTILITY_PVT.UPDATE_CHANGED_QUOTES : No record found for the quote number, inserting the new record.', 1, 'Y');
6049: END IF;
6050: l_to_insert := 1;
6051: END IF ;
6052:
6055: IF (l_conc_request_id IS NOT null)
6056: THEN
6057: -- Record exists but a conc request id is also present, hence insert the record
6058: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6059: aso_debug_pub.add('ASO_UTILITY_PVT.UPDATE_CHANGED_QUOTES : Found record with quote number passed but the conc request id is not null, hence inserting the new record.', 1, 'Y');
6060: END IF;
6061: l_to_insert := 1;
6062: END IF;
6063:
6064: IF (l_conc_request_id IS null)
6065: THEN
6066: -- Record exists with a null conc request id, hence we need not insert a new record
6067: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6068: aso_debug_pub.add('ASO_UTILITY_PVT.UPDATE_CHANGED_QUOTES : Found record with quote number and the conc request id is null, hence no need to insert the new record.', 1, 'Y');
6069: END IF;
6070: l_found_rec := 1;
6071: END IF;
6072:
6084:
6085: IF (l_to_insert = 1) THEN
6086:
6087: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6088: aso_debug_pub.add('ASO_UTILITY_PVT.UPDATE_CHANGED_QUOTES : Before Inserting record in ASO_CHANGED_QUOTES', 1, 'Y');
6089: aso_debug_pub.add('ASO_UTILITY_PVT.UPDATE_CHANGED_QUOTES : Quote Number : ' || p_quote_number, 1, 'Y');
6090: END IF;
6091:
6092: ASO_CHANGED_QUOTES_PKG.INSERT_ROW(
6085: IF (l_to_insert = 1) THEN
6086:
6087: IF aso_debug_pub.g_debug_flag = 'Y' THEN
6088: aso_debug_pub.add('ASO_UTILITY_PVT.UPDATE_CHANGED_QUOTES : Before Inserting record in ASO_CHANGED_QUOTES', 1, 'Y');
6089: aso_debug_pub.add('ASO_UTILITY_PVT.UPDATE_CHANGED_QUOTES : Quote Number : ' || p_quote_number, 1, 'Y');
6090: END IF;
6091:
6092: ASO_CHANGED_QUOTES_PKG.INSERT_ROW(
6093: P_QUOTE_NUMBER => p_quote_number,
6106: END IF;
6107:
6108: EXCEPTION
6109: WHEN OTHERS THEN
6110: l_error_text := 'Error in ASO_UTILITY_PVT.UPDATE_CHANGED_QUOTES : ' || SQLERRM;
6111: aso_upgrade_pvt.add_message( p_module_name => l_module_name,
6112: p_error_level => 'ERROR',
6113: p_error_text => l_error_text,
6114: p_source_name => l_source_name
6257:
6258: END Tax_Rec_Exists;
6259:
6260:
6261: END ASO_UTILITY_PVT;
6262: