23: IF get_user_id_csr%NOTFOUND THEN
24: FND_MESSAGE.set_name('AHL','AHL_PRD_INV_BPEL_USR');
25: FND_MESSAGE.SET_TOKEN('USER_NAME',p_user_id);
26: FND_MSG_PUB.ADD;
27: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
28: END IF;
29: CLOSE get_user_id_csr;
30:
31: FND_GLOBAL.apps_initialize(l_user_id,null,867);
40: mo_global.init('AHL');
41:
42: END IF;
43: COMMIT;
44: return Fnd_Api.G_RET_STS_SUCCESS;
45:
46: EXCEPTION
47: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
48: ROLLBACK;
43: COMMIT;
44: return Fnd_Api.G_RET_STS_SUCCESS;
45:
46: EXCEPTION
47: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
48: ROLLBACK;
49: return FND_API.G_RET_STS_UNEXP_ERROR;
50: WHEN OTHERS THEN
51: ROLLBACK;
45:
46: EXCEPTION
47: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
48: ROLLBACK;
49: return FND_API.G_RET_STS_UNEXP_ERROR;
50: WHEN OTHERS THEN
51: ROLLBACK;
52: return FND_API.G_RET_STS_UNEXP_ERROR;
53:
48: ROLLBACK;
49: return FND_API.G_RET_STS_UNEXP_ERROR;
50: WHEN OTHERS THEN
51: ROLLBACK;
52: return FND_API.G_RET_STS_UNEXP_ERROR;
53:
54: END init_user_and_role;
55:
56: FUNCTION get_workorder_id(p_WorkorderNumber IN VARCHAR2) RETURN NUMBER;
67:
68: PROCEDURE get_workorder_details
69: (
70: p_api_version IN NUMBER := 1.0,
71: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
72: p_commit IN VARCHAR2 := FND_API.G_FALSE,
73: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
74: p_default IN VARCHAR2 := FND_API.G_FALSE,
75: p_module_type IN VARCHAR2,
68: PROCEDURE get_workorder_details
69: (
70: p_api_version IN NUMBER := 1.0,
71: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
72: p_commit IN VARCHAR2 := FND_API.G_FALSE,
73: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
74: p_default IN VARCHAR2 := FND_API.G_FALSE,
75: p_module_type IN VARCHAR2,
76: p_userid IN VARCHAR2 := NULL,
69: (
70: p_api_version IN NUMBER := 1.0,
71: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
72: p_commit IN VARCHAR2 := FND_API.G_FALSE,
73: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
74: p_default IN VARCHAR2 := FND_API.G_FALSE,
75: p_module_type IN VARCHAR2,
76: p_userid IN VARCHAR2 := NULL,
77: p_WorkorderId IN NUMBER,
70: p_api_version IN NUMBER := 1.0,
71: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
72: p_commit IN VARCHAR2 := FND_API.G_FALSE,
73: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
74: p_default IN VARCHAR2 := FND_API.G_FALSE,
75: p_module_type IN VARCHAR2,
76: p_userid IN VARCHAR2 := NULL,
77: p_WorkorderId IN NUMBER,
78: p_WorkorderNumber IN VARCHAR2,
153:
154:
155: BEGIN
156: x_return_status := init_user_and_role(p_userid);
157: IF(x_return_status <> Fnd_Api.G_RET_STS_SUCCESS)THEN
158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
159: END IF;
160:
161: -- Standard call to check for call compatibility
154:
155: BEGIN
156: x_return_status := init_user_and_role(p_userid);
157: IF(x_return_status <> Fnd_Api.G_RET_STS_SUCCESS)THEN
158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
159: END IF;
160:
161: -- Standard call to check for call compatibility
162: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
159: END IF;
160:
161: -- Standard call to check for call compatibility
162: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
164: END IF;
165:
166: IF FND_API.To_Boolean(p_init_msg_list) THEN
159: END IF;
160:
161: -- Standard call to check for call compatibility
162: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
164: END IF;
165:
166: IF FND_API.To_Boolean(p_init_msg_list) THEN
167: FND_MSG_PUB.Initialize;
162: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
164: END IF;
165:
166: IF FND_API.To_Boolean(p_init_msg_list) THEN
167: FND_MSG_PUB.Initialize;
168: END IF;
169:
170:
172:
173: IF(p_WorkorderId IS NULL AND p_WorkorderNumber IS NULL)THEN
174: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
175: FND_MSG_PUB.ADD;
176: RAISE FND_API.G_EXC_ERROR;
177: ELSIF (p_WorkorderId IS NULL AND p_WorkorderNumber IS NOT NULL)THEN
178: l_workorder_id := get_workorder_id(p_WorkorderNumber);
179: ELSE
180: l_workorder_id := p_WorkorderId;
186: IF(get_wo_details_csr%NOTFOUND)THEN
187: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
188: FND_MSG_PUB.ADD;
189: CLOSE get_wo_details_csr;
190: RAISE FND_API.G_EXC_ERROR;
191: ELSE
192: x_WO_DETAILS_REC.WorkorderId := l_wo_details.WORKORDER_ID;
193: x_WO_DETAILS_REC.ObjectVersionNumber := l_wo_details.OBJECT_VERSION_NUMBER;
194: x_WO_DETAILS_REC.WorkorderNumber := l_wo_details.JOB_NUMBER;
274: END IF;
275: CLOSE get_wo_details_csr;
276:
277: EXCEPTION
278: WHEN FND_API.G_EXC_ERROR THEN
279: x_return_status := FND_API.G_RET_STS_ERROR;
280: x_msg_count := FND_MSG_PUB.count_msg;
281:
282:
275: CLOSE get_wo_details_csr;
276:
277: EXCEPTION
278: WHEN FND_API.G_EXC_ERROR THEN
279: x_return_status := FND_API.G_RET_STS_ERROR;
280: x_msg_count := FND_MSG_PUB.count_msg;
281:
282:
283: x_msg_data := GET_MSG_DATA(x_msg_count);
280: x_msg_count := FND_MSG_PUB.count_msg;
281:
282:
283: x_msg_data := GET_MSG_DATA(x_msg_count);
284: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286: x_msg_count := FND_MSG_PUB.count_msg;
287: x_msg_data := GET_MSG_DATA(x_msg_count);
288: WHEN OTHERS THEN
281:
282:
283: x_msg_data := GET_MSG_DATA(x_msg_count);
284: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286: x_msg_count := FND_MSG_PUB.count_msg;
287: x_msg_data := GET_MSG_DATA(x_msg_count);
288: WHEN OTHERS THEN
289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286: x_msg_count := FND_MSG_PUB.count_msg;
287: x_msg_data := GET_MSG_DATA(x_msg_count);
288: WHEN OTHERS THEN
289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
290:
291: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
292: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
293: p_procedure_name => l_api_name,
299:
300: PROCEDURE get_wo_operations_details
301: (
302: p_api_version IN NUMBER := 1.0,
303: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
304: p_commit IN VARCHAR2 := FND_API.G_FALSE,
305: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
306: p_default IN VARCHAR2 := FND_API.G_FALSE,
307: p_module_type IN VARCHAR2,
300: PROCEDURE get_wo_operations_details
301: (
302: p_api_version IN NUMBER := 1.0,
303: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
304: p_commit IN VARCHAR2 := FND_API.G_FALSE,
305: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
306: p_default IN VARCHAR2 := FND_API.G_FALSE,
307: p_module_type IN VARCHAR2,
308: p_userid IN VARCHAR2 := NULL,
301: (
302: p_api_version IN NUMBER := 1.0,
303: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
304: p_commit IN VARCHAR2 := FND_API.G_FALSE,
305: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
306: p_default IN VARCHAR2 := FND_API.G_FALSE,
307: p_module_type IN VARCHAR2,
308: p_userid IN VARCHAR2 := NULL,
309: p_WorkorderId IN NUMBER,
302: p_api_version IN NUMBER := 1.0,
303: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
304: p_commit IN VARCHAR2 := FND_API.G_FALSE,
305: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
306: p_default IN VARCHAR2 := FND_API.G_FALSE,
307: p_module_type IN VARCHAR2,
308: p_userid IN VARCHAR2 := NULL,
309: p_WorkorderId IN NUMBER,
310: p_WorkorderNumber IN VARCHAR2,
337:
338: BEGIN
339:
340: x_return_status := init_user_and_role(p_userid);
341: IF(x_return_status <> Fnd_Api.G_RET_STS_SUCCESS)THEN
342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
343: END IF;
344:
345: x_Operations(0) := NULL;
338: BEGIN
339:
340: x_return_status := init_user_and_role(p_userid);
341: IF(x_return_status <> Fnd_Api.G_RET_STS_SUCCESS)THEN
342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
343: END IF;
344:
345: x_Operations(0) := NULL;
346: -- Standard call to check for call compatibility
343: END IF;
344:
345: x_Operations(0) := NULL;
346: -- Standard call to check for call compatibility
347: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349: END IF;
350:
351: IF FND_API.To_Boolean(p_init_msg_list) THEN
344:
345: x_Operations(0) := NULL;
346: -- Standard call to check for call compatibility
347: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349: END IF;
350:
351: IF FND_API.To_Boolean(p_init_msg_list) THEN
352: FND_MSG_PUB.Initialize;
347: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349: END IF;
350:
351: IF FND_API.To_Boolean(p_init_msg_list) THEN
352: FND_MSG_PUB.Initialize;
353: END IF;
354: -- Check Error Message stack.
355: IF(p_WorkorderId IS NULL AND p_WorkorderNumber IS NULL)THEN
354: -- Check Error Message stack.
355: IF(p_WorkorderId IS NULL AND p_WorkorderNumber IS NULL)THEN
356: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
357: FND_MSG_PUB.ADD;
358: RAISE FND_API.G_EXC_ERROR;
359: ELSIF (p_WorkorderId IS NULL AND p_WorkorderNumber IS NOT NULL)THEN
360: l_workorder_id := get_workorder_id(p_WorkorderNumber);
361: ELSE
362: l_workorder_id := p_WorkorderId;
363: END IF;
364:
365: x_msg_count := FND_MSG_PUB.count_msg;
366: IF x_msg_count > 0 THEN
367: RAISE FND_API.G_EXC_ERROR;
368: END IF;
369:
370: IF(p_WoOperationId IS NULL AND p_OperationSequence IS NULL)THEN
371: NULL;
376: END IF;
377:
378: x_msg_count := FND_MSG_PUB.count_msg;
379: IF x_msg_count > 0 THEN
380: RAISE FND_API.G_EXC_ERROR;
381: END IF;
382:
383: l_op_index :=0;
384: FOR op_details IN get_operations_details_csr(l_workorder_id,l_workorder_operation_id) LOOP
412: END LOOP;
413:
414: x_msg_count := FND_MSG_PUB.count_msg;
415: IF x_msg_count > 0 THEN
416: RAISE FND_API.G_EXC_ERROR;
417: END IF;
418:
419: EXCEPTION
420: WHEN FND_API.G_EXC_ERROR THEN
416: RAISE FND_API.G_EXC_ERROR;
417: END IF;
418:
419: EXCEPTION
420: WHEN FND_API.G_EXC_ERROR THEN
421: x_return_status := FND_API.G_RET_STS_ERROR;
422: x_msg_count := FND_MSG_PUB.count_msg;
423:
424:
417: END IF;
418:
419: EXCEPTION
420: WHEN FND_API.G_EXC_ERROR THEN
421: x_return_status := FND_API.G_RET_STS_ERROR;
422: x_msg_count := FND_MSG_PUB.count_msg;
423:
424:
425: x_msg_data := GET_MSG_DATA(x_msg_count);
422: x_msg_count := FND_MSG_PUB.count_msg;
423:
424:
425: x_msg_data := GET_MSG_DATA(x_msg_count);
426: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
428: x_msg_count := FND_MSG_PUB.count_msg;
429: x_msg_data := GET_MSG_DATA(x_msg_count);
430: WHEN OTHERS THEN
423:
424:
425: x_msg_data := GET_MSG_DATA(x_msg_count);
426: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
428: x_msg_count := FND_MSG_PUB.count_msg;
429: x_msg_data := GET_MSG_DATA(x_msg_count);
430: WHEN OTHERS THEN
431: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
428: x_msg_count := FND_MSG_PUB.count_msg;
429: x_msg_data := GET_MSG_DATA(x_msg_count);
430: WHEN OTHERS THEN
431: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
432:
433: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
434: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
435: p_procedure_name => l_api_name,
441:
442: PROCEDURE get_wo_mtl_reqmts
443: (
444: p_api_version IN NUMBER := 1.0,
445: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
446: p_commit IN VARCHAR2 := FND_API.G_FALSE,
447: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
448: p_default IN VARCHAR2 := FND_API.G_FALSE,
449: p_module_type IN VARCHAR2,
442: PROCEDURE get_wo_mtl_reqmts
443: (
444: p_api_version IN NUMBER := 1.0,
445: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
446: p_commit IN VARCHAR2 := FND_API.G_FALSE,
447: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
448: p_default IN VARCHAR2 := FND_API.G_FALSE,
449: p_module_type IN VARCHAR2,
450: p_userid IN VARCHAR2 := NULL,
443: (
444: p_api_version IN NUMBER := 1.0,
445: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
446: p_commit IN VARCHAR2 := FND_API.G_FALSE,
447: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
448: p_default IN VARCHAR2 := FND_API.G_FALSE,
449: p_module_type IN VARCHAR2,
450: p_userid IN VARCHAR2 := NULL,
451: p_WorkorderId IN NUMBER,
444: p_api_version IN NUMBER := 1.0,
445: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
446: p_commit IN VARCHAR2 := FND_API.G_FALSE,
447: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
448: p_default IN VARCHAR2 := FND_API.G_FALSE,
449: p_module_type IN VARCHAR2,
450: p_userid IN VARCHAR2 := NULL,
451: p_WorkorderId IN NUMBER,
452: p_WorkorderNumber IN VARCHAR2,
487:
488: BEGIN
489:
490: x_return_status := init_user_and_role(p_userid);
491: IF(x_return_status <> Fnd_Api.G_RET_STS_SUCCESS)THEN
492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
493: END IF;
494:
495: x_MaterialRequirementDetails(0) := NULL;
488: BEGIN
489:
490: x_return_status := init_user_and_role(p_userid);
491: IF(x_return_status <> Fnd_Api.G_RET_STS_SUCCESS)THEN
492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
493: END IF;
494:
495: x_MaterialRequirementDetails(0) := NULL;
496:
494:
495: x_MaterialRequirementDetails(0) := NULL;
496:
497: -- Standard call to check for call compatibility
498: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
500: END IF;
501:
502: IF FND_API.To_Boolean(p_init_msg_list) THEN
495: x_MaterialRequirementDetails(0) := NULL;
496:
497: -- Standard call to check for call compatibility
498: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
500: END IF;
501:
502: IF FND_API.To_Boolean(p_init_msg_list) THEN
503: FND_MSG_PUB.Initialize;
498: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
500: END IF;
501:
502: IF FND_API.To_Boolean(p_init_msg_list) THEN
503: FND_MSG_PUB.Initialize;
504: END IF;
505:
506: -- Check Error Message stack.
506: -- Check Error Message stack.
507: IF(p_WorkorderId IS NULL AND p_WorkorderNumber IS NULL)THEN
508: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
509: FND_MSG_PUB.ADD;
510: RAISE FND_API.G_EXC_ERROR;
511: ELSIF (p_WorkorderId IS NULL AND p_WorkorderNumber IS NOT NULL)THEN
512: l_workorder_id := get_workorder_id(p_WorkorderNumber);
513: ELSE
514: l_workorder_id := p_WorkorderId;
523: END IF;
524:
525: x_msg_count := FND_MSG_PUB.count_msg;
526: IF x_msg_count > 0 THEN
527: RAISE FND_API.G_EXC_ERROR;
528: END IF;
529:
530: l_mtl_index :=0;
531: FOR mtl_details IN get_wo_mtl_reqmts_csr(l_workorder_id,l_workorder_operation_id) LOOP
546:
547: -- Check Error Message stack.
548: x_msg_count := FND_MSG_PUB.count_msg;
549: IF x_msg_count > 0 THEN
550: RAISE FND_API.G_EXC_ERROR;
551: END IF;
552:
553: EXCEPTION
554: WHEN FND_API.G_EXC_ERROR THEN
550: RAISE FND_API.G_EXC_ERROR;
551: END IF;
552:
553: EXCEPTION
554: WHEN FND_API.G_EXC_ERROR THEN
555: x_return_status := FND_API.G_RET_STS_ERROR;
556: x_msg_count := FND_MSG_PUB.count_msg;
557:
558:
551: END IF;
552:
553: EXCEPTION
554: WHEN FND_API.G_EXC_ERROR THEN
555: x_return_status := FND_API.G_RET_STS_ERROR;
556: x_msg_count := FND_MSG_PUB.count_msg;
557:
558:
559: x_msg_data := GET_MSG_DATA(x_msg_count);
556: x_msg_count := FND_MSG_PUB.count_msg;
557:
558:
559: x_msg_data := GET_MSG_DATA(x_msg_count);
560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
562: x_msg_count := FND_MSG_PUB.count_msg;
563: x_msg_data := GET_MSG_DATA(x_msg_count);
564: WHEN OTHERS THEN
557:
558:
559: x_msg_data := GET_MSG_DATA(x_msg_count);
560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
562: x_msg_count := FND_MSG_PUB.count_msg;
563: x_msg_data := GET_MSG_DATA(x_msg_count);
564: WHEN OTHERS THEN
565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
562: x_msg_count := FND_MSG_PUB.count_msg;
563: x_msg_data := GET_MSG_DATA(x_msg_count);
564: WHEN OTHERS THEN
565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
566:
567: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
568: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
569: p_procedure_name => l_api_name,
575:
576: PROCEDURE get_wo_assoc_documents
577: (
578: p_api_version IN NUMBER := 1.0,
579: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
580: p_commit IN VARCHAR2 := FND_API.G_FALSE,
581: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
582: p_default IN VARCHAR2 := FND_API.G_FALSE,
583: p_module_type IN VARCHAR2,
576: PROCEDURE get_wo_assoc_documents
577: (
578: p_api_version IN NUMBER := 1.0,
579: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
580: p_commit IN VARCHAR2 := FND_API.G_FALSE,
581: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
582: p_default IN VARCHAR2 := FND_API.G_FALSE,
583: p_module_type IN VARCHAR2,
584: p_userid IN VARCHAR2 := NULL,
577: (
578: p_api_version IN NUMBER := 1.0,
579: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
580: p_commit IN VARCHAR2 := FND_API.G_FALSE,
581: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
582: p_default IN VARCHAR2 := FND_API.G_FALSE,
583: p_module_type IN VARCHAR2,
584: p_userid IN VARCHAR2 := NULL,
585: p_WorkorderId IN NUMBER,
578: p_api_version IN NUMBER := 1.0,
579: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
580: p_commit IN VARCHAR2 := FND_API.G_FALSE,
581: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
582: p_default IN VARCHAR2 := FND_API.G_FALSE,
583: p_module_type IN VARCHAR2,
584: p_userid IN VARCHAR2 := NULL,
585: p_WorkorderId IN NUMBER,
586: p_WorkorderNumber IN VARCHAR2,
662:
663: BEGIN
664:
665: x_return_status := init_user_and_role(p_userid);
666: IF(x_return_status <> Fnd_Api.G_RET_STS_SUCCESS)THEN
667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
668: END IF;
669:
670: x_AssociatedDocuments(0) := NULL;
663: BEGIN
664:
665: x_return_status := init_user_and_role(p_userid);
666: IF(x_return_status <> Fnd_Api.G_RET_STS_SUCCESS)THEN
667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
668: END IF;
669:
670: x_AssociatedDocuments(0) := NULL;
671:
669:
670: x_AssociatedDocuments(0) := NULL;
671:
672: -- Standard call to check for call compatibility
673: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
675: END IF;
676:
677: IF FND_API.To_Boolean(p_init_msg_list) THEN
670: x_AssociatedDocuments(0) := NULL;
671:
672: -- Standard call to check for call compatibility
673: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
675: END IF;
676:
677: IF FND_API.To_Boolean(p_init_msg_list) THEN
678: FND_MSG_PUB.Initialize;
673: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
675: END IF;
676:
677: IF FND_API.To_Boolean(p_init_msg_list) THEN
678: FND_MSG_PUB.Initialize;
679: END IF;
680:
681: -- Check Error Message stack.
681: -- Check Error Message stack.
682: IF(p_WorkorderId IS NULL AND p_WorkorderNumber IS NULL)THEN
683: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
684: FND_MSG_PUB.ADD;
685: RAISE FND_API.G_EXC_ERROR;
686: ELSIF (p_WorkorderId IS NULL AND p_WorkorderNumber IS NOT NULL)THEN
687: l_workorder_id := get_workorder_id(p_WorkorderNumber);
688: ELSE
689: l_workorder_id := p_WorkorderId;
690: END IF;
691:
692: x_msg_count := FND_MSG_PUB.count_msg;
693: IF x_msg_count > 0 THEN
694: RAISE FND_API.G_EXC_ERROR;
695: END IF;
696:
697: l_doc_index := 0;
698: FOR assoc_docs IN get_wo_assoc_documents_csr(l_workorder_id ) LOOP
711:
712: -- Check Error Message stack.
713: x_msg_count := FND_MSG_PUB.count_msg;
714: IF x_msg_count > 0 THEN
715: RAISE FND_API.G_EXC_ERROR;
716: END IF;
717:
718: EXCEPTION
719: WHEN FND_API.G_EXC_ERROR THEN
715: RAISE FND_API.G_EXC_ERROR;
716: END IF;
717:
718: EXCEPTION
719: WHEN FND_API.G_EXC_ERROR THEN
720: x_return_status := FND_API.G_RET_STS_ERROR;
721: x_msg_count := FND_MSG_PUB.count_msg;
722:
723:
716: END IF;
717:
718: EXCEPTION
719: WHEN FND_API.G_EXC_ERROR THEN
720: x_return_status := FND_API.G_RET_STS_ERROR;
721: x_msg_count := FND_MSG_PUB.count_msg;
722:
723:
724: x_msg_data := GET_MSG_DATA(x_msg_count);
721: x_msg_count := FND_MSG_PUB.count_msg;
722:
723:
724: x_msg_data := GET_MSG_DATA(x_msg_count);
725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
727: x_msg_count := FND_MSG_PUB.count_msg;
728: x_msg_data := GET_MSG_DATA(x_msg_count);
729: WHEN OTHERS THEN
722:
723:
724: x_msg_data := GET_MSG_DATA(x_msg_count);
725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
727: x_msg_count := FND_MSG_PUB.count_msg;
728: x_msg_data := GET_MSG_DATA(x_msg_count);
729: WHEN OTHERS THEN
730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
727: x_msg_count := FND_MSG_PUB.count_msg;
728: x_msg_data := GET_MSG_DATA(x_msg_count);
729: WHEN OTHERS THEN
730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
731:
732: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
733: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
734: p_procedure_name => l_api_name,
740:
741: PROCEDURE get_wo_turnover_notes
742: (
743: p_api_version IN NUMBER := 1.0,
744: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
745: p_commit IN VARCHAR2 := FND_API.G_FALSE,
746: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
747: p_default IN VARCHAR2 := FND_API.G_FALSE,
748: p_module_type IN VARCHAR2,
741: PROCEDURE get_wo_turnover_notes
742: (
743: p_api_version IN NUMBER := 1.0,
744: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
745: p_commit IN VARCHAR2 := FND_API.G_FALSE,
746: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
747: p_default IN VARCHAR2 := FND_API.G_FALSE,
748: p_module_type IN VARCHAR2,
749: p_userid IN VARCHAR2 := NULL,
742: (
743: p_api_version IN NUMBER := 1.0,
744: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
745: p_commit IN VARCHAR2 := FND_API.G_FALSE,
746: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
747: p_default IN VARCHAR2 := FND_API.G_FALSE,
748: p_module_type IN VARCHAR2,
749: p_userid IN VARCHAR2 := NULL,
750: p_WorkorderId IN NUMBER,
743: p_api_version IN NUMBER := 1.0,
744: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
745: p_commit IN VARCHAR2 := FND_API.G_FALSE,
746: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
747: p_default IN VARCHAR2 := FND_API.G_FALSE,
748: p_module_type IN VARCHAR2,
749: p_userid IN VARCHAR2 := NULL,
750: p_WorkorderId IN NUMBER,
751: p_WorkorderNumber IN VARCHAR2,
775:
776: BEGIN
777:
778: x_return_status := init_user_and_role(p_userid);
779: IF(x_return_status <> Fnd_Api.G_RET_STS_SUCCESS)THEN
780: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
781: END IF;
782:
783: x_TurnoverNotes(0) := NULL;
776: BEGIN
777:
778: x_return_status := init_user_and_role(p_userid);
779: IF(x_return_status <> Fnd_Api.G_RET_STS_SUCCESS)THEN
780: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
781: END IF;
782:
783: x_TurnoverNotes(0) := NULL;
784:
782:
783: x_TurnoverNotes(0) := NULL;
784:
785: -- Standard call to check for call compatibility
786: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
788: END IF;
789:
790: IF FND_API.To_Boolean(p_init_msg_list) THEN
783: x_TurnoverNotes(0) := NULL;
784:
785: -- Standard call to check for call compatibility
786: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
788: END IF;
789:
790: IF FND_API.To_Boolean(p_init_msg_list) THEN
791: FND_MSG_PUB.Initialize;
786: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
788: END IF;
789:
790: IF FND_API.To_Boolean(p_init_msg_list) THEN
791: FND_MSG_PUB.Initialize;
792: END IF;
793:
794: -- Check Error Message stack.
794: -- Check Error Message stack.
795: IF(p_WorkorderId IS NULL AND p_WorkorderNumber IS NULL)THEN
796: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
797: FND_MSG_PUB.ADD;
798: RAISE FND_API.G_EXC_ERROR;
799: ELSIF (p_WorkorderId IS NULL AND p_WorkorderNumber IS NOT NULL)THEN
800: l_workorder_id := get_workorder_id(p_WorkorderNumber);
801: ELSE
802: l_workorder_id := p_WorkorderId;
803: END IF;
804:
805: x_msg_count := FND_MSG_PUB.count_msg;
806: IF x_msg_count > 0 THEN
807: RAISE FND_API.G_EXC_ERROR;
808: END IF;
809:
810: l_notes_index := 0;
811: FOR notes IN get_wo_turnover_notes_csr(l_workorder_id ) LOOP
821:
822: -- Check Error Message stack.
823: x_msg_count := FND_MSG_PUB.count_msg;
824: IF x_msg_count > 0 THEN
825: RAISE FND_API.G_EXC_ERROR;
826: END IF;
827: EXCEPTION
828: WHEN FND_API.G_EXC_ERROR THEN
829: x_return_status := FND_API.G_RET_STS_ERROR;
824: IF x_msg_count > 0 THEN
825: RAISE FND_API.G_EXC_ERROR;
826: END IF;
827: EXCEPTION
828: WHEN FND_API.G_EXC_ERROR THEN
829: x_return_status := FND_API.G_RET_STS_ERROR;
830: x_msg_count := FND_MSG_PUB.count_msg;
831:
832:
825: RAISE FND_API.G_EXC_ERROR;
826: END IF;
827: EXCEPTION
828: WHEN FND_API.G_EXC_ERROR THEN
829: x_return_status := FND_API.G_RET_STS_ERROR;
830: x_msg_count := FND_MSG_PUB.count_msg;
831:
832:
833: x_msg_data := GET_MSG_DATA(x_msg_count);
830: x_msg_count := FND_MSG_PUB.count_msg;
831:
832:
833: x_msg_data := GET_MSG_DATA(x_msg_count);
834: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
836: x_msg_count := FND_MSG_PUB.count_msg;
837: x_msg_data := GET_MSG_DATA(x_msg_count);
838: WHEN OTHERS THEN
831:
832:
833: x_msg_data := GET_MSG_DATA(x_msg_count);
834: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
836: x_msg_count := FND_MSG_PUB.count_msg;
837: x_msg_data := GET_MSG_DATA(x_msg_count);
838: WHEN OTHERS THEN
839: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
836: x_msg_count := FND_MSG_PUB.count_msg;
837: x_msg_data := GET_MSG_DATA(x_msg_count);
838: WHEN OTHERS THEN
839: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
840:
841: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
842: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
843: p_procedure_name => l_api_name,
849:
850: PROCEDURE get_wo_res_txns
851: (
852: p_api_version IN NUMBER := 1.0,
853: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
854: p_commit IN VARCHAR2 := FND_API.G_FALSE,
855: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
856: p_default IN VARCHAR2 := FND_API.G_FALSE,
857: p_module_type IN VARCHAR2,
850: PROCEDURE get_wo_res_txns
851: (
852: p_api_version IN NUMBER := 1.0,
853: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
854: p_commit IN VARCHAR2 := FND_API.G_FALSE,
855: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
856: p_default IN VARCHAR2 := FND_API.G_FALSE,
857: p_module_type IN VARCHAR2,
858: p_userid IN VARCHAR2 := NULL,
851: (
852: p_api_version IN NUMBER := 1.0,
853: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
854: p_commit IN VARCHAR2 := FND_API.G_FALSE,
855: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
856: p_default IN VARCHAR2 := FND_API.G_FALSE,
857: p_module_type IN VARCHAR2,
858: p_userid IN VARCHAR2 := NULL,
859: p_WorkorderId IN NUMBER,
852: p_api_version IN NUMBER := 1.0,
853: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
854: p_commit IN VARCHAR2 := FND_API.G_FALSE,
855: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
856: p_default IN VARCHAR2 := FND_API.G_FALSE,
857: p_module_type IN VARCHAR2,
858: p_userid IN VARCHAR2 := NULL,
859: p_WorkorderId IN NUMBER,
860: p_WorkorderNumber IN VARCHAR2,
900:
901: l_PRD_RESOURCE_TXNS_TBL AHL_PRD_RESOURCE_TRANX_PVT.PRD_RESOURCE_TXNS_TBL;
902: BEGIN
903: x_return_status := init_user_and_role(p_userid);
904: IF(x_return_status <> Fnd_Api.G_RET_STS_SUCCESS)THEN
905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
906: END IF;
907:
908: x_ResourceTransactions(0) := NULL;
901: l_PRD_RESOURCE_TXNS_TBL AHL_PRD_RESOURCE_TRANX_PVT.PRD_RESOURCE_TXNS_TBL;
902: BEGIN
903: x_return_status := init_user_and_role(p_userid);
904: IF(x_return_status <> Fnd_Api.G_RET_STS_SUCCESS)THEN
905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
906: END IF;
907:
908: x_ResourceTransactions(0) := NULL;
909: x_DefaultResourceTransactions(0) := NULL;
909: x_DefaultResourceTransactions(0) := NULL;
910:
911:
912: -- Standard call to check for call compatibility
913: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
915: END IF;
916:
917: IF FND_API.To_Boolean(p_init_msg_list) THEN
910:
911:
912: -- Standard call to check for call compatibility
913: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
915: END IF;
916:
917: IF FND_API.To_Boolean(p_init_msg_list) THEN
918: FND_MSG_PUB.Initialize;
913: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
915: END IF;
916:
917: IF FND_API.To_Boolean(p_init_msg_list) THEN
918: FND_MSG_PUB.Initialize;
919: END IF;
920:
921: -- Check Error Message stack.
921: -- Check Error Message stack.
922: IF(p_WorkorderId IS NULL AND p_WorkorderNumber IS NULL)THEN
923: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
924: FND_MSG_PUB.ADD;
925: RAISE FND_API.G_EXC_ERROR;
926: ELSIF (p_WorkorderId IS NULL AND p_WorkorderNumber IS NOT NULL)THEN
927: l_workorder_id := get_workorder_id(p_WorkorderNumber);
928: ELSE
929: l_workorder_id := p_WorkorderId;
930: END IF;
931:
932: x_msg_count := FND_MSG_PUB.count_msg;
933: IF x_msg_count > 0 THEN
934: RAISE FND_API.G_EXC_ERROR;
935: END IF;
936:
937: IF(p_WoOperationId IS NOT NULL)THEN
938: OPEN get_operation_sequence_csr(p_WoOperationId);
939: FETCH get_operation_sequence_csr INTO l_operation_sequence;
940: IF(get_operation_sequence_csr%NOTFOUND)THEN
941: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
942: FND_MSG_PUB.ADD;
943: RAISE FND_API.G_EXC_ERROR;
944: END IF;
945: CLOSE get_operation_sequence_csr;
946: ELSIF (p_WoOperationId IS NULL AND p_OperationSequence IS NOT NULL)THEN
947: l_operation_sequence := p_OperationSequence;
948: END IF;
949: -- Check Error Message stack.
950: x_msg_count := FND_MSG_PUB.count_msg;
951: IF x_msg_count > 0 THEN
952: RAISE FND_API.G_EXC_ERROR;
953: END IF;
954:
955:
956: l_restxns_index := 0;
994: FOR res_txns_defaults IN get_operation_sequences_csr(l_workorder_id, l_operation_sequence)LOOP
995: AHL_PRD_RESOURCE_TRANX_PVT.Get_Resource_Txn_Defaults
996: (
997: p_api_version => 1.0,
998: p_init_msg_list => FND_API.G_TRUE,
999: p_module_type => NULL,
1000: x_return_status => x_return_status,
1001: x_msg_count => x_msg_count,
1002: x_msg_data => x_msg_data,
1029:
1030: -- Check Error Message stack.
1031: x_msg_count := FND_MSG_PUB.count_msg;
1032: IF x_msg_count > 0 THEN
1033: RAISE FND_API.G_EXC_ERROR;
1034: END IF;
1035: x_return_status := FND_API.G_RET_STS_SUCCESS;
1036:
1037: EXCEPTION
1031: x_msg_count := FND_MSG_PUB.count_msg;
1032: IF x_msg_count > 0 THEN
1033: RAISE FND_API.G_EXC_ERROR;
1034: END IF;
1035: x_return_status := FND_API.G_RET_STS_SUCCESS;
1036:
1037: EXCEPTION
1038: WHEN FND_API.G_EXC_ERROR THEN
1039: x_return_status := FND_API.G_RET_STS_ERROR;
1034: END IF;
1035: x_return_status := FND_API.G_RET_STS_SUCCESS;
1036:
1037: EXCEPTION
1038: WHEN FND_API.G_EXC_ERROR THEN
1039: x_return_status := FND_API.G_RET_STS_ERROR;
1040: x_msg_count := FND_MSG_PUB.count_msg;
1041:
1042:
1035: x_return_status := FND_API.G_RET_STS_SUCCESS;
1036:
1037: EXCEPTION
1038: WHEN FND_API.G_EXC_ERROR THEN
1039: x_return_status := FND_API.G_RET_STS_ERROR;
1040: x_msg_count := FND_MSG_PUB.count_msg;
1041:
1042:
1043: x_msg_data := GET_MSG_DATA(x_msg_count);
1040: x_msg_count := FND_MSG_PUB.count_msg;
1041:
1042:
1043: x_msg_data := GET_MSG_DATA(x_msg_count);
1044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1046: x_msg_count := FND_MSG_PUB.count_msg;
1047: x_msg_data := GET_MSG_DATA(x_msg_count);
1048: WHEN OTHERS THEN
1041:
1042:
1043: x_msg_data := GET_MSG_DATA(x_msg_count);
1044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1046: x_msg_count := FND_MSG_PUB.count_msg;
1047: x_msg_data := GET_MSG_DATA(x_msg_count);
1048: WHEN OTHERS THEN
1049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1046: x_msg_count := FND_MSG_PUB.count_msg;
1047: x_msg_data := GET_MSG_DATA(x_msg_count);
1048: WHEN OTHERS THEN
1049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1050:
1051: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1052: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1053: p_procedure_name => l_api_name,
1059:
1060: PROCEDURE get_qa_plan_results
1061: (
1062: p_api_version IN NUMBER := 1.0,
1063: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1064: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1065: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1066: p_default IN VARCHAR2 := FND_API.G_FALSE,
1067: p_module_type IN VARCHAR2,
1060: PROCEDURE get_qa_plan_results
1061: (
1062: p_api_version IN NUMBER := 1.0,
1063: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1064: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1065: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1066: p_default IN VARCHAR2 := FND_API.G_FALSE,
1067: p_module_type IN VARCHAR2,
1068: p_userid IN VARCHAR2 := NULL,
1061: (
1062: p_api_version IN NUMBER := 1.0,
1063: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1064: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1065: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1066: p_default IN VARCHAR2 := FND_API.G_FALSE,
1067: p_module_type IN VARCHAR2,
1068: p_userid IN VARCHAR2 := NULL,
1069: p_WorkorderId IN NUMBER,
1062: p_api_version IN NUMBER := 1.0,
1063: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1064: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1065: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1066: p_default IN VARCHAR2 := FND_API.G_FALSE,
1067: p_module_type IN VARCHAR2,
1068: p_userid IN VARCHAR2 := NULL,
1069: p_WorkorderId IN NUMBER,
1070: p_WorkorderNumber IN VARCHAR2,
1163: BEGIN
1164: -- Initialize API return status to success
1165:
1166: x_return_status := init_user_and_role(p_userid);
1167: IF(x_return_status <> Fnd_Api.G_RET_STS_SUCCESS)THEN
1168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1169: END IF;
1170:
1171:
1164: -- Initialize API return status to success
1165:
1166: x_return_status := init_user_and_role(p_userid);
1167: IF(x_return_status <> Fnd_Api.G_RET_STS_SUCCESS)THEN
1168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1169: END IF;
1170:
1171:
1172: x_QaPlan.QA_PLAN_ATR_TBL(0) := NULL;
1173: x_QaResults.QA_RESULT_TBL(0).QA_PLAN_ATRVAL_TBL(0) := NULL;
1174:
1175:
1176: -- Standard call to check for call compatibility
1177: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
1178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1179: END IF;
1180:
1181: IF FND_API.To_Boolean(p_init_msg_list) THEN
1174:
1175:
1176: -- Standard call to check for call compatibility
1177: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
1178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1179: END IF;
1180:
1181: IF FND_API.To_Boolean(p_init_msg_list) THEN
1182: FND_MSG_PUB.Initialize;
1177: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
1178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1179: END IF;
1180:
1181: IF FND_API.To_Boolean(p_init_msg_list) THEN
1182: FND_MSG_PUB.Initialize;
1183: END IF;
1184:
1185: -- Check Error Message stack.
1185: -- Check Error Message stack.
1186: IF(p_WorkorderId IS NULL AND p_WorkorderNumber IS NULL)THEN
1187: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
1188: FND_MSG_PUB.ADD;
1189: RAISE FND_API.G_EXC_ERROR;
1190: ELSIF (p_WorkorderId IS NULL AND p_WorkorderNumber IS NOT NULL)THEN
1191: l_workorder_id := get_workorder_id(p_WorkorderNumber);
1192: ELSE
1193: l_workorder_id := p_WorkorderId;
1194: END IF;
1195:
1196: x_msg_count := FND_MSG_PUB.count_msg;
1197: IF x_msg_count > 0 THEN
1198: RAISE FND_API.G_EXC_ERROR;
1199: END IF;
1200:
1201: IF(p_WoOperationId IS NULL AND p_OperationSequence IS NULL)THEN
1202: l_workorder_operation_id := NULL;
1207: END IF;
1208: --l_workorder_operation_id := NULL;
1209: x_msg_count := FND_MSG_PUB.count_msg;
1210: IF x_msg_count > 0 THEN
1211: RAISE FND_API.G_EXC_ERROR;
1212: END IF;
1213:
1214: IF(l_workorder_operation_id IS NOT NULL)THEN
1215: OPEN get_op_plan_csr(l_workorder_operation_id);
1349: -- Check Error Message stack.
1350: x_msg_count := FND_MSG_PUB.count_msg;
1351:
1352: EXCEPTION
1353: WHEN FND_API.G_EXC_ERROR THEN
1354: x_return_status := FND_API.G_RET_STS_ERROR;
1355: x_msg_count := FND_MSG_PUB.count_msg;
1356:
1357:
1350: x_msg_count := FND_MSG_PUB.count_msg;
1351:
1352: EXCEPTION
1353: WHEN FND_API.G_EXC_ERROR THEN
1354: x_return_status := FND_API.G_RET_STS_ERROR;
1355: x_msg_count := FND_MSG_PUB.count_msg;
1356:
1357:
1358: x_msg_data := GET_MSG_DATA(x_msg_count);
1355: x_msg_count := FND_MSG_PUB.count_msg;
1356:
1357:
1358: x_msg_data := GET_MSG_DATA(x_msg_count);
1359: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1361: x_msg_count := FND_MSG_PUB.count_msg;
1362: x_msg_data := GET_MSG_DATA(x_msg_count);
1363: WHEN OTHERS THEN
1356:
1357:
1358: x_msg_data := GET_MSG_DATA(x_msg_count);
1359: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1361: x_msg_count := FND_MSG_PUB.count_msg;
1362: x_msg_data := GET_MSG_DATA(x_msg_count);
1363: WHEN OTHERS THEN
1364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1361: x_msg_count := FND_MSG_PUB.count_msg;
1362: x_msg_data := GET_MSG_DATA(x_msg_count);
1363: WHEN OTHERS THEN
1364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1365:
1366: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1367: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1368: p_procedure_name => l_api_name,
1387: IF(get_workorder_id_csr%NOTFOUND)THEN
1388: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
1389: FND_MSG_PUB.ADD;
1390: CLOSE get_workorder_id_csr;
1391: RAISE FND_API.G_EXC_ERROR;
1392: END IF;
1393: CLOSE get_workorder_id_csr;
1394: RETURN l_workorder_id;
1395: END get_workorder_id;
1410: IF(get_workorder_operation_id_csr%NOTFOUND)THEN
1411: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
1412: FND_MSG_PUB.ADD;
1413: CLOSE get_workorder_operation_id_csr;
1414: RAISE FND_API.G_EXC_ERROR;
1415: END IF;
1416: CLOSE get_workorder_operation_id_csr;
1417: RETURN l_workorder_operation_id;
1418: END get_workorder_operation_id;
1488: )IS
1489: l_trunover_notes_tbl AHL_PRD_WORKORDER_PVT.turnover_notes_tbl_type;
1490: j INTEGER;
1491: BEGIN
1492: x_return_status := FND_API.G_RET_STS_SUCCESS;
1493: IF(p_TurnoverNotes IS NULL OR p_TurnoverNotes.COUNT < 1)THEN
1494: RETURN;
1495: END IF;
1496: j :=0;
1510: IF(l_trunover_notes_tbl IS NOT NULL AND l_trunover_notes_tbl.COUNT > 0)THEN
1511: IF(p_WO_DETAILS_REC.IsUpdateEnabled <> 'T')THEN
1512: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_TRNNTREC_NALWD');
1513: FND_MSG_PUB.ADD;
1514: RAISE FND_API.G_EXC_ERROR;
1515: END IF;
1516:
1517: AHL_PRD_WORKORDER_PVT.INSERT_TURNOVER_NOTES
1518: (
1516:
1517: AHL_PRD_WORKORDER_PVT.INSERT_TURNOVER_NOTES
1518: (
1519: p_api_version => 1.0 ,
1520: p_init_msg_list => FND_API.G_TRUE,
1521: p_commit => FND_API.G_FALSE,
1522: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1523: p_default => FND_API.G_TRUE,
1524: p_module_type => 'OAF',
1517: AHL_PRD_WORKORDER_PVT.INSERT_TURNOVER_NOTES
1518: (
1519: p_api_version => 1.0 ,
1520: p_init_msg_list => FND_API.G_TRUE,
1521: p_commit => FND_API.G_FALSE,
1522: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1523: p_default => FND_API.G_TRUE,
1524: p_module_type => 'OAF',
1525: x_return_status => x_return_status,
1518: (
1519: p_api_version => 1.0 ,
1520: p_init_msg_list => FND_API.G_TRUE,
1521: p_commit => FND_API.G_FALSE,
1522: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1523: p_default => FND_API.G_TRUE,
1524: p_module_type => 'OAF',
1525: x_return_status => x_return_status,
1526: x_msg_count => x_msg_count,
1519: p_api_version => 1.0 ,
1520: p_init_msg_list => FND_API.G_TRUE,
1521: p_commit => FND_API.G_FALSE,
1522: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1523: p_default => FND_API.G_TRUE,
1524: p_module_type => 'OAF',
1525: x_return_status => x_return_status,
1526: x_msg_count => x_msg_count,
1527: x_msg_data => x_msg_data,
1563: l_status_code VARCHAR2(30);
1564: l_dummy_ctr NUMBER;
1565:
1566: BEGIN
1567: x_return_status := FND_API.G_RET_STS_SUCCESS;
1568:
1569: IF(p_CURR_WO_DETAILS_REC.IsUpdateEnabled <> 'T')THEN
1570: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_UPD_NALWD');
1571: FND_MSG_PUB.ADD;
1568:
1569: IF(p_CURR_WO_DETAILS_REC.IsUpdateEnabled <> 'T')THEN
1570: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_UPD_NALWD');
1571: FND_MSG_PUB.ADD;
1572: RAISE FND_API.G_EXC_ERROR;
1573: END IF;
1574:
1575: l_status_code := p_WO_DETAILS_REC.StatusCode;
1576:
1580: IF get_status_csr%NOTFOUND THEN
1581: FND_MESSAGE.SET_NAME('AHL','AHL_PP_JOB_INV_STATUS_JSP');
1582: FND_MSG_PUB.ADD;
1583: CLOSE get_status_csr;
1584: RAISE FND_API.G_EXC_ERROR;
1585: ELSE
1586: CLOSE get_status_csr;
1587: END IF;
1588: END IF;
1596: FND_MESSAGE.SET_TOKEN('FROM_STATUS',p_CURR_WO_DETAILS_REC.StatusCode);
1597: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_status_code);
1598: FND_MSG_PUB.ADD;
1599: CLOSE validate_status_csr;
1600: RAISE FND_API.G_EXC_ERROR;
1601: ELSE
1602: CLOSE validate_status_csr;
1603: END IF;
1604: END IF;
1607: --release Job
1608: AHL_PRD_WORKORDER_PVT.release_visit_jobs
1609: (
1610: p_api_version => 1.0 ,
1611: p_init_msg_list => FND_API.G_TRUE,
1612: p_commit => FND_API.G_FALSE,
1613: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1614: p_default => FND_API.G_TRUE,
1615: p_module_type => 'OAF',
1608: AHL_PRD_WORKORDER_PVT.release_visit_jobs
1609: (
1610: p_api_version => 1.0 ,
1611: p_init_msg_list => FND_API.G_TRUE,
1612: p_commit => FND_API.G_FALSE,
1613: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1614: p_default => FND_API.G_TRUE,
1615: p_module_type => 'OAF',
1616: x_return_status => x_return_status,
1609: (
1610: p_api_version => 1.0 ,
1611: p_init_msg_list => FND_API.G_TRUE,
1612: p_commit => FND_API.G_FALSE,
1613: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1614: p_default => FND_API.G_TRUE,
1615: p_module_type => 'OAF',
1616: x_return_status => x_return_status,
1617: x_msg_count => x_msg_count,
1610: p_api_version => 1.0 ,
1611: p_init_msg_list => FND_API.G_TRUE,
1612: p_commit => FND_API.G_FALSE,
1613: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1614: p_default => FND_API.G_TRUE,
1615: p_module_type => 'OAF',
1616: x_return_status => x_return_status,
1617: x_msg_count => x_msg_count,
1618: x_msg_data => x_msg_data,
1624: --cancel job
1625: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
1626: (
1627: p_api_version => 1.0 ,
1628: p_init_msg_list => FND_API.G_TRUE,
1629: p_commit => FND_API.G_FALSE,
1630: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1631: p_default => FND_API.G_TRUE,
1632: p_module_type => 'OAF',
1625: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
1626: (
1627: p_api_version => 1.0 ,
1628: p_init_msg_list => FND_API.G_TRUE,
1629: p_commit => FND_API.G_FALSE,
1630: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1631: p_default => FND_API.G_TRUE,
1632: p_module_type => 'OAF',
1633: x_return_status => x_return_status,
1626: (
1627: p_api_version => 1.0 ,
1628: p_init_msg_list => FND_API.G_TRUE,
1629: p_commit => FND_API.G_FALSE,
1630: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1631: p_default => FND_API.G_TRUE,
1632: p_module_type => 'OAF',
1633: x_return_status => x_return_status,
1634: x_msg_count => x_msg_count,
1627: p_api_version => 1.0 ,
1628: p_init_msg_list => FND_API.G_TRUE,
1629: p_commit => FND_API.G_FALSE,
1630: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1631: p_default => FND_API.G_TRUE,
1632: p_module_type => 'OAF',
1633: x_return_status => x_return_status,
1634: x_msg_count => x_msg_count,
1635: x_msg_data => x_msg_data,
1640: ELSIF(l_status_code = '4')THEN
1641: IF(p_CURR_WO_DETAILS_REC.IsCompleteEnabled <> 'T')THEN
1642: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_COMP_NALWD');
1643: FND_MSG_PUB.ADD;
1644: RAISE FND_API.G_EXC_ERROR;
1645: END IF;
1646: -- complete job
1647: AHL_COMPLETIONS_PVT.complete_workorder
1648: (
1646: -- complete job
1647: AHL_COMPLETIONS_PVT.complete_workorder
1648: (
1649: p_api_version => 1.0 ,
1650: p_init_msg_list => FND_API.G_TRUE,
1651: p_commit => FND_API.G_FALSE,
1652: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1653: p_default => FND_API.G_TRUE,
1654: p_module_type => 'OAF',
1647: AHL_COMPLETIONS_PVT.complete_workorder
1648: (
1649: p_api_version => 1.0 ,
1650: p_init_msg_list => FND_API.G_TRUE,
1651: p_commit => FND_API.G_FALSE,
1652: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1653: p_default => FND_API.G_TRUE,
1654: p_module_type => 'OAF',
1655: x_return_status => x_return_status,
1648: (
1649: p_api_version => 1.0 ,
1650: p_init_msg_list => FND_API.G_TRUE,
1651: p_commit => FND_API.G_FALSE,
1652: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1653: p_default => FND_API.G_TRUE,
1654: p_module_type => 'OAF',
1655: x_return_status => x_return_status,
1656: x_msg_count => x_msg_count,
1649: p_api_version => 1.0 ,
1650: p_init_msg_list => FND_API.G_TRUE,
1651: p_commit => FND_API.G_FALSE,
1652: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1653: p_default => FND_API.G_TRUE,
1654: p_module_type => 'OAF',
1655: x_return_status => x_return_status,
1656: x_msg_count => x_msg_count,
1657: x_msg_data => x_msg_data,
1677: --AHL_DEBUG_PUB.debug( 'l_prd_workorder_rec.ACTUAL_END_DATE : '||l_prd_workorder_rec.ACTUAL_END_DATE);
1678: AHL_PRD_WORKORDER_PVT.update_job
1679: (
1680: p_api_version => 1.0 ,
1681: p_init_msg_list => FND_API.G_TRUE,
1682: p_commit => FND_API.G_FALSE,
1683: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1684: p_default => FND_API.G_TRUE,
1685: p_module_type => 'OAF',
1678: AHL_PRD_WORKORDER_PVT.update_job
1679: (
1680: p_api_version => 1.0 ,
1681: p_init_msg_list => FND_API.G_TRUE,
1682: p_commit => FND_API.G_FALSE,
1683: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1684: p_default => FND_API.G_TRUE,
1685: p_module_type => 'OAF',
1686: x_return_status => x_return_status,
1679: (
1680: p_api_version => 1.0 ,
1681: p_init_msg_list => FND_API.G_TRUE,
1682: p_commit => FND_API.G_FALSE,
1683: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1684: p_default => FND_API.G_TRUE,
1685: p_module_type => 'OAF',
1686: x_return_status => x_return_status,
1687: x_msg_count => x_msg_count,
1680: p_api_version => 1.0 ,
1681: p_init_msg_list => FND_API.G_TRUE,
1682: p_commit => FND_API.G_FALSE,
1683: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1684: p_default => FND_API.G_TRUE,
1685: p_module_type => 'OAF',
1686: x_return_status => x_return_status,
1687: x_msg_count => x_msg_count,
1688: x_msg_data => x_msg_data,
1717: occurrence_tbl_index integer;
1718: l_rowElementCount integer;
1719:
1720: BEGIN
1721: x_return_status := FND_API.G_RET_STS_SUCCESS;
1722: IF(p_OP_QaResults.QA_RESULT_TBL IS NULL OR p_OP_QaResults.QA_RESULT_TBL.COUNT < 1)THEN
1723: RETURN;
1724: END IF;
1725:
1725:
1726: IF(p_OP_DETAILS_REC.IsQualityEnabled <> 'T')THEN
1727: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_OPQASUB_NALWD');
1728: FND_MSG_PUB.ADD;
1729: RAISE FND_API.G_EXC_ERROR;
1730: END IF;
1731:
1732: get_qa_plan_results
1733: (
1776:
1777: AHL_QA_RESULTS_PVT.submit_qa_results
1778: (
1779: p_api_version => 1.0,
1780: p_init_msg_list => FND_API.G_TRUE,
1781: p_commit => FND_API.G_FALSE,
1782: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1783: p_default => FND_API.G_FALSE,
1784: p_module_type => 'OAF',
1777: AHL_QA_RESULTS_PVT.submit_qa_results
1778: (
1779: p_api_version => 1.0,
1780: p_init_msg_list => FND_API.G_TRUE,
1781: p_commit => FND_API.G_FALSE,
1782: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1783: p_default => FND_API.G_FALSE,
1784: p_module_type => 'OAF',
1785: x_return_status => x_return_status,
1778: (
1779: p_api_version => 1.0,
1780: p_init_msg_list => FND_API.G_TRUE,
1781: p_commit => FND_API.G_FALSE,
1782: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1783: p_default => FND_API.G_FALSE,
1784: p_module_type => 'OAF',
1785: x_return_status => x_return_status,
1786: x_msg_count => x_msg_count,
1779: p_api_version => 1.0,
1780: p_init_msg_list => FND_API.G_TRUE,
1781: p_commit => FND_API.G_FALSE,
1782: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1783: p_default => FND_API.G_FALSE,
1784: p_module_type => 'OAF',
1785: x_return_status => x_return_status,
1786: x_msg_count => x_msg_count,
1787: x_msg_data => x_msg_data,
1828: and meaning like p_status;
1829:
1830:
1831: BEGIN
1832: x_return_status := FND_API.G_RET_STS_SUCCESS;
1833: IF(p_Operations IS NULL OR p_Operations.COUNT < 1)THEN
1834: RETURN;
1835: END IF;
1836: j :=1;--keep this as 1 as thats how called package recognize things..
1856: IF(p_Operations(i).ObjectVersionNumber IS NULL OR
1857: p_Operations(i).ObjectVersionNumber <> l_Operations(0).ObjectVersionNumber)THEN
1858: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1859: FND_MSG_PUB.ADD;
1860: RAISE FND_API.G_EXC_ERROR;
1861: END IF;
1862: IF(l_Operations(0).IsUpdateEnabled <> 'T')THEN
1863: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_OPUPD_NALWD');
1864: FND_MSG_PUB.ADD;
1861: END IF;
1862: IF(l_Operations(0).IsUpdateEnabled <> 'T')THEN
1863: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_OPUPD_NALWD');
1864: FND_MSG_PUB.ADD;
1865: RAISE FND_API.G_EXC_ERROR;
1866: END IF;
1867: process_op_quality
1868: (
1869: p_OP_DETAILS_REC => l_Operations(0),
1872: x_msg_count => x_msg_count,
1873: x_msg_data => x_msg_data
1874: );
1875: --DBMS_OUTPUT.put_line('x_return_status :i: ' || x_return_status);
1876: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1877: RAISE FND_API.G_EXC_ERROR;
1878: ELSE
1879: OPEN get_current_obj_ver_csr(l_Operations(0).WorkorderOperationId);
1880: FETCH get_current_obj_ver_csr INTO l_Operations(0).ObjectVersionNumber;
1873: x_msg_data => x_msg_data
1874: );
1875: --DBMS_OUTPUT.put_line('x_return_status :i: ' || x_return_status);
1876: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1877: RAISE FND_API.G_EXC_ERROR;
1878: ELSE
1879: OPEN get_current_obj_ver_csr(l_Operations(0).WorkorderOperationId);
1880: FETCH get_current_obj_ver_csr INTO l_Operations(0).ObjectVersionNumber;
1881: CLOSE get_current_obj_ver_csr;
1886: or p_operations(i).actualenddate is not null)then
1887: IF(p_Operations(i).StatusCode IS NOT NULL AND p_Operations(i).StatusCode NOT IN ('1','2'))THEN
1888: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_OPUPD_NALWD');
1889: FND_MSG_PUB.ADD;
1890: RAISE FND_API.G_EXC_ERROR;
1891: end if;
1892: l_prd_operation_tbl(j).status_code := p_operations(i).statuscode;
1893: l_prd_operation_tbl(j).status_meaning := p_Operations(i).Status;
1894: if(p_operations(i).status is not null)then
1897: if get_op_status_code%notfound then
1898: fnd_message.set_name('AHL','AHL_PRD_OPUPD_NALWD');
1899: fnd_msg_pub.add;
1900: close get_op_status_code;
1901: raise fnd_api.g_exc_error;
1902: end if;
1903: close get_op_status_code;
1904: end if;
1905: ----DBMS_OUTPUT.put_line('op :i:statusCode: ' || p_Operations(i).StatusCode);
1927: x_msg_count => x_msg_count,
1928: x_msg_data => x_msg_data,
1929: P_x_operation_tbl => l_prd_comp_operation_tbl
1930: );
1931: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1932: RAISE FND_API.G_EXC_ERROR;
1933: END IF;
1934: l_prd_operation_tbl(j).actual_start_date := l_prd_comp_operation_tbl(0).Actual_Start_Date;
1935: l_prd_operation_tbl(j).actual_end_date := l_prd_comp_operation_tbl(0).Actual_End_Date;
1928: x_msg_data => x_msg_data,
1929: P_x_operation_tbl => l_prd_comp_operation_tbl
1930: );
1931: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1932: RAISE FND_API.G_EXC_ERROR;
1933: END IF;
1934: l_prd_operation_tbl(j).actual_start_date := l_prd_comp_operation_tbl(0).Actual_Start_Date;
1935: l_prd_operation_tbl(j).actual_end_date := l_prd_comp_operation_tbl(0).Actual_End_Date;
1936: END IF;
1943: ----DBMS_OUTPUT.put_line('op :i:statusCode: processing operations : ' || l_prd_operation_tbl.COUNT);
1944: AHL_PRD_OPERATIONS_PVT.PROCESS_OPERATIONS
1945: (
1946: p_api_version => 1.0 ,
1947: p_init_msg_list => FND_API.G_TRUE,
1948: p_commit => FND_API.G_FALSE,
1949: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1950: p_default => FND_API.G_TRUE,
1951: p_module_type => 'OAF',
1944: AHL_PRD_OPERATIONS_PVT.PROCESS_OPERATIONS
1945: (
1946: p_api_version => 1.0 ,
1947: p_init_msg_list => FND_API.G_TRUE,
1948: p_commit => FND_API.G_FALSE,
1949: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1950: p_default => FND_API.G_TRUE,
1951: p_module_type => 'OAF',
1952: p_wip_mass_load_flag => 'Y',
1945: (
1946: p_api_version => 1.0 ,
1947: p_init_msg_list => FND_API.G_TRUE,
1948: p_commit => FND_API.G_FALSE,
1949: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1950: p_default => FND_API.G_TRUE,
1951: p_module_type => 'OAF',
1952: p_wip_mass_load_flag => 'Y',
1953: x_return_status => x_return_status,
1946: p_api_version => 1.0 ,
1947: p_init_msg_list => FND_API.G_TRUE,
1948: p_commit => FND_API.G_FALSE,
1949: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1950: p_default => FND_API.G_TRUE,
1951: p_module_type => 'OAF',
1952: p_wip_mass_load_flag => 'Y',
1953: x_return_status => x_return_status,
1954: x_msg_count => x_msg_count,
1971: l_req_material_tbl AHL_PP_MATERIALS_PVT.Req_Material_Tbl_Type;
1972: j INTEGER;
1973:
1974: BEGIN
1975: x_return_status := FND_API.G_RET_STS_SUCCESS;
1976: IF(p_MaterialRequirementDetails IS NULL OR p_MaterialRequirementDetails.COUNT < 1)THEN
1977: RETURN;
1978: END IF;
1979: j := 1;
2006: END LOOP;
2007: IF(j > 1) THEN
2008: AHL_PP_MATERIALS_PVT.Process_Material_Request (
2009: p_api_version => 1.0 ,
2010: p_init_msg_list => FND_API.G_TRUE,
2011: p_commit => FND_API.G_FALSE,
2012: p_validation_level => fnd_api.g_valid_level_full,
2013: p_module_type => 'JSP',
2014: p_x_req_material_tbl => l_req_material_tbl,
2007: IF(j > 1) THEN
2008: AHL_PP_MATERIALS_PVT.Process_Material_Request (
2009: p_api_version => 1.0 ,
2010: p_init_msg_list => FND_API.G_TRUE,
2011: p_commit => FND_API.G_FALSE,
2012: p_validation_level => fnd_api.g_valid_level_full,
2013: p_module_type => 'JSP',
2014: p_x_req_material_tbl => l_req_material_tbl,
2015: x_return_status => x_return_status,
2008: AHL_PP_MATERIALS_PVT.Process_Material_Request (
2009: p_api_version => 1.0 ,
2010: p_init_msg_list => FND_API.G_TRUE,
2011: p_commit => FND_API.G_FALSE,
2012: p_validation_level => fnd_api.g_valid_level_full,
2013: p_module_type => 'JSP',
2014: p_x_req_material_tbl => l_req_material_tbl,
2015: x_return_status => x_return_status,
2016: x_msg_count => x_msg_count,
2015: x_return_status => x_return_status,
2016: x_msg_count => x_msg_count,
2017: x_msg_data => x_msg_data
2018: );
2019: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2020: RAISE FND_API.G_EXC_ERROR;
2021: END IF;
2022: END IF;
2023: END process_mtl_requirements;
2016: x_msg_count => x_msg_count,
2017: x_msg_data => x_msg_data
2018: );
2019: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2020: RAISE FND_API.G_EXC_ERROR;
2021: END IF;
2022: END IF;
2023: END process_mtl_requirements;
2024:
2043: l_rowElementCount integer;
2044:
2045:
2046: BEGIN
2047: x_return_status := FND_API.G_RET_STS_SUCCESS;
2048: IF(p_WO_QaResults.QA_RESULT_TBL IS NULL OR p_WO_QaResults.QA_RESULT_TBL.COUNT < 1)THEN
2049: RETURN;
2050: END IF;
2051: IF(p_WO_DETAILS_REC.IsQualityEnabled <> 'T')THEN
2050: END IF;
2051: IF(p_WO_DETAILS_REC.IsQualityEnabled <> 'T')THEN
2052: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WOQASUB_NALWD');
2053: FND_MSG_PUB.ADD;
2054: RAISE FND_API.G_EXC_ERROR;
2055: END IF;
2056:
2057: get_qa_plan_results
2058: (
2099:
2100: AHL_QA_RESULTS_PVT.submit_qa_results
2101: (
2102: p_api_version => 1.0,
2103: p_init_msg_list => FND_API.G_TRUE,
2104: p_commit => FND_API.G_FALSE,
2105: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2106: p_default => FND_API.G_FALSE,
2107: p_module_type => 'OAF',
2100: AHL_QA_RESULTS_PVT.submit_qa_results
2101: (
2102: p_api_version => 1.0,
2103: p_init_msg_list => FND_API.G_TRUE,
2104: p_commit => FND_API.G_FALSE,
2105: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2106: p_default => FND_API.G_FALSE,
2107: p_module_type => 'OAF',
2108: x_return_status => x_return_status,
2101: (
2102: p_api_version => 1.0,
2103: p_init_msg_list => FND_API.G_TRUE,
2104: p_commit => FND_API.G_FALSE,
2105: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2106: p_default => FND_API.G_FALSE,
2107: p_module_type => 'OAF',
2108: x_return_status => x_return_status,
2109: x_msg_count => x_msg_count,
2102: p_api_version => 1.0,
2103: p_init_msg_list => FND_API.G_TRUE,
2104: p_commit => FND_API.G_FALSE,
2105: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2106: p_default => FND_API.G_FALSE,
2107: p_module_type => 'OAF',
2108: x_return_status => x_return_status,
2109: x_msg_count => x_msg_count,
2110: x_msg_data => x_msg_data,
2134: ) IS
2135: l_res_txns_tbl AHL_PRD_RESOURCE_TRANX_PVT.PRD_RESOURCE_TXNS_TBL;
2136: j INTEGER;
2137: BEGIN
2138: x_return_status := FND_API.G_RET_STS_SUCCESS;
2139: IF(p_ResourceTransactions IS NULL OR p_ResourceTransactions.COUNT < 1)THEN
2140: RETURN;
2141: END IF;
2142: x_return_status := FND_API.G_RET_STS_SUCCESS;
2138: x_return_status := FND_API.G_RET_STS_SUCCESS;
2139: IF(p_ResourceTransactions IS NULL OR p_ResourceTransactions.COUNT < 1)THEN
2140: RETURN;
2141: END IF;
2142: x_return_status := FND_API.G_RET_STS_SUCCESS;
2143: j :=0;
2144: FOR i IN p_ResourceTransactions.FIRST..p_ResourceTransactions.LAST LOOP
2145: IF((p_ResourceTransactions(i).StartTime IS NOT NULL OR
2146: p_ResourceTransactions(i).EndTime IS NOT NULL OR
2171: IF(l_res_txns_tbl IS NOT NULL AND l_res_txns_tbl.COUNT > 0)THEN
2172: IF(p_WO_DETAILS_REC.IsUpdateEnabled <> 'T')THEN
2173: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_RES_TXN_NALWD');
2174: FND_MSG_PUB.ADD;
2175: RAISE FND_API.G_EXC_ERROR;
2176: END IF;
2177: AHL_PRD_RESOURCE_TRANX_PVT.process_resource_txns
2178: (
2179: p_api_version => 1.0 ,
2176: END IF;
2177: AHL_PRD_RESOURCE_TRANX_PVT.process_resource_txns
2178: (
2179: p_api_version => 1.0 ,
2180: p_init_msg_list => FND_API.G_TRUE,
2181: p_commit => FND_API.G_FALSE,
2182: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2183: p_default => FND_API.G_TRUE,
2184: p_module_type => 'BPEL',
2177: AHL_PRD_RESOURCE_TRANX_PVT.process_resource_txns
2178: (
2179: p_api_version => 1.0 ,
2180: p_init_msg_list => FND_API.G_TRUE,
2181: p_commit => FND_API.G_FALSE,
2182: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2183: p_default => FND_API.G_TRUE,
2184: p_module_type => 'BPEL',
2185: x_return_status => x_return_status,
2178: (
2179: p_api_version => 1.0 ,
2180: p_init_msg_list => FND_API.G_TRUE,
2181: p_commit => FND_API.G_FALSE,
2182: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2183: p_default => FND_API.G_TRUE,
2184: p_module_type => 'BPEL',
2185: x_return_status => x_return_status,
2186: x_msg_count => x_msg_count,
2179: p_api_version => 1.0 ,
2180: p_init_msg_list => FND_API.G_TRUE,
2181: p_commit => FND_API.G_FALSE,
2182: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2183: p_default => FND_API.G_TRUE,
2184: p_module_type => 'BPEL',
2185: x_return_status => x_return_status,
2186: x_msg_count => x_msg_count,
2187: x_msg_data => x_msg_data,
2192:
2193: PROCEDURE process_workorder
2194: (
2195: p_api_version IN NUMBER := 1.0,
2196: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2197: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2198: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2199: p_default IN VARCHAR2 := FND_API.G_FALSE,
2200: p_module_type IN VARCHAR2,
2193: PROCEDURE process_workorder
2194: (
2195: p_api_version IN NUMBER := 1.0,
2196: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2197: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2198: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2199: p_default IN VARCHAR2 := FND_API.G_FALSE,
2200: p_module_type IN VARCHAR2,
2201: p_userid IN VARCHAR2 := NULL,
2194: (
2195: p_api_version IN NUMBER := 1.0,
2196: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2197: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2198: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2199: p_default IN VARCHAR2 := FND_API.G_FALSE,
2200: p_module_type IN VARCHAR2,
2201: p_userid IN VARCHAR2 := NULL,
2202: p_WO_DETAILS_REC IN WO_DETAILS_REC_TYPE,
2195: p_api_version IN NUMBER := 1.0,
2196: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2197: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2198: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2199: p_default IN VARCHAR2 := FND_API.G_FALSE,
2200: p_module_type IN VARCHAR2,
2201: p_userid IN VARCHAR2 := NULL,
2202: p_WO_DETAILS_REC IN WO_DETAILS_REC_TYPE,
2203: p_Operations IN OP_ALL_DETAILS_TBL,
2222: SAVEPOINT PROCESS_WORKORDER;
2223:
2224: IF(p_module_type = 'BPEL') THEN
2225: x_return_status := init_user_and_role(p_userid);
2226: IF(x_return_status <> Fnd_Api.G_RET_STS_SUCCESS)THEN
2227: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2228: END IF;
2229: END IF;
2230:
2223:
2224: IF(p_module_type = 'BPEL') THEN
2225: x_return_status := init_user_and_role(p_userid);
2226: IF(x_return_status <> Fnd_Api.G_RET_STS_SUCCESS)THEN
2227: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2228: END IF;
2229: END IF;
2230:
2231:
2229: END IF;
2230:
2231:
2232: -- Standard call to check for call compatibility
2233: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
2234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2235: END IF;
2236:
2237: IF FND_API.To_Boolean(p_init_msg_list) THEN
2230:
2231:
2232: -- Standard call to check for call compatibility
2233: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
2234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2235: END IF;
2236:
2237: IF FND_API.To_Boolean(p_init_msg_list) THEN
2238: FND_MSG_PUB.Initialize;
2233: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
2234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2235: END IF;
2236:
2237: IF FND_API.To_Boolean(p_init_msg_list) THEN
2238: FND_MSG_PUB.Initialize;
2239: END IF;
2240: -- Initialize API return status to success
2241:
2252: x_WO_DETAILS_REC => l_WO_DETAILS_REC
2253: );
2254: --AHL_DEBUG_PUB.debug( 'l_WO_DETAILS_REC.ObjectVersionNumber : '||l_WO_DETAILS_REC.ObjectVersionNumber);
2255: --AHL_DEBUG_PUB.debug( 'p_WO_DETAILS_REC.ObjectVersionNumber : '||p_WO_DETAILS_REC.ObjectVersionNumber);
2256: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2257: RAISE FND_API.G_EXC_ERROR;
2258: END IF;
2259: IF(p_WO_DETAILS_REC.ObjectVersionNumber IS NULL OR
2260: p_WO_DETAILS_REC.ObjectVersionNumber <> l_WO_DETAILS_REC.ObjectVersionNumber)THEN
2253: );
2254: --AHL_DEBUG_PUB.debug( 'l_WO_DETAILS_REC.ObjectVersionNumber : '||l_WO_DETAILS_REC.ObjectVersionNumber);
2255: --AHL_DEBUG_PUB.debug( 'p_WO_DETAILS_REC.ObjectVersionNumber : '||p_WO_DETAILS_REC.ObjectVersionNumber);
2256: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2257: RAISE FND_API.G_EXC_ERROR;
2258: END IF;
2259: IF(p_WO_DETAILS_REC.ObjectVersionNumber IS NULL OR
2260: p_WO_DETAILS_REC.ObjectVersionNumber <> l_WO_DETAILS_REC.ObjectVersionNumber)THEN
2261: --AHL_DEBUG_PUB.debug( 'Object Version Numbers are not same');
2260: p_WO_DETAILS_REC.ObjectVersionNumber <> l_WO_DETAILS_REC.ObjectVersionNumber)THEN
2261: --AHL_DEBUG_PUB.debug( 'Object Version Numbers are not same');
2262: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
2263: FND_MSG_PUB.ADD;
2264: RAISE FND_API.G_EXC_ERROR;
2265: END IF;
2266: process_turnover_notes(
2267: p_WO_DETAILS_REC => l_WO_DETAILS_REC,
2268: p_TurnoverNotes => p_TurnoverNotes,
2270: x_msg_count => x_msg_count,
2271: x_msg_data => x_msg_data
2272: );
2273:
2274: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2275: RAISE FND_API.G_EXC_ERROR;
2276: END IF;
2277:
2278: process_mtl_requirements
2271: x_msg_data => x_msg_data
2272: );
2273:
2274: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2275: RAISE FND_API.G_EXC_ERROR;
2276: END IF;
2277:
2278: process_mtl_requirements
2279: (
2282: x_return_status => x_return_status,
2283: x_msg_count => x_msg_count,
2284: x_msg_data => x_msg_data
2285: );
2286: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2287: RAISE FND_API.G_EXC_ERROR;
2288: END IF;
2289:
2290: process_res_txns(
2283: x_msg_count => x_msg_count,
2284: x_msg_data => x_msg_data
2285: );
2286: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2287: RAISE FND_API.G_EXC_ERROR;
2288: END IF;
2289:
2290: process_res_txns(
2291: p_WO_DETAILS_REC => l_WO_DETAILS_REC,
2293: x_return_status => x_return_status,
2294: x_msg_count => x_msg_count,
2295: x_msg_data => x_msg_data
2296: );
2297: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2298: RAISE FND_API.G_EXC_ERROR;
2299: END IF;
2300:
2301: process_op_details(
2294: x_msg_count => x_msg_count,
2295: x_msg_data => x_msg_data
2296: );
2297: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2298: RAISE FND_API.G_EXC_ERROR;
2299: END IF;
2300:
2301: process_op_details(
2302: p_WO_DETAILS_REC => l_WO_DETAILS_REC,
2304: x_return_status => x_return_status,
2305: x_msg_count => x_msg_count,
2306: x_msg_data => x_msg_data
2307: );
2308: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2309: RAISE FND_API.G_EXC_ERROR;
2310: END IF;
2311:
2312: process_wo_quality(
2305: x_msg_count => x_msg_count,
2306: x_msg_data => x_msg_data
2307: );
2308: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2309: RAISE FND_API.G_EXC_ERROR;
2310: END IF;
2311:
2312: process_wo_quality(
2313: p_WO_DETAILS_REC => l_WO_DETAILS_REC,
2315: x_return_status => x_return_status,
2316: x_msg_count => x_msg_count,
2317: x_msg_data => x_msg_data
2318: );
2319: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2320: RAISE FND_API.G_EXC_ERROR;
2321: ELSE
2322: OPEN get_current_obj_ver_csr(l_WO_DETAILS_REC.WorkorderId);
2323: FETCH get_current_obj_ver_csr INTO l_WO_DETAILS_REC.ObjectVersionNumber;
2316: x_msg_count => x_msg_count,
2317: x_msg_data => x_msg_data
2318: );
2319: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2320: RAISE FND_API.G_EXC_ERROR;
2321: ELSE
2322: OPEN get_current_obj_ver_csr(l_WO_DETAILS_REC.WorkorderId);
2323: FETCH get_current_obj_ver_csr INTO l_WO_DETAILS_REC.ObjectVersionNumber;
2324: CLOSE get_current_obj_ver_csr;
2332: x_return_status => x_return_status,
2333: x_msg_count => x_msg_count,
2334: x_msg_data => x_msg_data
2335: );
2336: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2337: RAISE FND_API.G_EXC_ERROR;
2338: END IF;
2339:
2340: IF FND_API.to_boolean(p_commit) THEN
2333: x_msg_count => x_msg_count,
2334: x_msg_data => x_msg_data
2335: );
2336: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2337: RAISE FND_API.G_EXC_ERROR;
2338: END IF;
2339:
2340: IF FND_API.to_boolean(p_commit) THEN
2341: COMMIT;
2336: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2337: RAISE FND_API.G_EXC_ERROR;
2338: END IF;
2339:
2340: IF FND_API.to_boolean(p_commit) THEN
2341: COMMIT;
2342: END IF;
2343:
2344: EXCEPTION
2341: COMMIT;
2342: END IF;
2343:
2344: EXCEPTION
2345: WHEN FND_API.G_EXC_ERROR THEN
2346: ROLLBACK TO PROCESS_WORKORDER;
2347: x_return_status := FND_API.G_RET_STS_ERROR;
2348: x_msg_count := FND_MSG_PUB.count_msg;
2349:
2343:
2344: EXCEPTION
2345: WHEN FND_API.G_EXC_ERROR THEN
2346: ROLLBACK TO PROCESS_WORKORDER;
2347: x_return_status := FND_API.G_RET_STS_ERROR;
2348: x_msg_count := FND_MSG_PUB.count_msg;
2349:
2350:
2351: x_msg_data := GET_MSG_DATA(x_msg_count);
2348: x_msg_count := FND_MSG_PUB.count_msg;
2349:
2350:
2351: x_msg_data := GET_MSG_DATA(x_msg_count);
2352: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2353: ROLLBACK TO PROCESS_WORKORDER;
2354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2355: x_msg_count := FND_MSG_PUB.count_msg;
2356: x_msg_data := GET_MSG_DATA(x_msg_count);
2350:
2351: x_msg_data := GET_MSG_DATA(x_msg_count);
2352: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2353: ROLLBACK TO PROCESS_WORKORDER;
2354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2355: x_msg_count := FND_MSG_PUB.count_msg;
2356: x_msg_data := GET_MSG_DATA(x_msg_count);
2357: WHEN OTHERS THEN
2358: ROLLBACK TO PROCESS_WORKORDER;
2355: x_msg_count := FND_MSG_PUB.count_msg;
2356: x_msg_data := GET_MSG_DATA(x_msg_count);
2357: WHEN OTHERS THEN
2358: ROLLBACK TO PROCESS_WORKORDER;
2359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2360:
2361: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2362: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2363: p_procedure_name => l_api_name,
2370:
2371: /*PROCEDURE process_workorder_autotxns
2372: (
2373: p_api_version IN NUMBER := 1.0,
2374: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2375: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2376: p_default IN VARCHAR2 := FND_API.G_FALSE,
2377: p_module_type IN VARCHAR2,
2378: p_userid IN VARCHAR2 := NULL,
2371: /*PROCEDURE process_workorder_autotxns
2372: (
2373: p_api_version IN NUMBER := 1.0,
2374: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2375: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2376: p_default IN VARCHAR2 := FND_API.G_FALSE,
2377: p_module_type IN VARCHAR2,
2378: p_userid IN VARCHAR2 := NULL,
2379: p_WO_DETAILS_REC IN WO_DETAILS_REC_TYPE,
2372: (
2373: p_api_version IN NUMBER := 1.0,
2374: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2375: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2376: p_default IN VARCHAR2 := FND_API.G_FALSE,
2377: p_module_type IN VARCHAR2,
2378: p_userid IN VARCHAR2 := NULL,
2379: p_WO_DETAILS_REC IN WO_DETAILS_REC_TYPE,
2380: p_Operations IN OP_ALL_DETAILS_TBL,
2393:
2394: BEGIN
2395:
2396: -- Standard call to check for call compatibility
2397: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
2398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2399: END IF;
2400:
2401: process_workorder_nonautotxns
2394: BEGIN
2395:
2396: -- Standard call to check for call compatibility
2397: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
2398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2399: END IF;
2400:
2401: process_workorder_nonautotxns
2402: (
2401: process_workorder_nonautotxns
2402: (
2403: p_api_version => p_api_version,
2404: p_init_msg_list => p_init_msg_list,
2405: p_commit => FND_API.G_FALSE,
2406: p_validation_level => p_validation_level,
2407: p_default => p_default,
2408: p_module_type => p_module_type,
2409: p_userid => p_userid,
2417: x_msg_count => x_msg_count,
2418: x_msg_data => x_msg_data
2419: );
2420:
2421: IF(x_return_status = Fnd_Api.G_RET_STS_SUCCESS)THEN
2422: COMMIT;
2423: ELSE
2424: ROLLBACK;
2425: END IF;
2426:
2427:
2428:
2429: EXCEPTION
2430: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2431: ROLLBACK;
2432: WHEN OTHERS THEN
2433: ROLLBACK;
2434: END process_workorder_autotxns;*/
2435:
2436: /*PROCEDURE process_workorder
2437: (
2438: p_api_version IN NUMBER := 1.0,
2439: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2440: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2441: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2442: p_default IN VARCHAR2 := FND_API.G_FALSE,
2443: p_module_type IN VARCHAR2,
2436: /*PROCEDURE process_workorder
2437: (
2438: p_api_version IN NUMBER := 1.0,
2439: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2440: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2441: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2442: p_default IN VARCHAR2 := FND_API.G_FALSE,
2443: p_module_type IN VARCHAR2,
2444: p_userid IN VARCHAR2 := NULL,
2437: (
2438: p_api_version IN NUMBER := 1.0,
2439: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2440: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2441: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2442: p_default IN VARCHAR2 := FND_API.G_FALSE,
2443: p_module_type IN VARCHAR2,
2444: p_userid IN VARCHAR2 := NULL,
2445: p_WO_DETAILS_REC IN WO_DETAILS_REC_TYPE,
2438: p_api_version IN NUMBER := 1.0,
2439: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2440: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2441: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2442: p_default IN VARCHAR2 := FND_API.G_FALSE,
2443: p_module_type IN VARCHAR2,
2444: p_userid IN VARCHAR2 := NULL,
2445: p_WO_DETAILS_REC IN WO_DETAILS_REC_TYPE,
2446: p_Operations IN OP_ALL_DETAILS_TBL,
2456: l_api_name CONSTANT VARCHAR2(30) := 'process_workorder';
2457:
2458: BEGIN
2459:
2460: IF(p_module_type = 'BPEL' AND p_commit = FND_API.G_TRUE)THEN
2461:
2462: process_workorder_autotxns
2463: (
2464: p_api_version => p_api_version,
2518: END IF;
2519: IF (p_msg_count = 1) then
2520: FND_MSG_PUB.count_and_get( p_count => l_msg_count,
2521: p_data => l_temp_msg_data,
2522: p_encoded => fnd_api.g_false);
2523: l_msg_data := '(' || 1 || ')' || l_temp_msg_data;
2524: ELSE
2525: IF (l_msg_count > 0) THEN
2526: FOR i IN 1..l_msg_count LOOP