[Home] [Help]
61:
62: PROCEDURE Process_Doc_Association
63: (
64: p_api_version IN NUMBER := 1.0,
65: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
66: p_commit IN VARCHAR2 := FND_API.G_FALSE,
67: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
68: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
69: p_default IN VARCHAR2 := FND_API.G_FALSE,
62: PROCEDURE Process_Doc_Association
63: (
64: p_api_version IN NUMBER := 1.0,
65: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
66: p_commit IN VARCHAR2 := FND_API.G_FALSE,
67: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
68: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
69: p_default IN VARCHAR2 := FND_API.G_FALSE,
70: p_module_type IN VARCHAR2,
63: (
64: p_api_version IN NUMBER := 1.0,
65: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
66: p_commit IN VARCHAR2 := FND_API.G_FALSE,
67: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
68: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
69: p_default IN VARCHAR2 := FND_API.G_FALSE,
70: p_module_type IN VARCHAR2,
71: x_return_status OUT NOCOPY VARCHAR2,
64: p_api_version IN NUMBER := 1.0,
65: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
66: p_commit IN VARCHAR2 := FND_API.G_FALSE,
67: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
68: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
69: p_default IN VARCHAR2 := FND_API.G_FALSE,
70: p_module_type IN VARCHAR2,
71: x_return_status OUT NOCOPY VARCHAR2,
72: x_msg_count OUT NOCOPY NUMBER,
65: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
66: p_commit IN VARCHAR2 := FND_API.G_FALSE,
67: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
68: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
69: p_default IN VARCHAR2 := FND_API.G_FALSE,
70: p_module_type IN VARCHAR2,
71: x_return_status OUT NOCOPY VARCHAR2,
72: x_msg_count OUT NOCOPY NUMBER,
73: x_msg_data OUT NOCOPY VARCHAR2,
99: );
100: END IF;
101:
102: -- Initialize API return status to success
103: x_return_status:=FND_API.G_RET_STS_SUCCESS ;
104:
105: -- Standard Start of API savepoint
106: SAVEPOINT process_association_pvt;
107:
105: -- Standard Start of API savepoint
106: SAVEPOINT process_association_pvt;
107:
108: -- Standard call to check for call compatibility.
109: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
110: p_api_version,
111: l_api_name,G_PKG_NAME)
112: THEN
113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
109: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
110: p_api_version,
111: l_api_name,G_PKG_NAME)
112: THEN
113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
114: END IF;
115:
116: -- Initialize message list if p_init_msg_list is set to TRUE.
117: IF FND_API.to_boolean(p_init_msg_list)
113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
114: END IF;
115:
116: -- Initialize message list if p_init_msg_list is set to TRUE.
117: IF FND_API.to_boolean(p_init_msg_list)
118: THEN
119: FND_MSG_PUB.initialize;
120: END IF;
121:
131: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
132: 'Error -- Application usage code is null'
133: );
134: END IF;
135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
136: END IF;
137:
138: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
139: fnd_log.string
154: p_lookup_type => 'AHL_OBJECT_TYPE',
155: p_lookup_meaning => p_x_association_tbl(i).object_type_desc,
156: p_x_lookup_code => p_x_association_tbl(i).object_type_code
157: );
158: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
159: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
160: fnd_log.string
161: (
162: fnd_log.level_statement,
163: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
164: 'Error -- Invalid lookup specified'
165: );
166: END IF;
167: RAISE FND_API.G_EXC_ERROR;
168: END IF;
169:
170: IF p_x_association_tbl(i).mr_header_id IS NULL THEN
171: -- Function to convert mr_title,mr_version_number to id
174: p_mr_version_number => p_x_association_tbl(i).mr_version_number,
175: x_mr_header_id => p_x_association_tbl(i).mr_header_id,
176: x_return_status => x_return_status
177: );
178: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
179: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
180: fnd_log.string
181: (
182: fnd_log.level_error,
183: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
184: 'Invalid MR Title, Version Number provided'
185: );
186: END IF;
187: RAISE FND_API.G_EXC_ERROR;
188: END IF;
189: END IF;
190:
191: --App usage code related code
189: END IF;
190:
191: --App usage code related code
192: IF p_x_association_tbl(i).mr_header_id IS NOT NULL OR
193: p_x_association_tbl(i).mr_header_id <> FND_API.G_MISS_NUM
194: THEN
195: OPEN mr_details_csr_type(p_x_association_tbl(i).mr_header_id);
196:
197: FETCH mr_details_csr_type into l_mr_rec;
207: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
208: 'Invalid MR Info..'
209: );
210: END IF;
211: RAISE FND_API.G_EXC_ERROR;
212: ELSE
213: -- Preventive Maintenance Code
214: IF G_APPLN_USAGE='PM'
215: THEN
225: 'Application usage code PM is invalid for MR with program type'||
226: l_mr_rec.type_code
227: );
228: END IF;
229: RAISE FND_API.G_EXC_ERROR;
230: END IF;
231: END IF;
232: END IF;
233: CLOSE mr_details_csr_type;
265: AHL_DI_ASSO_DOC_GEN_PUB.PROCESS_ASSOCIATION
266: (
267: p_api_version => p_api_version ,
268: p_init_msg_list => p_init_msg_list ,
269: p_commit => FND_API.G_FALSE ,
270: p_validation_level => p_validation_level ,
271: p_validate_only => p_validate_only ,
272: p_module_type => p_module_type ,
273: x_return_status => x_return_status ,
285: );
286: END IF;
287:
288: -- If any severe error occurs, then, abort API.
289: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
290: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
291: fnd_log.string
292: (
293: fnd_log.level_statement,
294: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
295: 'Invalid MR Title, Version Number provided'
296: );
297: END IF;
298: RAISE FND_API.G_EXC_ERROR;
299: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
300: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
301: fnd_log.string
302: (
295: 'Invalid MR Title, Version Number provided'
296: );
297: END IF;
298: RAISE FND_API.G_EXC_ERROR;
299: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
300: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
301: fnd_log.string
302: (
303: fnd_log.level_statement,
304: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
305: 'Invalid MR Title, Version Number provided'
306: );
307: END IF;
308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
309: END IF;
310:
311: -- Standard check for p_commit
312: IF FND_API.To_Boolean (p_commit)
308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
309: END IF;
310:
311: -- Standard check for p_commit
312: IF FND_API.To_Boolean (p_commit)
313: THEN
314: COMMIT;
315: END IF;
316:
323: );
324: END IF;
325:
326: EXCEPTION
327: WHEN FND_API.G_EXC_ERROR THEN
328: x_return_status := FND_API.G_RET_STS_ERROR;
329: Rollback to process_association_pvt;
330: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
331: p_data => x_msg_data,
324: END IF;
325:
326: EXCEPTION
327: WHEN FND_API.G_EXC_ERROR THEN
328: x_return_status := FND_API.G_RET_STS_ERROR;
329: Rollback to process_association_pvt;
330: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
331: p_data => x_msg_data,
332: p_encoded => fnd_api.g_false);
328: x_return_status := FND_API.G_RET_STS_ERROR;
329: Rollback to process_association_pvt;
330: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
331: p_data => x_msg_data,
332: p_encoded => fnd_api.g_false);
333: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
334: fnd_log.string
335: (
336: fnd_log.level_statement,
334: fnd_log.string
335: (
336: fnd_log.level_statement,
337: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
338: 'FND_API.G_EXC_ERROR!!'
339: );
340: END IF;
341:
342:
339: );
340: END IF;
341:
342:
343: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
345: Rollback to process_association_pvt;
346: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
347: p_data => x_msg_data,
340: END IF;
341:
342:
343: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
345: Rollback to process_association_pvt;
346: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
347: p_data => x_msg_data,
348: p_encoded => fnd_api.g_false);
344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
345: Rollback to process_association_pvt;
346: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
347: p_data => x_msg_data,
348: p_encoded => fnd_api.g_false);
349: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
350: fnd_log.string
351: (
352: fnd_log.level_statement,
350: fnd_log.string
351: (
352: fnd_log.level_statement,
353: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
354: 'FND_API.G_EXC_UNEXPECTED_ERROR!!'
355: );
356: END IF;
357:
358: WHEN OTHERS THEN
355: );
356: END IF;
357:
358: WHEN OTHERS THEN
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
360: Rollback to process_association_pvt;
361: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
362: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
363: p_procedure_name => 'Process_Doc_Association',
364: p_error_text => SQLERRM);
365: END IF;
366: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
367: p_data => x_msg_data,
368: p_encoded => fnd_api.g_false);
369: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
370: fnd_log.string
371: (
372: fnd_log.level_statement,