69:
70: --
71:
72: BEGIN
73: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
74: FND_LOG.string(FND_LOG.level_procedure, l_full_name || '.begin', 'At the start of the API.');
75: END IF;
76:
77: -- Standard start of API savepoint
70: --
71:
72: BEGIN
73: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
74: FND_LOG.string(FND_LOG.level_procedure, l_full_name || '.begin', 'At the start of the API.');
75: END IF;
76:
77: -- Standard start of API savepoint
78: SAVEPOINT Create_Visit_Pub;
94: -- Validate the input and prepare for subsequent calls
95: -- If there are errors, an exception is raised.
96: Validate_And_Prepare_Params(p_x_visit_rec => p_x_visit_rec);
97:
98: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
99: FND_LOG.string(FND_LOG.level_statement, l_full_name, 'About to call AHL_VWP_VISITS_PVT.Create_Visit.');
100: END IF;
101: l_Visit_tbl(1) := p_x_visit_rec;
102:
95: -- If there are errors, an exception is raised.
96: Validate_And_Prepare_Params(p_x_visit_rec => p_x_visit_rec);
97:
98: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
99: FND_LOG.string(FND_LOG.level_statement, l_full_name, 'About to call AHL_VWP_VISITS_PVT.Create_Visit.');
100: END IF;
101: l_Visit_tbl(1) := p_x_visit_rec;
102:
103: AHL_VWP_VISITS_PVT.Process_Visit(p_api_version => 1.0,
109: x_return_status => x_return_status,
110: x_msg_count => x_msg_count,
111: x_msg_data => x_msg_data);
112:
113: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
114: FND_LOG.string(FND_LOG.level_statement, l_full_name, 'Returned from AHL_VWP_VISITS_PVT.Create_Visit. x_return_status = ' || x_return_status);
115: END IF;
116:
117: IF(x_return_status = FND_API.G_RET_STS_ERROR) THEN
110: x_msg_count => x_msg_count,
111: x_msg_data => x_msg_data);
112:
113: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
114: FND_LOG.string(FND_LOG.level_statement, l_full_name, 'Returned from AHL_VWP_VISITS_PVT.Create_Visit. x_return_status = ' || x_return_status);
115: END IF;
116:
117: IF(x_return_status = FND_API.G_RET_STS_ERROR) THEN
118: RAISE FND_API.G_EXC_ERROR;
121: END IF;
122:
123: p_x_visit_rec.VISIT_ID := l_Visit_tbl(1).VISIT_ID;
124:
125: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
126: FND_LOG.string(FND_LOG.level_statement, l_full_name, 'Visit created successfully with name ' ||
127: p_x_visit_rec.VISIT_NAME || ' and id ' || p_x_visit_rec.VISIT_ID);
128: END IF;
129:
122:
123: p_x_visit_rec.VISIT_ID := l_Visit_tbl(1).VISIT_ID;
124:
125: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
126: FND_LOG.string(FND_LOG.level_statement, l_full_name, 'Visit created successfully with name ' ||
127: p_x_visit_rec.VISIT_NAME || ' and id ' || p_x_visit_rec.VISIT_ID);
128: END IF;
129:
130: -- Standard check of p_commit
138: p_data => x_msg_data,
139: p_encoded => FND_API.G_FALSE
140: );
141:
142: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
143: FND_LOG.string(FND_LOG.level_procedure, l_full_name || '.end', 'End of the API');
144: END IF;
145:
146: EXCEPTION
139: p_encoded => FND_API.G_FALSE
140: );
141:
142: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
143: FND_LOG.string(FND_LOG.level_procedure, l_full_name || '.end', 'End of the API');
144: END IF;
145:
146: EXCEPTION
147: WHEN FND_API.G_EXC_ERROR THEN
201: WHERE project_id = c_proj_template_id
202: AND template_flag = 'Y';
203:
204: BEGIN
205: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
206: FND_LOG.string(FND_LOG.level_procedure, l_full_name || '.begin', 'At the start of the API');
207: END IF;
208:
209: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
202: AND template_flag = 'Y';
203:
204: BEGIN
205: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
206: FND_LOG.string(FND_LOG.level_procedure, l_full_name || '.begin', 'At the start of the API');
207: END IF;
208:
209: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
210: FND_LOG.string(FND_LOG.level_statement, l_full_name, 'Values of important attributes in p_x_visit_rec: ' ||
205: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
206: FND_LOG.string(FND_LOG.level_procedure, l_full_name || '.begin', 'At the start of the API');
207: END IF;
208:
209: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
210: FND_LOG.string(FND_LOG.level_statement, l_full_name, 'Values of important attributes in p_x_visit_rec: ' ||
211: 'operation_flag = ' || p_x_visit_rec.operation_flag ||
212: ', organization_id = ' || p_x_visit_rec.organization_id ||
213: ', department_id = ' || p_x_visit_rec.department_id ||
206: FND_LOG.string(FND_LOG.level_procedure, l_full_name || '.begin', 'At the start of the API');
207: END IF;
208:
209: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
210: FND_LOG.string(FND_LOG.level_statement, l_full_name, 'Values of important attributes in p_x_visit_rec: ' ||
211: 'operation_flag = ' || p_x_visit_rec.operation_flag ||
212: ', organization_id = ' || p_x_visit_rec.organization_id ||
213: ', department_id = ' || p_x_visit_rec.department_id ||
214: ', service_request_id = ' || p_x_visit_rec.service_request_id ||
367: END IF;
368: END IF;
369:
370: IF(NOT l_valid_flag) THEN
371: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
372: FND_LOG.string(FND_LOG.level_procedure, l_full_name || '.end', 'Faced validation errors. Exiting with execution exception.');
373: END IF;
374: RAISE FND_API.G_EXC_ERROR;
375: END IF;
368: END IF;
369:
370: IF(NOT l_valid_flag) THEN
371: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
372: FND_LOG.string(FND_LOG.level_procedure, l_full_name || '.end', 'Faced validation errors. Exiting with execution exception.');
373: END IF;
374: RAISE FND_API.G_EXC_ERROR;
375: END IF;
376:
373: END IF;
374: RAISE FND_API.G_EXC_ERROR;
375: END IF;
376:
377: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
378: FND_LOG.string(FND_LOG.level_procedure, l_full_name || '.end', 'Exiting API - Params validated.');
379: END IF;
380: END Validate_And_Prepare_Params;
381:
374: RAISE FND_API.G_EXC_ERROR;
375: END IF;
376:
377: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
378: FND_LOG.string(FND_LOG.level_procedure, l_full_name || '.end', 'Exiting API - Params validated.');
379: END IF;
380: END Validate_And_Prepare_Params;
381:
382: End AHL_VWP_VISITS_PUB;