19: l_table_index number;
20: l_session_id number := -1;
21: begin
22:
23: --FND_MSG_PUB.G_MSG_LEVEL_THRESHOLD := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
24: FND_MSG_PUB.G_MSG_LEVEL_THRESHOLD := FND_MSG_PUB.G_MSG_LVL_ERROR;
25:
26: FND_PROGRAM.set_session_mode('seed_data');
27:
20: l_session_id number := -1;
21: begin
22:
23: --FND_MSG_PUB.G_MSG_LEVEL_THRESHOLD := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
24: FND_MSG_PUB.G_MSG_LEVEL_THRESHOLD := FND_MSG_PUB.G_MSG_LVL_ERROR;
25:
26: FND_PROGRAM.set_session_mode('seed_data');
27:
28: -- set current process mode to UPLOAD
125:
126: --dbms_output.put_line('Return status is: ' || l_return_status);
127: --dbms_output.put_line('Return message: ' || l_msg_data);
128:
129: if FND_MSG_PUB.Count_Msg > 0 then
130: FND_MSG_PUB.Reset;
131: --dbms_output.put_line('Messages: ');
132: for i in 1 .. FND_MSG_PUB.Count_Msg loop
133: l_buffer_tbl(i + l_index) := FND_MSG_PUB.GET(p_encoded=>FND_API.G_FALSE);
126: --dbms_output.put_line('Return status is: ' || l_return_status);
127: --dbms_output.put_line('Return message: ' || l_msg_data);
128:
129: if FND_MSG_PUB.Count_Msg > 0 then
130: FND_MSG_PUB.Reset;
131: --dbms_output.put_line('Messages: ');
132: for i in 1 .. FND_MSG_PUB.Count_Msg loop
133: l_buffer_tbl(i + l_index) := FND_MSG_PUB.GET(p_encoded=>FND_API.G_FALSE);
134: --dbms_output.put_line(to_char(i) || substr(l_buffer_tbl(i),1,256) );
128:
129: if FND_MSG_PUB.Count_Msg > 0 then
130: FND_MSG_PUB.Reset;
131: --dbms_output.put_line('Messages: ');
132: for i in 1 .. FND_MSG_PUB.Count_Msg loop
133: l_buffer_tbl(i + l_index) := FND_MSG_PUB.GET(p_encoded=>FND_API.G_FALSE);
134: --dbms_output.put_line(to_char(i) || substr(l_buffer_tbl(i),1,256) );
135: end loop;
136: FND_MSG_PUB.Initialize;
129: if FND_MSG_PUB.Count_Msg > 0 then
130: FND_MSG_PUB.Reset;
131: --dbms_output.put_line('Messages: ');
132: for i in 1 .. FND_MSG_PUB.Count_Msg loop
133: l_buffer_tbl(i + l_index) := FND_MSG_PUB.GET(p_encoded=>FND_API.G_FALSE);
134: --dbms_output.put_line(to_char(i) || substr(l_buffer_tbl(i),1,256) );
135: end loop;
136: FND_MSG_PUB.Initialize;
137: end if;
132: for i in 1 .. FND_MSG_PUB.Count_Msg loop
133: l_buffer_tbl(i + l_index) := FND_MSG_PUB.GET(p_encoded=>FND_API.G_FALSE);
134: --dbms_output.put_line(to_char(i) || substr(l_buffer_tbl(i),1,256) );
135: end loop;
136: FND_MSG_PUB.Initialize;
137: end if;
138: --
139: -- Add ending to log file
140: --
162: WHEN FND_API.G_EXC_ERROR THEN
163: p_return_status := FND_API.G_RET_STS_ERROR;
164: WHEN OTHERS THEN
165: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
166: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
167: SUBSTR (SQLERRM, 1, 240) );
168: FND_MSG_PUB.Add;
169: if FND_MSG_PUB.Count_Msg > 0 then
170: FND_MSG_PUB.Reset;
164: WHEN OTHERS THEN
165: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
166: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
167: SUBSTR (SQLERRM, 1, 240) );
168: FND_MSG_PUB.Add;
169: if FND_MSG_PUB.Count_Msg > 0 then
170: FND_MSG_PUB.Reset;
171: if ( l_index is null ) then l_index := 0; end if;
172: for i in 1 .. FND_MSG_PUB.Count_Msg loop
165: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
166: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
167: SUBSTR (SQLERRM, 1, 240) );
168: FND_MSG_PUB.Add;
169: if FND_MSG_PUB.Count_Msg > 0 then
170: FND_MSG_PUB.Reset;
171: if ( l_index is null ) then l_index := 0; end if;
172: for i in 1 .. FND_MSG_PUB.Count_Msg loop
173: l_buffer_tbl(i + l_index) := FND_MSG_PUB.GET(p_encoded=>FND_API.G_FALSE);
166: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
167: SUBSTR (SQLERRM, 1, 240) );
168: FND_MSG_PUB.Add;
169: if FND_MSG_PUB.Count_Msg > 0 then
170: FND_MSG_PUB.Reset;
171: if ( l_index is null ) then l_index := 0; end if;
172: for i in 1 .. FND_MSG_PUB.Count_Msg loop
173: l_buffer_tbl(i + l_index) := FND_MSG_PUB.GET(p_encoded=>FND_API.G_FALSE);
174: --dbms_output.put_line(to_char(i) || substr(l_buffer_tbl(i),1,256) );
168: FND_MSG_PUB.Add;
169: if FND_MSG_PUB.Count_Msg > 0 then
170: FND_MSG_PUB.Reset;
171: if ( l_index is null ) then l_index := 0; end if;
172: for i in 1 .. FND_MSG_PUB.Count_Msg loop
173: l_buffer_tbl(i + l_index) := FND_MSG_PUB.GET(p_encoded=>FND_API.G_FALSE);
174: --dbms_output.put_line(to_char(i) || substr(l_buffer_tbl(i),1,256) );
175: end loop;
176: FND_MSG_PUB.Initialize;
169: if FND_MSG_PUB.Count_Msg > 0 then
170: FND_MSG_PUB.Reset;
171: if ( l_index is null ) then l_index := 0; end if;
172: for i in 1 .. FND_MSG_PUB.Count_Msg loop
173: l_buffer_tbl(i + l_index) := FND_MSG_PUB.GET(p_encoded=>FND_API.G_FALSE);
174: --dbms_output.put_line(to_char(i) || substr(l_buffer_tbl(i),1,256) );
175: end loop;
176: FND_MSG_PUB.Initialize;
177: end if;
172: for i in 1 .. FND_MSG_PUB.Count_Msg loop
173: l_buffer_tbl(i + l_index) := FND_MSG_PUB.GET(p_encoded=>FND_API.G_FALSE);
174: --dbms_output.put_line(to_char(i) || substr(l_buffer_tbl(i),1,256) );
175: end loop;
176: FND_MSG_PUB.Initialize;
177: end if;
178: --
179: -- Add ending to log file
180: --