13: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
14:
15: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OKC_XPRT_REP_INT_PVT';
16: G_MODULE_NAME CONSTANT VARCHAR2(250) := 'OKC.PLSQL.'||G_PKG_NAME||'.';
17: G_STMT_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
18: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
19:
20: --Repository Specific Constants
21:
130: l_rep_header_variables c_get_repository_variables%ROWTYPE;
131:
132: BEGIN
133:
134: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
135: l_debug := true;
136: END IF;
137:
138: x_return_status := FND_API.G_RET_STS_SUCCESS;
138: x_return_status := FND_API.G_RET_STS_SUCCESS;
139:
140: l_package_procedure := G_PKG_NAME || '.' || l_api_name;
141:
142: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
143: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'10: Entered ' || l_package_procedure);
144: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'20: p_doc_type: ' || p_doc_type);
145: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'30: p_doc_id: ' || p_doc_id);
146: END IF;
139:
140: l_package_procedure := G_PKG_NAME || '.' || l_api_name;
141:
142: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
143: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'10: Entered ' || l_package_procedure);
144: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'20: p_doc_type: ' || p_doc_type);
145: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'30: p_doc_id: ' || p_doc_id);
146: END IF;
147:
140: l_package_procedure := G_PKG_NAME || '.' || l_api_name;
141:
142: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
143: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'10: Entered ' || l_package_procedure);
144: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'20: p_doc_type: ' || p_doc_type);
145: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'30: p_doc_id: ' || p_doc_id);
146: END IF;
147:
148: --
141:
142: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
143: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'10: Entered ' || l_package_procedure);
144: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'20: p_doc_type: ' || p_doc_type);
145: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'30: p_doc_id: ' || p_doc_id);
146: END IF;
147:
148: --
149: -- Standard call to check for call compatibility.
169:
170: OPEN c_get_repository_variables;
171: FETCH c_get_repository_variables INTO l_rep_header_variables;
172:
173: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
174: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'70: Contract Administrator = '||l_rep_header_variables.contract_owner );
175: END IF;
176:
177: CLOSE c_get_repository_variables;
170: OPEN c_get_repository_variables;
171: FETCH c_get_repository_variables INTO l_rep_header_variables;
172:
173: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
174: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'70: Contract Administrator = '||l_rep_header_variables.contract_owner );
175: END IF;
176:
177: CLOSE c_get_repository_variables;
178:
272: ELSIF p_sys_var_value_tbl(i).variable_code = G_S_REP_REF_DOC_NUMBER THEN
273: p_sys_var_value_tbl(i).variable_value_id := l_rep_header_variables.reference_document_number;
274:
275:
276: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
277: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'480: p_sys_var_value_tbl('||i||').variable_code : '||p_sys_var_value_tbl(i).variable_code);
278: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'485: p_sys_var_value_tbl('||i||').variable_value_id : '||p_sys_var_value_tbl(i).variable_value_id);
279:
280: END IF;
273: p_sys_var_value_tbl(i).variable_value_id := l_rep_header_variables.reference_document_number;
274:
275:
276: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
277: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'480: p_sys_var_value_tbl('||i||').variable_code : '||p_sys_var_value_tbl(i).variable_code);
278: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'485: p_sys_var_value_tbl('||i||').variable_value_id : '||p_sys_var_value_tbl(i).variable_value_id);
279:
280: END IF;
281:
274:
275:
276: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
277: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'480: p_sys_var_value_tbl('||i||').variable_code : '||p_sys_var_value_tbl(i).variable_code);
278: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'485: p_sys_var_value_tbl('||i||').variable_value_id : '||p_sys_var_value_tbl(i).variable_value_id);
279:
280: END IF;
281:
282: END IF;
284: END LOOP;
285:
286: END IF;
287:
288: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
289: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'490: End of '||l_package_procedure||' for repository header level variables, x_return_status ' || x_return_status);
290: END IF;
291:
292: EXCEPTION
285:
286: END IF;
287:
288: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
289: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'490: End of '||l_package_procedure||' for repository header level variables, x_return_status ' || x_return_status);
290: END IF;
291:
292: EXCEPTION
293:
297: END IF;
298:
299: x_return_status := FND_API.G_RET_STS_ERROR ;
300:
301: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
302: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'500: '||l_package_procedure||' In the FND_API.G_EXC_ERROR section');
303: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'510: x_return_status = '||x_return_status);
304: END IF;
305:
298:
299: x_return_status := FND_API.G_RET_STS_ERROR ;
300:
301: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
302: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'500: '||l_package_procedure||' In the FND_API.G_EXC_ERROR section');
303: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'510: x_return_status = '||x_return_status);
304: END IF;
305:
306: FND_MSG_PUB.Count_And_Get(
299: x_return_status := FND_API.G_RET_STS_ERROR ;
300:
301: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
302: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'500: '||l_package_procedure||' In the FND_API.G_EXC_ERROR section');
303: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'510: x_return_status = '||x_return_status);
304: END IF;
305:
306: FND_MSG_PUB.Count_And_Get(
307: p_count => x_msg_count,
314: END IF;
315:
316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
317:
318: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
319: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'520: '||l_package_procedure||' In the FND_API.G_RET_STS_UNEXP_ERROR section');
320: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'530: x_return_status = '||x_return_status);
321: END IF;
322:
315:
316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
317:
318: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
319: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'520: '||l_package_procedure||' In the FND_API.G_RET_STS_UNEXP_ERROR section');
320: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'530: x_return_status = '||x_return_status);
321: END IF;
322:
323: FND_MSG_PUB.Count_And_Get(
316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
317:
318: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
319: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'520: '||l_package_procedure||' In the FND_API.G_RET_STS_UNEXP_ERROR section');
320: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'530: x_return_status = '||x_return_status);
321: END IF;
322:
323: FND_MSG_PUB.Count_And_Get(
324: p_count => x_msg_count,
330: CLOSE c_get_repository_variables;
331: END IF;
332:
333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
334: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
335: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'540: '||l_package_procedure||' In the OTHERS section');
336: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'550: x_return_status = '||x_return_status);
337: END IF;
338:
331: END IF;
332:
333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
334: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
335: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'540: '||l_package_procedure||' In the OTHERS section');
336: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'550: x_return_status = '||x_return_status);
337: END IF;
338:
339: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
332:
333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
334: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
335: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'540: '||l_package_procedure||' In the OTHERS section');
336: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'550: x_return_status = '||x_return_status);
337: END IF;
338:
339: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
340: FND_MSG_PUB.Add_Exc_Msg(