[Home] [Help]
12:
13: --
14: -- global variables within this package body
15: --
16: G_buffer_tbl AK_ON_OBJECTS_PUB.Buffer_Tbl_Type;
17:
18: --==============================================
19: -- Procedure REPLACE_ESCAPED_CHARS (local procedure)
20: --
32: --==============================================
33: function REPLACE_ESCAPED_CHARS (
34: p_buffer IN varchar2
35: ) return varchar2 is
36: l_buffer AK_ON_OBJECTS_PUB.Buffer_Type;
37: begin
38: l_buffer := REPLACE(p_buffer, '\"', '"');
39: l_buffer := REPLACE(l_buffer, '\t', ' '); /* tab */
40: l_buffer := REPLACE(l_buffer, '\n', '
66: p_buffer IN VARCHAR2
67: ) return VARCHAR2 is
68: l_api_version_number CONSTANT number := 1.0;
69: l_api_name CONSTANT varchar2(30) := 'Replace_Special_Char';
70: l_buffer AK_ON_OBJECTS_PUB.Buffer_Type;
71: begin
72:
73: if (p_buffer is null) then
74: return null;
110: -- in the from table appended to it.
111: --==============================================
112: procedure APPEND_BUFFER_TABLES (
113: p_return_status OUT NOCOPY VARCHAR2,
114: p_from_table IN AK_ON_OBJECTS_PUB.Buffer_Tbl_Type,
115: p_to_table IN OUT NOCOPY AK_ON_OBJECTS_PUB.Buffer_Tbl_Type
116: ) is
117: l_api_name CONSTANT varchar2(30) := 'Append_Buffer_Tables';
118: l_from_index NUMBER;
111: --==============================================
112: procedure APPEND_BUFFER_TABLES (
113: p_return_status OUT NOCOPY VARCHAR2,
114: p_from_table IN AK_ON_OBJECTS_PUB.Buffer_Tbl_Type,
115: p_to_table IN OUT NOCOPY AK_ON_OBJECTS_PUB.Buffer_Tbl_Type
116: ) is
117: l_api_name CONSTANT varchar2(30) := 'Append_Buffer_Tables';
118: l_from_index NUMBER;
119: l_to_index NUMBER;
223: where application_short_name = short_name_param;
224: l_api_version_number CONSTANT number := 1.0;
225: l_api_name CONSTANT varchar2(30) := 'Download_Header';
226: l_application_id number;
227: l_header_tbl AK_ON_OBJECTS_PUB.Buffer_Tbl_Type;
228: l_index NUMBER;
229: l_nls_language VARCHAR2(30);
230: l_return_status varchar2(1);
231: l_sub_phase varchar2(2);
370: l_header_tbl(l_index) := 'EXTRACT_BY_OBJECT = "' ||
371: p_download_by_object || '"';
372:
373: l_index := l_index + 1;
374: l_header_tbl(l_index) := 'FILE_FORMAT_VERSION = '||to_char(AK_ON_OBJECTS_PUB.G_FILE_FORMAT_VER);
375:
376: --
377: -- DEFINE section
378: --
1998: --
1999: AK_ON_OBJECTS_PVT.WRITE_FILE (
2000: p_return_status => l_return_status,
2001: p_buffer_tbl => l_header_tbl,
2002: p_write_mode => AK_ON_OBJECTS_PUB.G_OVERWRITE
2003: );
2004: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2005: (l_return_status = FND_API.G_RET_STS_ERROR) then
2006: --dbms_output.put_line(G_PKG_NAME || ': first write_File failed');
2056: p_msg_count OUT NOCOPY NUMBER,
2057: p_msg_data OUT NOCOPY VARCHAR2,
2058: p_return_status OUT NOCOPY VARCHAR2
2059: ) is
2060: l_upl_loader_cur AK_ON_OBJECTS_PUB.LoaderCurTyp; -- Cursor for upload
2061: l_api_version_number CONSTANT number := 1.0;
2062: l_api_name CONSTANT varchar2(30) := 'Upload';
2063: l_attribute_index NUMBER := 0;
2064: l_attribute_index_tbl Index_Tbl_Type;
2061: l_api_version_number CONSTANT number := 1.0;
2062: l_api_name CONSTANT varchar2(30) := 'Upload';
2063: l_attribute_index NUMBER := 0;
2064: l_attribute_index_tbl Index_Tbl_Type;
2065: l_buffer_tbl AK_ON_OBJECTS_PUB.Buffer_Tbl_Type;
2066: l_buffer AK_ON_OBJECTS_PUB.Buffer_Type;
2067: l_buffer2 AK_ON_OBJECTS_PUB.Buffer_Type;
2068: l_column varchar2(30);
2069: l_dummy NUMBER;
2062: l_api_name CONSTANT varchar2(30) := 'Upload';
2063: l_attribute_index NUMBER := 0;
2064: l_attribute_index_tbl Index_Tbl_Type;
2065: l_buffer_tbl AK_ON_OBJECTS_PUB.Buffer_Tbl_Type;
2066: l_buffer AK_ON_OBJECTS_PUB.Buffer_Type;
2067: l_buffer2 AK_ON_OBJECTS_PUB.Buffer_Type;
2068: l_column varchar2(30);
2069: l_dummy NUMBER;
2070: l_eof_flag varchar2(1);
2063: l_attribute_index NUMBER := 0;
2064: l_attribute_index_tbl Index_Tbl_Type;
2065: l_buffer_tbl AK_ON_OBJECTS_PUB.Buffer_Tbl_Type;
2066: l_buffer AK_ON_OBJECTS_PUB.Buffer_Type;
2067: l_buffer2 AK_ON_OBJECTS_PUB.Buffer_Type;
2068: l_column varchar2(30);
2069: l_dummy NUMBER;
2070: l_eof_flag varchar2(1);
2071: l_extract_by_obj varchar2(20);
2079: l_object_name varchar2(30);
2080: l_return_status varchar2(1);
2081: l_state NUMBER;
2082: l_timestamp DATE := sysdate;
2083: l_token AK_ON_OBJECTS_PUB.Buffer_Type;
2084: l_tbl_index NUMBER;
2085: l_file_version NUMBER;
2086: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
2087: l_not_compatible_version BOOLEAN := TRUE;
2279: AK_UPLOAD_GRP.G_EXTRACT_OBJ := l_extract_by_obj;
2280: end if;
2281: elsif (l_column = 'FILE_FORMAT_VERSION') then
2282: l_file_version := to_number(l_token);
2283: AK_ON_OBJECTS_PUB.G_UPLOAD_FILE_VERSION := l_file_version;
2284: if ( l_file_version <> AK_ON_OBJECTS_PUB.G_FILE_FORMAT_VER and
2285: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER1 and
2286: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 and
2287: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 and
2280: end if;
2281: elsif (l_column = 'FILE_FORMAT_VERSION') then
2282: l_file_version := to_number(l_token);
2283: AK_ON_OBJECTS_PUB.G_UPLOAD_FILE_VERSION := l_file_version;
2284: if ( l_file_version <> AK_ON_OBJECTS_PUB.G_FILE_FORMAT_VER and
2285: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER1 and
2286: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 and
2287: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 and
2288: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 and
2281: elsif (l_column = 'FILE_FORMAT_VERSION') then
2282: l_file_version := to_number(l_token);
2283: AK_ON_OBJECTS_PUB.G_UPLOAD_FILE_VERSION := l_file_version;
2284: if ( l_file_version <> AK_ON_OBJECTS_PUB.G_FILE_FORMAT_VER and
2285: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER1 and
2286: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 and
2287: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 and
2288: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 and
2289: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 and
2282: l_file_version := to_number(l_token);
2283: AK_ON_OBJECTS_PUB.G_UPLOAD_FILE_VERSION := l_file_version;
2284: if ( l_file_version <> AK_ON_OBJECTS_PUB.G_FILE_FORMAT_VER and
2285: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER1 and
2286: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 and
2287: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 and
2288: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 and
2289: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 and
2290: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 and
2283: AK_ON_OBJECTS_PUB.G_UPLOAD_FILE_VERSION := l_file_version;
2284: if ( l_file_version <> AK_ON_OBJECTS_PUB.G_FILE_FORMAT_VER and
2285: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER1 and
2286: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 and
2287: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 and
2288: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 and
2289: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 and
2290: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 and
2291: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 and
2284: if ( l_file_version <> AK_ON_OBJECTS_PUB.G_FILE_FORMAT_VER and
2285: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER1 and
2286: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 and
2287: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 and
2288: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 and
2289: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 and
2290: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 and
2291: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 and
2292: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 and
2285: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER1 and
2286: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 and
2287: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 and
2288: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 and
2289: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 and
2290: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 and
2291: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 and
2292: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 and
2293: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 and
2286: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 and
2287: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 and
2288: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 and
2289: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 and
2290: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 and
2291: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 and
2292: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 and
2293: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 and
2294: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 and
2287: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 and
2288: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 and
2289: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 and
2290: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 and
2291: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 and
2292: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 and
2293: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 and
2294: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 and
2295: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER11 and
2288: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 and
2289: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 and
2290: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 and
2291: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 and
2292: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 and
2293: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 and
2294: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 and
2295: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER11 and
2296: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER12 and
2289: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 and
2290: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 and
2291: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 and
2292: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 and
2293: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 and
2294: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 and
2295: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER11 and
2296: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER12 and
2297: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER14 and
2290: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 and
2291: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 and
2292: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 and
2293: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 and
2294: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 and
2295: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER11 and
2296: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER12 and
2297: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER14 and
2298: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER15) then
2291: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 and
2292: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 and
2293: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 and
2294: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 and
2295: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER11 and
2296: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER12 and
2297: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER14 and
2298: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER15) then
2299: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2292: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 and
2293: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 and
2294: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 and
2295: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER11 and
2296: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER12 and
2297: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER14 and
2298: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER15) then
2299: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2300: FND_MESSAGE.SET_NAME('AK','AK_WRONG_FILE_VERSION');
2293: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 and
2294: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 and
2295: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER11 and
2296: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER12 and
2297: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER14 and
2298: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER15) then
2299: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2300: FND_MESSAGE.SET_NAME('AK','AK_WRONG_FILE_VERSION');
2301: FND_MSG_PUB.Add;
2294: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 and
2295: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER11 and
2296: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER12 and
2297: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER14 and
2298: l_file_version <> AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER15) then
2299: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2300: FND_MESSAGE.SET_NAME('AK','AK_WRONG_FILE_VERSION');
2301: FND_MSG_PUB.Add;
2302: end if;
2923: --=======================================================
2924: procedure READ_LINE (
2925: p_return_status OUT NOCOPY VARCHAR2,
2926: p_index IN OUT NOCOPY Number,
2927: p_buffer OUT NOCOPY AK_ON_OBJECTS_PUB.Buffer_Type,
2928: p_lines_read OUT NOCOPY number,
2929: p_eof_flag OUT NOCOPY VARCHAR2,
2930: p_upl_loader_cur IN OUT NOCOPY AK_ON_OBJECTS_PUB.LoaderCurTyp
2931: )
2926: p_index IN OUT NOCOPY Number,
2927: p_buffer OUT NOCOPY AK_ON_OBJECTS_PUB.Buffer_Type,
2928: p_lines_read OUT NOCOPY number,
2929: p_eof_flag OUT NOCOPY VARCHAR2,
2930: p_upl_loader_cur IN OUT NOCOPY AK_ON_OBJECTS_PUB.LoaderCurTyp
2931: )
2932: is
2933: l_api_name CONSTANT varchar2(30) := 'Read_Line';
2934: l_buffer AK_ON_OBJECTS_PUB.Buffer_Type;
2930: p_upl_loader_cur IN OUT NOCOPY AK_ON_OBJECTS_PUB.LoaderCurTyp
2931: )
2932: is
2933: l_api_name CONSTANT varchar2(30) := 'Read_Line';
2934: l_buffer AK_ON_OBJECTS_PUB.Buffer_Type;
2935: l_cont_buffer AK_ON_OBJECTS_PUB.Buffer_Type;
2936: l_done BOOLEAN := TRUE;
2937: l_lines_read NUMBER := 0;
2938: l_index NUMBER;
2931: )
2932: is
2933: l_api_name CONSTANT varchar2(30) := 'Read_Line';
2934: l_buffer AK_ON_OBJECTS_PUB.Buffer_Type;
2935: l_cont_buffer AK_ON_OBJECTS_PUB.Buffer_Type;
2936: l_done BOOLEAN := TRUE;
2937: l_lines_read NUMBER := 0;
2938: l_index NUMBER;
2939: l_return_status VARCHAR2(1);
3081: if AK_UPLOAD_GRP.G_UPLOAD_DATE is null then
3082: AK_UPLOAD_GRP.G_UPLOAD_DATE := AK_UPLOAD_GRP.G_GEN_DATE;
3083: end if;
3084: if (p_loader_timestamp <> FND_API.G_MISS_DATE) then
3085: l_file_version := AK_ON_OBJECTS_PUB.G_UPLOAD_FILE_VERSION;
3086: if ( l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER1 or
3087: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 or
3088: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 or
3089: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 or
3082: AK_UPLOAD_GRP.G_UPLOAD_DATE := AK_UPLOAD_GRP.G_GEN_DATE;
3083: end if;
3084: if (p_loader_timestamp <> FND_API.G_MISS_DATE) then
3085: l_file_version := AK_ON_OBJECTS_PUB.G_UPLOAD_FILE_VERSION;
3086: if ( l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER1 or
3087: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 or
3088: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 or
3089: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 or
3090: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 or
3083: end if;
3084: if (p_loader_timestamp <> FND_API.G_MISS_DATE) then
3085: l_file_version := AK_ON_OBJECTS_PUB.G_UPLOAD_FILE_VERSION;
3086: if ( l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER1 or
3087: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 or
3088: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 or
3089: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 or
3090: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 or
3091: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 or
3084: if (p_loader_timestamp <> FND_API.G_MISS_DATE) then
3085: l_file_version := AK_ON_OBJECTS_PUB.G_UPLOAD_FILE_VERSION;
3086: if ( l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER1 or
3087: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 or
3088: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 or
3089: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 or
3090: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 or
3091: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 or
3092: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 or
3085: l_file_version := AK_ON_OBJECTS_PUB.G_UPLOAD_FILE_VERSION;
3086: if ( l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER1 or
3087: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 or
3088: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 or
3089: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 or
3090: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 or
3091: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 or
3092: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 or
3093: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 or
3086: if ( l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER1 or
3087: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 or
3088: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 or
3089: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 or
3090: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 or
3091: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 or
3092: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 or
3093: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 or
3094: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 or
3087: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 or
3088: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 or
3089: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 or
3090: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 or
3091: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 or
3092: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 or
3093: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 or
3094: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 or
3095: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 or
3088: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 or
3089: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 or
3090: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 or
3091: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 or
3092: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 or
3093: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 or
3094: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 or
3095: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 or
3096: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER11 or
3089: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 or
3090: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 or
3091: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 or
3092: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 or
3093: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 or
3094: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 or
3095: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 or
3096: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER11 or
3097: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER12) then
3090: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 or
3091: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 or
3092: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 or
3093: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 or
3094: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 or
3095: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 or
3096: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER11 or
3097: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER12) then
3098: if (AK_UPLOAD_GRP.G_UPLOAD_DATE is null and AK_UPLOAD_GRP.G_COMPARE_UPDATE = FALSE) then
3091: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 or
3092: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 or
3093: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 or
3094: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 or
3095: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 or
3096: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER11 or
3097: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER12) then
3098: if (AK_UPLOAD_GRP.G_UPLOAD_DATE is null and AK_UPLOAD_GRP.G_COMPARE_UPDATE = FALSE) then
3099: AK_UPLOAD_GRP.G_UPLOAD_DATE := p_loader_timestamp;
3092: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 or
3093: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 or
3094: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 or
3095: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 or
3096: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER11 or
3097: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER12) then
3098: if (AK_UPLOAD_GRP.G_UPLOAD_DATE is null and AK_UPLOAD_GRP.G_COMPARE_UPDATE = FALSE) then
3099: AK_UPLOAD_GRP.G_UPLOAD_DATE := p_loader_timestamp;
3100: elsif (AK_UPLOAD_GRP.G_UPLOAD_DATE is null and AK_UPLOAD_GRP.G_COMPARE_UPDATE = TRUE) then
3093: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 or
3094: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 or
3095: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 or
3096: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER11 or
3097: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER12) then
3098: if (AK_UPLOAD_GRP.G_UPLOAD_DATE is null and AK_UPLOAD_GRP.G_COMPARE_UPDATE = FALSE) then
3099: AK_UPLOAD_GRP.G_UPLOAD_DATE := p_loader_timestamp;
3100: elsif (AK_UPLOAD_GRP.G_UPLOAD_DATE is null and AK_UPLOAD_GRP.G_COMPARE_UPDATE = TRUE) then
3101: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
3108: p_creation_date := AK_UPLOAD_GRP.G_UPLOAD_DATE;
3109: p_last_updated_by := 1;
3110: p_last_update_date := AK_UPLOAD_GRP.G_UPLOAD_DATE;
3111: p_last_update_login := 1;
3112: elsif ( l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER15 or
3113: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER14) then
3114: -- called from loader
3115: p_created_by := 2;
3116: p_creation_date := AK_UPLOAD_GRP.G_UPLOAD_DATE;
3109: p_last_updated_by := 1;
3110: p_last_update_date := AK_UPLOAD_GRP.G_UPLOAD_DATE;
3111: p_last_update_login := 1;
3112: elsif ( l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER15 or
3113: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER14) then
3114: -- called from loader
3115: p_created_by := 2;
3116: p_creation_date := AK_UPLOAD_GRP.G_UPLOAD_DATE;
3117: p_last_updated_by := 2;
3207: l_last_updated_by number;
3208: l_custom_mode varchar2(8);
3209: begin
3210:
3211: l_file_version := AK_ON_OBJECTS_PUB.G_UPLOAD_FILE_VERSION;
3212: if (AK_UPLOAD_GRP.G_UPDATE_MODE or p_create_or_update = 'FORCE') then
3213: l_custom_mode := 'FORCE';
3214: elsif (AK_UPLOAD_GRP.G_NO_CUSTOM_UPDATE) then
3215: l_custom_mode := 'NCUPDATE';
3216: else
3217: l_custom_mode := 'INVALID';
3218: end if;
3219: -- IF VERSION 120.1 OR GREATER USE FND_LOAD_UTIL COMPARISON LOGIC
3220: if (l_file_version = AK_ON_OBJECTS_PUB.G_FILE_FORMAT_VER and
3221: (p_create_or_update = 'UPDATE' or p_create_or_update = 'FORCE')) then
3222: if FND_LOAD_UTIL.UPLOAD_TEST (
3223: p_file_id => p_last_updated_by,
3224: p_file_lud => p_last_update_date,
3231: return FALSE;
3232: end if;
3233:
3234: /* ELSIF JLT PRIOR TO R12 DO OLD COMPARISON CHECKING */
3235: elsif (l_file_version <> AK_ON_OBJECTS_PUB.G_FILE_FORMAT_VER) then
3236: if (AK_UPLOAD_GRP.G_NO_CUSTOM_UPDATE) then
3237: if (p_db_last_updated_by <> 1 and p_db_last_updated_by <> 2) then
3238: return FALSE;
3239: end if;
3263: if p_create_or_update = 'CREATE' then
3264: return TRUE;
3265: elsif
3266: ((AK_UPLOAD_GRP.G_COMPARE_UPDATE = TRUE and
3267: (l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER15 or
3268: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER14) and
3269: (p_db_last_updated_by = 1 or p_last_update_date > p_db_last_update_date)) or
3270: (AK_UPLOAD_GRP.G_COMPARE_UPDATE = TRUE and
3271: ( l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER1 or
3264: return TRUE;
3265: elsif
3266: ((AK_UPLOAD_GRP.G_COMPARE_UPDATE = TRUE and
3267: (l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER15 or
3268: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER14) and
3269: (p_db_last_updated_by = 1 or p_last_update_date > p_db_last_update_date)) or
3270: (AK_UPLOAD_GRP.G_COMPARE_UPDATE = TRUE and
3271: ( l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER1 or
3272: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 or
3267: (l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER15 or
3268: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER14) and
3269: (p_db_last_updated_by = 1 or p_last_update_date > p_db_last_update_date)) or
3270: (AK_UPLOAD_GRP.G_COMPARE_UPDATE = TRUE and
3271: ( l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER1 or
3272: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 or
3273: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 or
3274: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 or
3275: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 or
3268: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER14) and
3269: (p_db_last_updated_by = 1 or p_last_update_date > p_db_last_update_date)) or
3270: (AK_UPLOAD_GRP.G_COMPARE_UPDATE = TRUE and
3271: ( l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER1 or
3272: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 or
3273: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 or
3274: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 or
3275: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 or
3276: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 or
3269: (p_db_last_updated_by = 1 or p_last_update_date > p_db_last_update_date)) or
3270: (AK_UPLOAD_GRP.G_COMPARE_UPDATE = TRUE and
3271: ( l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER1 or
3272: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 or
3273: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 or
3274: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 or
3275: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 or
3276: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 or
3277: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 or
3270: (AK_UPLOAD_GRP.G_COMPARE_UPDATE = TRUE and
3271: ( l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER1 or
3272: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 or
3273: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 or
3274: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 or
3275: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 or
3276: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 or
3277: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 or
3278: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 or
3271: ( l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER1 or
3272: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 or
3273: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 or
3274: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 or
3275: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 or
3276: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 or
3277: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 or
3278: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 or
3279: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 or
3272: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER2 or
3273: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 or
3274: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 or
3275: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 or
3276: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 or
3277: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 or
3278: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 or
3279: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 or
3280: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 or
3273: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER3 or
3274: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 or
3275: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 or
3276: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 or
3277: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 or
3278: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 or
3279: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 or
3280: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 or
3281: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER11 or
3274: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER4 or
3275: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 or
3276: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 or
3277: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 or
3278: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 or
3279: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 or
3280: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 or
3281: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER11 or
3282: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER12) and
3275: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER5 or
3276: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 or
3277: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 or
3278: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 or
3279: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 or
3280: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 or
3281: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER11 or
3282: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER12) and
3283: p_db_last_updated_by = 1) or
3276: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER6 or
3277: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 or
3278: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 or
3279: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 or
3280: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 or
3281: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER11 or
3282: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER12) and
3283: p_db_last_updated_by = 1) or
3284: AK_UPLOAD_GRP.G_COMPARE_UPDATE = FALSE)
3277: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER7 or
3278: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 or
3279: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 or
3280: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 or
3281: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER11 or
3282: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER12) and
3283: p_db_last_updated_by = 1) or
3284: AK_UPLOAD_GRP.G_COMPARE_UPDATE = FALSE)
3285: THEN
3278: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER8 or
3279: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER9 or
3280: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER10 or
3281: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER11 or
3282: l_file_version = AK_ON_OBJECTS_PUB.G_OLD_FILE_FORMAT_VER12) and
3283: p_db_last_updated_by = 1) or
3284: AK_UPLOAD_GRP.G_COMPARE_UPDATE = FALSE)
3285: THEN
3286: return TRUE;
3321: -- contents in the PL/SQL table.
3322: --=======================================================
3323: procedure WRITE_FILE (
3324: p_return_status OUT NOCOPY VARCHAR2,
3325: p_buffer_tbl IN AK_ON_OBJECTS_PUB.Buffer_Tbl_Type,
3326: p_write_mode IN VARCHAR2 := AK_ON_OBJECTS_PUB.G_APPEND
3327: ) is
3328: l_api_name CONSTANT varchar2(30) := 'Write_File';
3329: l_buf_len NUMBER;
3322: --=======================================================
3323: procedure WRITE_FILE (
3324: p_return_status OUT NOCOPY VARCHAR2,
3325: p_buffer_tbl IN AK_ON_OBJECTS_PUB.Buffer_Tbl_Type,
3326: p_write_mode IN VARCHAR2 := AK_ON_OBJECTS_PUB.G_APPEND
3327: ) is
3328: l_api_name CONSTANT varchar2(30) := 'Write_File';
3329: l_buf_len NUMBER;
3330: l_buf_written NUMBER := 0;
3345:
3346: --
3347: -- indicate error if write mode is not G_APPEND or G_OVERWRITE
3348: --
3349: if (p_write_mode <> AK_ON_OBJECTS_PUB.G_APPEND) and
3350: (p_write_mode <> AK_ON_OBJECTS_PUB.G_OVERWRITE) then
3351: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
3352: FND_MESSAGE.SET_NAME('AK','AK_INVALID_WRITE_MODE');
3353: FND_MSG_PUB.Add;
3346: --
3347: -- indicate error if write mode is not G_APPEND or G_OVERWRITE
3348: --
3349: if (p_write_mode <> AK_ON_OBJECTS_PUB.G_APPEND) and
3350: (p_write_mode <> AK_ON_OBJECTS_PUB.G_OVERWRITE) then
3351: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
3352: FND_MESSAGE.SET_NAME('AK','AK_INVALID_WRITE_MODE');
3353: FND_MSG_PUB.Add;
3354: end if;
3356: end if;
3357:
3358: -- If it's append mode, start appending to the end of the global table
3359: --
3360: if (p_write_mode = AK_ON_OBJECTS_PUB.G_OVERWRITE AND AK_DOWNLOAD_GRP.G_WRITE_HEADER) then
3361: G_TBL_INDEX := 0;
3362: end if;
3363:
3364: --
3448: -- contents in the PL/SQL table.
3449: --=======================================================
3450: procedure WRITE_LOG_FILE (
3451: p_return_status OUT NOCOPY VARCHAR2,
3452: p_buffer_tbl IN AK_ON_OBJECTS_PUB.Buffer_Tbl_Type,
3453: p_write_mode IN VARCHAR2 := AK_ON_OBJECTS_PUB.G_APPEND
3454: ) is
3455: l_api_name CONSTANT varchar2(30) := 'Write_File';
3456: l_buf_len NUMBER;
3449: --=======================================================
3450: procedure WRITE_LOG_FILE (
3451: p_return_status OUT NOCOPY VARCHAR2,
3452: p_buffer_tbl IN AK_ON_OBJECTS_PUB.Buffer_Tbl_Type,
3453: p_write_mode IN VARCHAR2 := AK_ON_OBJECTS_PUB.G_APPEND
3454: ) is
3455: l_api_name CONSTANT varchar2(30) := 'Write_File';
3456: l_buf_len NUMBER;
3457: l_buf_written NUMBER := 0;
3471:
3472: --
3473: -- indicate error if write mode is not G_APPEND or G_OVERWRITE
3474: --
3475: if (p_write_mode <> AK_ON_OBJECTS_PUB.G_APPEND) and
3476: (p_write_mode <> AK_ON_OBJECTS_PUB.G_OVERWRITE) then
3477: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
3478: FND_MESSAGE.SET_NAME('AK','AK_INVALID_WRITE_MODE');
3479: FND_MSG_PUB.Add;
3472: --
3473: -- indicate error if write mode is not G_APPEND or G_OVERWRITE
3474: --
3475: if (p_write_mode <> AK_ON_OBJECTS_PUB.G_APPEND) and
3476: (p_write_mode <> AK_ON_OBJECTS_PUB.G_OVERWRITE) then
3477: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
3478: FND_MESSAGE.SET_NAME('AK','AK_INVALID_WRITE_MODE');
3479: FND_MSG_PUB.Add;
3480: end if;
3482: end if;
3483:
3484: -- If it's append mode, start appending to the end of the global table
3485: --
3486: if (p_write_mode = AK_ON_OBJECTS_PUB.G_APPEND) then
3487: l_tbl_index := G_LOG_BUFFER_TBL.count;
3488: else
3489: l_tbl_index := 0;
3490: end if;