7:
8: ------------------------------------------------------------------------------------
9: -- Common variables
10: ------------------------------------------------------------------------------------
11: l_log_current_level NUMBER := FND_LOG.g_current_runtime_level;
12: l_log_statement NUMBER := FND_LOG.level_statement;
13: l_log_procedure NUMBER := FND_LOG.level_procedure;
14: l_log_error NUMBER := FND_LOG.level_error;
15: l_log_exception NUMBER := FND_LOG.level_exception;
8: ------------------------------------------------------------------------------------
9: -- Common variables
10: ------------------------------------------------------------------------------------
11: l_log_current_level NUMBER := FND_LOG.g_current_runtime_level;
12: l_log_statement NUMBER := FND_LOG.level_statement;
13: l_log_procedure NUMBER := FND_LOG.level_procedure;
14: l_log_error NUMBER := FND_LOG.level_error;
15: l_log_exception NUMBER := FND_LOG.level_exception;
16: l_log_unexpected NUMBER := FND_LOG.level_unexpected;
9: -- Common variables
10: ------------------------------------------------------------------------------------
11: l_log_current_level NUMBER := FND_LOG.g_current_runtime_level;
12: l_log_statement NUMBER := FND_LOG.level_statement;
13: l_log_procedure NUMBER := FND_LOG.level_procedure;
14: l_log_error NUMBER := FND_LOG.level_error;
15: l_log_exception NUMBER := FND_LOG.level_exception;
16: l_log_unexpected NUMBER := FND_LOG.level_unexpected;
17: ------------------------------------------------------------------------------------
10: ------------------------------------------------------------------------------------
11: l_log_current_level NUMBER := FND_LOG.g_current_runtime_level;
12: l_log_statement NUMBER := FND_LOG.level_statement;
13: l_log_procedure NUMBER := FND_LOG.level_procedure;
14: l_log_error NUMBER := FND_LOG.level_error;
15: l_log_exception NUMBER := FND_LOG.level_exception;
16: l_log_unexpected NUMBER := FND_LOG.level_unexpected;
17: ------------------------------------------------------------------------------------
18:
11: l_log_current_level NUMBER := FND_LOG.g_current_runtime_level;
12: l_log_statement NUMBER := FND_LOG.level_statement;
13: l_log_procedure NUMBER := FND_LOG.level_procedure;
14: l_log_error NUMBER := FND_LOG.level_error;
15: l_log_exception NUMBER := FND_LOG.level_exception;
16: l_log_unexpected NUMBER := FND_LOG.level_unexpected;
17: ------------------------------------------------------------------------------------
18:
19: ------------------------------------------------------------------------------------
12: l_log_statement NUMBER := FND_LOG.level_statement;
13: l_log_procedure NUMBER := FND_LOG.level_procedure;
14: l_log_error NUMBER := FND_LOG.level_error;
15: l_log_exception NUMBER := FND_LOG.level_exception;
16: l_log_unexpected NUMBER := FND_LOG.level_unexpected;
17: ------------------------------------------------------------------------------------
18:
19: ------------------------------------------------------------------------------------
20: -- Start of Comments
78: --
79:
80: BEGIN
81: IF (l_log_procedure >= l_log_current_level) THEN
82: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'At the start of the API');
83: END IF;
84:
85: IF (l_log_statement >= l_log_current_level) THEN
86: FND_LOG.string(l_log_statement, l_full_name,' p_instance_id = '||p_instance_id||
82: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'At the start of the API');
83: END IF;
84:
85: IF (l_log_statement >= l_log_current_level) THEN
86: FND_LOG.string(l_log_statement, l_full_name,' p_instance_id = '||p_instance_id||
87: ', p_org_id = '||p_org_id);
88: END IF;
89:
90: -- Get the component visit ids for the given org
91: OPEN get_comp_visit_csr (p_org_id);
92: FETCH get_comp_visit_csr BULK COLLECT INTO l_visit_id_tbl;
93: CLOSE get_comp_visit_csr;
94: IF (l_log_statement >= l_log_current_level) THEN
95: FND_LOG.string(l_log_statement, l_full_name,' l_visit_id_tbl.COUNT = '||l_visit_id_tbl.COUNT);
96: END IF;
97:
98: IF (l_visit_id_tbl.COUNT > 0) THEN
99: FOR i IN l_visit_id_tbl.FIRST..l_visit_id_tbl.LAST LOOP
107: END LOOP;
108: END IF;
109:
110: IF (l_log_statement >= l_log_current_level) THEN
111: FND_LOG.string(l_log_statement, l_full_name,' l_ret_val = '||l_ret_val);
112: END IF;
113:
114: IF (l_log_procedure >= l_log_current_level) THEN
115: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'At the end of the API');
111: FND_LOG.string(l_log_statement, l_full_name,' l_ret_val = '||l_ret_val);
112: END IF;
113:
114: IF (l_log_procedure >= l_log_current_level) THEN
115: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'At the end of the API');
116: END IF;
117:
118: RETURN l_ret_val;
119: END Get_Rpr_Batch_For_Inst;
166: --
167:
168: BEGIN
169: IF (l_log_procedure >= l_log_current_level) THEN
170: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'At the start of the API');
171: END IF;
172:
173: IF (l_log_statement >= l_log_current_level) THEN
174: FND_LOG.string(l_log_statement, l_full_name,' p_instance_id = '||p_instance_id||
170: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'At the start of the API');
171: END IF;
172:
173: IF (l_log_statement >= l_log_current_level) THEN
174: FND_LOG.string(l_log_statement, l_full_name,' p_instance_id = '||p_instance_id||
175: ', p_org_id = '||p_org_id);
176: END IF;
177:
178: -- Validate instance location
198: END IF; -- validate_inst_loc_csr
199: CLOSE validate_inst_loc_csr;
200:
201: IF (l_log_statement >= l_log_current_level) THEN
202: FND_LOG.string(l_log_statement, l_full_name,' l_ret_val = '||l_ret_val);
203: END IF;
204:
205: IF (l_log_procedure >= l_log_current_level) THEN
206: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'At the end of the API');
202: FND_LOG.string(l_log_statement, l_full_name,' l_ret_val = '||l_ret_val);
203: END IF;
204:
205: IF (l_log_procedure >= l_log_current_level) THEN
206: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'At the end of the API');
207: END IF;
208:
209: RETURN l_ret_val;
210: END Get_Rpr_Status_For_Inst;
280: --
281:
282: BEGIN
283: IF (l_log_procedure >= l_log_current_level) THEN
284: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'At the start of the API');
285: END IF;
286:
287: IF (l_log_statement >= l_log_current_level) THEN
288: FND_LOG.string(l_log_statement, l_full_name,' p_org_id = '||p_org_id);
284: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'At the start of the API');
285: END IF;
286:
287: IF (l_log_statement >= l_log_current_level) THEN
288: FND_LOG.string(l_log_statement, l_full_name,' p_org_id = '||p_org_id);
289: END IF;
290:
291: -- Get the Open Component Visit for the given org
292: OPEN get_comp_visit_csr (p_org_id);
316: l_visit_rec.firmed_flag;
317: CLOSE get_visit_details_csr;
318:
319: IF (l_log_statement >= l_log_current_level) THEN
320: FND_LOG.string(l_log_statement, l_full_name,' Invoking AHL_VWP_VISITS_PVT.Validate_Component_Visit API for visit_id = ' || l_ret_val);
321: END IF;
322:
323: AHL_VWP_VISITS_PVT.Validate_Component_Visit
324: (
333: x_msg_data => l_msg_data
334: );
335:
336: IF (l_log_statement >= l_log_current_level) THEN
337: FND_LOG.string(l_log_statement, l_full_name,' After call to AHL_VWP_VISITS_PVT.Validate_Component_Visit API, Return Status = ' || l_return_status);
338: END IF;
339:
340: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
341: IF (l_log_statement >= l_log_current_level) THEN
338: END IF;
339:
340: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
341: IF (l_log_statement >= l_log_current_level) THEN
342: FND_LOG.string(l_log_statement, l_full_name,' Check for mandatory attributes for Open Component Visit ' || l_ret_val || ' failed.');
343: END IF;
344:
345: l_ret_val := null;
346: END IF;
347:
348: END IF; -- if l_ret_val is not null and l_status_code IN ('DRAFT', 'PLANNING')
349:
350: IF (l_log_statement >= l_log_current_level) THEN
351: FND_LOG.string(l_log_statement, l_full_name,' l_ret_val = '||l_ret_val);
352: END IF;
353:
354: IF (l_log_procedure >= l_log_current_level) THEN
355: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'At the end of the API');
351: FND_LOG.string(l_log_statement, l_full_name,' l_ret_val = '||l_ret_val);
352: END IF;
353:
354: IF (l_log_procedure >= l_log_current_level) THEN
355: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'At the end of the API');
356: END IF;
357:
358: RETURN l_ret_val;
359: END Get_Comp_Visit_For_Org;
396: --
397:
398: BEGIN
399: IF (l_log_procedure >= l_log_current_level) THEN
400: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'At the start of the API');
401: END IF;
402:
403: IF (l_log_statement >= l_log_current_level) THEN
404: FND_LOG.string(l_log_statement, l_full_name, ' p_visit_id = ' || p_visit_id);
400: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'At the start of the API');
401: END IF;
402:
403: IF (l_log_statement >= l_log_current_level) THEN
404: FND_LOG.string(l_log_statement, l_full_name, ' p_visit_id = ' || p_visit_id);
405: END IF;
406:
407: -- Check whether the given visit is a Component Visit
408: OPEN chk_comp_visit_csr (p_visit_id);
417: l_ret_val := 'N';
418: END IF;
419:
420: IF (l_log_statement >= l_log_current_level) THEN
421: FND_LOG.string(l_log_statement, l_full_name, ' l_ret_val = ' || l_ret_val);
422: END IF;
423:
424: IF (l_log_procedure >= l_log_current_level) THEN
425: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'At the end of the API');
421: FND_LOG.string(l_log_statement, l_full_name, ' l_ret_val = ' || l_ret_val);
422: END IF;
423:
424: IF (l_log_procedure >= l_log_current_level) THEN
425: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'At the end of the API');
426: END IF;
427:
428: RETURN l_ret_val;
429: END Is_Comp_Visit;