87: END IF;
88:
89: -- Initialize message list if p_init_msg_list is set to TRUE
90: IF FND_API.To_Boolean(p_init_msg_list) THEN
91: FND_MSG_PUB.Initialize;
92: END IF;
93:
94: -- Validate the input and prepare for subsequent calls
95: -- If there are errors, an exception is raised.
132: COMMIT WORK;
133: END IF;
134:
135: -- Standard call to get message count and if count is 1, get message info
136: FND_MSG_PUB.Count_And_Get
137: ( p_count => x_msg_count,
138: p_data => x_msg_data,
139: p_encoded => FND_API.G_FALSE
140: );
146: EXCEPTION
147: WHEN FND_API.G_EXC_ERROR THEN
148: Rollback to Create_Visit_Pub;
149: x_return_status := FND_API.G_RET_STS_ERROR;
150: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
151: p_data => x_msg_data,
152: p_encoded => fnd_api.g_false);
153:
154: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
153:
154: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
155: Rollback to Create_Visit_Pub;
156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
157: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
158: p_data => x_msg_data,
159: p_encoded => fnd_api.g_false);
160:
161: WHEN OTHERS THEN
160:
161: WHEN OTHERS THEN
162: Rollback to Create_Visit_Pub;
163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
164: FND_MSG_PUB.Add_Exc_Msg( p_pkg_name => G_PKG_NAME,
165: p_procedure_name => l_api_name,
166: p_error_text => SQLERRM);
167: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
168: p_data => x_msg_data,
163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
164: FND_MSG_PUB.Add_Exc_Msg( p_pkg_name => G_PKG_NAME,
165: p_procedure_name => l_api_name,
166: p_error_text => SQLERRM);
167: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
168: p_data => x_msg_data,
169: p_encoded => FND_API.G_FALSE);
170:
171: END Create_Visit;
258: END IF;
259: IF (p_x_visit_rec.operation_flag <> 'I' AND p_x_visit_rec.operation_flag <> 'i') THEN
260: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_INVALID_DML_REC');
261: FND_MESSAGE.Set_Token('FIELD', p_x_visit_rec.operation_flag);
262: FND_MSG_PUB.ADD;
263: l_valid_flag := false;
264: END IF;
265:
266: -- VISIT_NAME mandatory validation done in PVT package methods
279:
280: IF (NVL(l_return_status,'x') <> 'S') THEN
281: Fnd_Message.SET_NAME('AHL', 'AHL_APPR_ORG_NT_EXISTS');
282: FND_MESSAGE.Set_Token('ORGID', p_x_visit_rec.organization_id);
283: Fnd_Msg_Pub.ADD;
284: l_valid_flag := false;
285: END IF;
286: END IF;
287:
300: x_error_msg_code => l_msg_data);
301:
302: IF (NVL(l_return_status,'x') <> 'S') THEN
303: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_SERVICE_REQ_NOT_EXISTS');
304: Fnd_Msg_Pub.ADD;
305: l_valid_flag := false;
306: END IF;
307: END IF;
308:
320: x_return_status => l_return_status);
321:
322: IF (NVL(l_return_status,'x') <> 'S') THEN
323: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_TYPE_CODE_NOT_EXISTS');
324: Fnd_Msg_Pub.ADD;
325: l_valid_flag := false;
326: END IF;
327: END IF;
328:
361: x_return_status => l_return_status);
362:
363: IF (NVL(l_return_status,'x') <> 'S') THEN
364: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_PRI_NOT_EXISTS');
365: Fnd_Msg_Pub.ADD;
366: l_valid_flag := false;
367: END IF;
368: END IF;
369: