[Home] [Help]
18: ) RETURN VARCHAR2
19: IS
20: BEGIN
21: IF ( p_organization_id IS NULL OR
22: p_organization_id = FND_API.G_MISS_NUM ) THEN
23: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ORG_ID_NULL' );
24: FND_MSG_PUB.add;
25: RETURN FND_API.G_RET_STS_ERROR;
26: END IF;
21: IF ( p_organization_id IS NULL OR
22: p_organization_id = FND_API.G_MISS_NUM ) THEN
23: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ORG_ID_NULL' );
24: FND_MSG_PUB.add;
25: RETURN FND_API.G_RET_STS_ERROR;
26: END IF;
27:
28: IF ( p_transaction_number IS NULL OR
29: p_transaction_number = FND_API.G_MISS_NUM ) THEN
25: RETURN FND_API.G_RET_STS_ERROR;
26: END IF;
27:
28: IF ( p_transaction_number IS NULL OR
29: p_transaction_number = FND_API.G_MISS_NUM ) THEN
30: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TXN_NO_NULL' );
31: FND_MSG_PUB.add;
32: RETURN FND_API.G_RET_STS_ERROR;
33: END IF;
28: IF ( p_transaction_number IS NULL OR
29: p_transaction_number = FND_API.G_MISS_NUM ) THEN
30: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TXN_NO_NULL' );
31: FND_MSG_PUB.add;
32: RETURN FND_API.G_RET_STS_ERROR;
33: END IF;
34:
35: IF ( p_col_trigger_value IS NULL OR
36: p_col_trigger_value = FND_API.G_MISS_NUM ) THEN
32: RETURN FND_API.G_RET_STS_ERROR;
33: END IF;
34:
35: IF ( p_col_trigger_value IS NULL OR
36: p_col_trigger_value = FND_API.G_MISS_NUM ) THEN
37: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INSPECTION_TYPE_NULL' );
38: FND_MSG_PUB.add;
39: RETURN FND_API.G_RET_STS_ERROR;
40: END IF;
35: IF ( p_col_trigger_value IS NULL OR
36: p_col_trigger_value = FND_API.G_MISS_NUM ) THEN
37: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INSPECTION_TYPE_NULL' );
38: FND_MSG_PUB.add;
39: RETURN FND_API.G_RET_STS_ERROR;
40: END IF;
41:
42: END validate_gqp_inputs;
43:
117:
118: BEGIN
119:
120: IF ( p_plan_id IS NULL OR
121: p_plan_id = FND_API.G_MISS_NUM ) THEN
122: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_PLAN_ID_NULL' );
123: FND_MSG_PUB.add;
124: RETURN FND_API.G_RET_STS_ERROR;
125: END IF;
120: IF ( p_plan_id IS NULL OR
121: p_plan_id = FND_API.G_MISS_NUM ) THEN
122: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_PLAN_ID_NULL' );
123: FND_MSG_PUB.add;
124: RETURN FND_API.G_RET_STS_ERROR;
125: END IF;
126:
127: IF ( p_organization_id IS NULL OR
128: p_organization_id = FND_API.G_MISS_NUM ) THEN
124: RETURN FND_API.G_RET_STS_ERROR;
125: END IF;
126:
127: IF ( p_organization_id IS NULL OR
128: p_organization_id = FND_API.G_MISS_NUM ) THEN
129: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ORG_ID_NULL' );
130: FND_MSG_PUB.add;
131: RETURN FND_API.G_RET_STS_ERROR;
132: END IF;
127: IF ( p_organization_id IS NULL OR
128: p_organization_id = FND_API.G_MISS_NUM ) THEN
129: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ORG_ID_NULL' );
130: FND_MSG_PUB.add;
131: RETURN FND_API.G_RET_STS_ERROR;
132: END IF;
133:
134: IF ( p_results_tbl.COUNT = 0 ) THEN
135: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ONE_RESULT_REQD' );
133:
134: IF ( p_results_tbl.COUNT = 0 ) THEN
135: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ONE_RESULT_REQD' );
136: FND_MSG_PUB.add;
137: RETURN FND_API.G_RET_STS_ERROR;
138: END IF;
139:
140: BEGIN
141: SELECT organization_id
146: EXCEPTION
147: WHEN NO_DATA_FOUND THEN
148: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_PLAN_NOT_FOUND' );
149: FND_MSG_PUB.add;
150: RETURN FND_API.G_RET_STS_ERROR;
151: END;
152:
153: -- rroy
154: -- ACL Changes
167: FETCH ue_details_csr INTO L_TITLE, L_status_code, l_unit_locked;
168: CLOSE ue_details_csr;
169:
170:
171: IF l_unit_locked = FND_API.G_TRUE THEN
172: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_QA_UNTLCKD');
173: FND_MESSAGE.Set_Token('MR_TITLE', L_TITLE);
174: FND_MSG_PUB.ADD;
175: RETURN FND_API.G_RET_STS_ERROR;
171: IF l_unit_locked = FND_API.G_TRUE THEN
172: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_QA_UNTLCKD');
173: FND_MESSAGE.Set_Token('MR_TITLE', L_TITLE);
174: FND_MSG_PUB.ADD;
175: RETURN FND_API.G_RET_STS_ERROR;
176: END IF;
177:
178: IF(L_STATUS_CODE IN ('ACCOMPLISHED','DEFERRED','UNRELEASED','TERMINATED','CANCELLED','DEFERRAL_PENDING'))THEN
179: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_QA_CAP_NALLWD');
178: IF(L_STATUS_CODE IN ('ACCOMPLISHED','DEFERRED','UNRELEASED','TERMINATED','CANCELLED','DEFERRAL_PENDING'))THEN
179: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_QA_CAP_NALLWD');
180: FND_MESSAGE.Set_Token('TITLE', L_TITLE);
181: FND_MSG_PUB.ADD;
182: RETURN FND_API.G_RET_STS_ERROR;
183: END IF;
184: ELSIF p_transaction_no = G_JOB_TXN_NO THEN
185: OPEN get_wo_details(l_workorder_id);
186: FETCH get_wo_details INTO L_TITLE, L_status_code, l_unit_locked;
184: ELSIF p_transaction_no = G_JOB_TXN_NO THEN
185: OPEN get_wo_details(l_workorder_id);
186: FETCH get_wo_details INTO L_TITLE, L_status_code, l_unit_locked;
187: CLOSE get_wo_details;
188: IF l_unit_locked = FND_API.G_TRUE THEN
189:
190: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_QA_UNTLCKD');
191: FND_MSG_PUB.ADD;
192: RETURN FND_API.G_RET_STS_ERROR;
188: IF l_unit_locked = FND_API.G_TRUE THEN
189:
190: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_QA_UNTLCKD');
191: FND_MSG_PUB.ADD;
192: RETURN FND_API.G_RET_STS_ERROR;
193: END IF;
194: IF(L_STATUS_CODE IN ('1','4','5','7','12','21'))THEN
195: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_QA_CAP_NALLWD');
196: FND_MESSAGE.Set_Token('TITLE', L_TITLE);
194: IF(L_STATUS_CODE IN ('1','4','5','7','12','21'))THEN
195: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_QA_CAP_NALLWD');
196: FND_MESSAGE.Set_Token('TITLE', L_TITLE);
197: FND_MSG_PUB.ADD;
198: RETURN FND_API.G_RET_STS_ERROR;
199: END IF;
200:
201: ELSIF p_transaction_no = G_OP_TXN_NO THEN
202: OPEN get_op_details(l_workorder_operation_id);
201: ELSIF p_transaction_no = G_OP_TXN_NO THEN
202: OPEN get_op_details(l_workorder_operation_id);
203: FETCH get_op_details INTO L_TITLE, L_status_code, l_unit_locked;
204: CLOSE get_op_details;
205: IF l_unit_locked = FND_API.G_TRUE THEN
206:
207: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_OP_QA_UNTLCKD');
208: FND_MSG_PUB.ADD;
209: RETURN FND_API.G_RET_STS_ERROR;
205: IF l_unit_locked = FND_API.G_TRUE THEN
206:
207: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_OP_QA_UNTLCKD');
208: FND_MSG_PUB.ADD;
209: RETURN FND_API.G_RET_STS_ERROR;
210: END IF;
211: IF(L_STATUS_CODE IN ('1'))THEN
212: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_OP_QA_CAP_NALLWD');
213: FND_MESSAGE.Set_Token('TITLE', L_TITLE);
211: IF(L_STATUS_CODE IN ('1'))THEN
212: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_OP_QA_CAP_NALLWD');
213: FND_MESSAGE.Set_Token('TITLE', L_TITLE);
214: FND_MSG_PUB.ADD;
215: RETURN FND_API.G_RET_STS_ERROR;
216: END IF;
217: END IF;
218:
219:
220:
221: IF ( l_organization_id <> p_organization_id ) THEN
222: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ORG_MISMATCH' );
223: FND_MSG_PUB.add;
224: RETURN FND_API.G_RET_STS_ERROR;
225: END IF;
226:
227: IF ( p_collection_id IS NOT NULL AND
228: p_collection_id <> FND_API.G_MISS_NUM ) THEN
224: RETURN FND_API.G_RET_STS_ERROR;
225: END IF;
226:
227: IF ( p_collection_id IS NOT NULL AND
228: p_collection_id <> FND_API.G_MISS_NUM ) THEN
229: FOR results_cursor IN get_plan_from_results( p_collection_id ) LOOP
230: IF ( results_cursor.plan_id <> p_plan_id ) THEN
231: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_COLL_MANY_PLANS' );
232: FND_MSG_PUB.add;
230: IF ( results_cursor.plan_id <> p_plan_id ) THEN
231: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_COLL_MANY_PLANS' );
232: FND_MSG_PUB.add;
233: CLOSE get_plan_from_results;
234: RETURN FND_API.G_RET_STS_ERROR;
235: END IF;
236:
237: l_element_count := l_element_count + 1;
238: END LOOP;
239:
240: IF ( l_element_count = 1 ) THEN
241: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_COLL_NOT_FOUND' );
242: FND_MSG_PUB.add;
243: RETURN FND_API.G_RET_STS_ERROR;
244: END IF;
245:
246: END IF;
247:
263:
264: IF ( l_match_found = FALSE ) THEN
265: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_RESULTS_NO_PLAN_CHAR' );
266: FND_MSG_PUB.add;
267: RETURN FND_API.G_RET_STS_ERROR;
268: END IF;
269:
270: l_match_found := FALSE;
271:
282:
283: IF ( l_match_found = FALSE ) THEN
284: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_HIDDEN_NO_PLAN_CHAR' );
285: FND_MSG_PUB.add;
286: RETURN FND_API.G_RET_STS_ERROR;
287: END IF;
288:
289: l_match_found := FALSE;
290:
289: l_match_found := FALSE;
290:
291: END LOOP;
292:
293: RETURN FND_API.G_RET_STS_SUCCESS;
294: END validate_sqar_inputs;
295:
296: FUNCTION fire_ahl_actions
297: (
333: IF ( l_unit_effectivity_id IS NULL OR
334: l_object_version_number IS NULL ) THEN
335: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_UE_INPUTS' );
336: FND_MSG_PUB.add;
337: RETURN FND_API.G_RET_STS_ERROR;
338: END IF;
339:
340: -- Change to call capture_mr_updates
341: UPDATE AHL_UNIT_EFFECTIVITIES_B
349:
350: IF ( SQL%ROWCOUNT = 0 ) THEN
351: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_UE_NOT_FOUND' );
352: FND_MSG_PUB.add;
353: RETURN FND_API.G_RET_STS_ERROR;
354: END IF;
355:
356: ELSIF ( p_transaction_no = G_JOB_TXN_NO ) THEN
357:
358: IF ( l_workorder_id IS NULL OR
359: l_object_version_number IS NULL ) THEN
360: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_INPUTS' );
361: FND_MSG_PUB.add;
362: RETURN FND_API.G_RET_STS_ERROR;
363: END IF;
364:
365: UPDATE AHL_WORKORDERS
366: SET collection_id = p_collection_id,
373:
374: IF ( SQL%ROWCOUNT = 0 ) THEN
375: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_NOT_FOUND' );
376: FND_MSG_PUB.add;
377: RETURN FND_API.G_RET_STS_ERROR;
378: END IF;
379:
380: ELSIF ( p_transaction_no = G_OP_TXN_NO ) THEN
381:
382: IF ( l_workorder_operation_id IS NULL OR
383: l_object_version_number IS NULL ) THEN
384: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_COP_INPUTS' );
385: FND_MSG_PUB.add;
386: RETURN FND_API.G_RET_STS_ERROR;
387: END IF;
388:
389: UPDATE AHL_WORKORDER_OPERATIONS
390: SET collection_id = p_collection_id,
397:
398: IF ( SQL%ROWCOUNT = 0 ) THEN
399: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_NOT_FOUND' );
400: FND_MSG_PUB.add;
401: RETURN FND_API.G_RET_STS_ERROR;
402: END IF;
403:
404: ELSIF ( p_transaction_no = G_MRB_TXN_NO ) THEN
405: NULL;
406: ELSE
407: NULL;
408: END IF;
409:
410: RETURN FND_API.G_RET_STS_SUCCESS;
411:
412: END fire_ahl_actions;
413:
414: FUNCTION form_hidden_qa_result_string
451: END IF;
452:
453: END LOOP;
454:
455: RETURN FND_API.G_RET_STS_SUCCESS;
456: END form_hidden_qa_result_string;
457:
458: FUNCTION form_qa_result_string
459: (
479: END IF;
480:
481: END LOOP;
482:
483: RETURN FND_API.G_RET_STS_SUCCESS;
484: END form_qa_result_string;
485:
486: PROCEDURE submit_qa_results
487: (
485:
486: PROCEDURE submit_qa_results
487: (
488: p_api_version IN NUMBER := 1.0,
489: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
490: p_commit IN VARCHAR2 := FND_API.G_FALSE,
491: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
492: p_default IN VARCHAR2 := FND_API.G_FALSE,
493: p_module_type IN VARCHAR2 := NULL,
486: PROCEDURE submit_qa_results
487: (
488: p_api_version IN NUMBER := 1.0,
489: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
490: p_commit IN VARCHAR2 := FND_API.G_FALSE,
491: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
492: p_default IN VARCHAR2 := FND_API.G_FALSE,
493: p_module_type IN VARCHAR2 := NULL,
494: x_return_status OUT NOCOPY VARCHAR2,
487: (
488: p_api_version IN NUMBER := 1.0,
489: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
490: p_commit IN VARCHAR2 := FND_API.G_FALSE,
491: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
492: p_default IN VARCHAR2 := FND_API.G_FALSE,
493: p_module_type IN VARCHAR2 := NULL,
494: x_return_status OUT NOCOPY VARCHAR2,
495: x_msg_count OUT NOCOPY NUMBER,
488: p_api_version IN NUMBER := 1.0,
489: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
490: p_commit IN VARCHAR2 := FND_API.G_FALSE,
491: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
492: p_default IN VARCHAR2 := FND_API.G_FALSE,
493: p_module_type IN VARCHAR2 := NULL,
494: x_return_status OUT NOCOPY VARCHAR2,
495: x_msg_count OUT NOCOPY NUMBER,
496: x_msg_data OUT NOCOPY VARCHAR2,
525: AHL_DEBUG_PUB.enable_debug;
526: END IF;
527:
528: -- Initialize API return status to success
529: x_return_status := FND_API.G_RET_STS_SUCCESS;
530:
531: -- Standard Start of API savepoint
532: SAVEPOINT submit_qa_results_PVT;
533:
531: -- Standard Start of API savepoint
532: SAVEPOINT submit_qa_results_PVT;
533:
534: -- Initialize message list if p_init_msg_list is set to TRUE.
535: IF FND_API.to_boolean( p_init_msg_list ) THEN
536: FND_MSG_PUB.initialize;
537: END IF;
538:
539: l_return_status :=
549: p_result_commit_flag => p_result_commit_flag,
550: p_collection_id => p_x_collection_id
551: );
552:
553: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
554: RAISE FND_API.G_EXC_ERROR;
555: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
557: END IF;
550: p_collection_id => p_x_collection_id
551: );
552:
553: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
554: RAISE FND_API.G_EXC_ERROR;
555: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
557: END IF;
558:
551: );
552:
553: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
554: RAISE FND_API.G_EXC_ERROR;
555: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
557: END IF;
558:
559: IF G_DEBUG = 'Y' THEN
552:
553: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
554: RAISE FND_API.G_EXC_ERROR;
555: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
557: END IF;
558:
559: IF G_DEBUG = 'Y' THEN
560: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : After validating Inputs ' );
586: p_id_or_value => p_id_or_value,
587: x_result_string => l_hidden_result_string
588: );
589:
590: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
591: RAISE FND_API.G_EXC_ERROR;
592: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
594: END IF;
587: x_result_string => l_hidden_result_string
588: );
589:
590: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
591: RAISE FND_API.G_EXC_ERROR;
592: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
594: END IF;
595:
588: );
589:
590: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
591: RAISE FND_API.G_EXC_ERROR;
592: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
594: END IF;
595:
596: IF G_DEBUG = 'Y' THEN
589:
590: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
591: RAISE FND_API.G_EXC_ERROR;
592: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
594: END IF;
595:
596: IF G_DEBUG = 'Y' THEN
597: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : After Forming Hidden Result String : ' || l_hidden_result_string );
608: p_id_or_value => p_id_or_value,
609: x_result_string => l_result_string
610: );
611:
612: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
613: RAISE FND_API.G_EXC_ERROR;
614: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
616: END IF;
609: x_result_string => l_result_string
610: );
611:
612: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
613: RAISE FND_API.G_EXC_ERROR;
614: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
616: END IF;
617:
610: );
611:
612: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
613: RAISE FND_API.G_EXC_ERROR;
614: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
616: END IF;
617:
618: IF G_DEBUG = 'Y' THEN
611:
612: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
613: RAISE FND_API.G_EXC_ERROR;
614: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
616: END IF;
617:
618: IF G_DEBUG = 'Y' THEN
619: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : After Forming Result String : ' || l_result_string || ' for row : ' || i );
625: l_result_string := l_result_string || '@' || l_hidden_result_string;
626: END IF;
627:
628: IF ( p_transaction_no IS NULL OR
629: p_transaction_no = FND_API.G_MISS_NUM ) THEN
630: l_qa_post_result :=
631: QA_SS_RESULTS.nontxn_post_result
632: (
633: x_occurrence => l_occurrence,
694:
695: IF ( l_msg_data IS NULL ) THEN
696: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_POST_UNEXP_ERROR' );
697: FND_MSG_PUB.add;
698: RAISE FND_API.G_EXC_ERROR;
699: ELSE
700: x_return_status := FND_API.G_RET_STS_ERROR;
701: x_msg_data := l_msg_data;
702: x_msg_count := 1;
696: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_POST_UNEXP_ERROR' );
697: FND_MSG_PUB.add;
698: RAISE FND_API.G_EXC_ERROR;
699: ELSE
700: x_return_status := FND_API.G_RET_STS_ERROR;
701: x_msg_data := l_msg_data;
702: x_msg_count := 1;
703: RETURN;
704: END IF;
728: p_context_tbl => p_context_tbl,
729: p_collection_id => p_x_collection_id
730: );
731:
732: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
733: IF ( l_msg_data IS NOT NULL ) THEN
734: x_return_status := FND_API.G_RET_STS_ERROR;
735: x_msg_data := l_msg_data;
736: x_msg_count := 1;
730: );
731:
732: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
733: IF ( l_msg_data IS NOT NULL ) THEN
734: x_return_status := FND_API.G_RET_STS_ERROR;
735: x_msg_data := l_msg_data;
736: x_msg_count := 1;
737: RETURN;
738: ELSE
735: x_msg_data := l_msg_data;
736: x_msg_count := 1;
737: RETURN;
738: ELSE
739: RAISE FND_API.G_EXC_ERROR;
740: END IF;
741: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
742: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
743: END IF;
737: RETURN;
738: ELSE
739: RAISE FND_API.G_EXC_ERROR;
740: END IF;
741: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
742: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
743: END IF;
744:
745: IF G_DEBUG = 'Y' THEN
738: ELSE
739: RAISE FND_API.G_EXC_ERROR;
740: END IF;
741: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
742: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
743: END IF;
744:
745: IF G_DEBUG = 'Y' THEN
746: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : After Firing AHL Actions ' );
749:
750: -- Fix for bug# 5501482.
751: --IF ( l_committed = 1 ) THEN
752: IF ( l_committed = 2 ) THEN
753: --IF ( l_committed = 2 AND FND_API.to_boolean( p_commit ) ) THEN
754: QA_SEQUENCE_API.generate_seq_for_Txn
755: (
756: p_collection_id => p_x_collection_id,
757: p_return_status => l_return_status
755: (
756: p_collection_id => p_x_collection_id,
757: p_return_status => l_return_status
758: );
759: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
760: RAISE FND_API.G_EXC_ERROR;
761: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
763: END IF;
756: p_collection_id => p_x_collection_id,
757: p_return_status => l_return_status
758: );
759: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
760: RAISE FND_API.G_EXC_ERROR;
761: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
763: END IF;
764: QA_SS_RESULTS.wrapper_fire_action
757: p_return_status => l_return_status
758: );
759: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
760: RAISE FND_API.G_EXC_ERROR;
761: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
763: END IF;
764: QA_SS_RESULTS.wrapper_fire_action
765: (
758: );
759: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
760: RAISE FND_API.G_EXC_ERROR;
761: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
763: END IF;
764: QA_SS_RESULTS.wrapper_fire_action
765: (
766: q_collection_id => p_x_collection_id,
768: q_msg_count => l_msg_count,
769: q_msg_data => l_msg_data
770: );
771:
772: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
773: IF ( l_msg_data IS NULL ) THEN
774: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_ACTION_UNEXP_ERROR' );
775: FND_MSG_PUB.add;
776: RAISE FND_API.G_EXC_ERROR;
772: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
773: IF ( l_msg_data IS NULL ) THEN
774: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_ACTION_UNEXP_ERROR' );
775: FND_MSG_PUB.add;
776: RAISE FND_API.G_EXC_ERROR;
777: ELSE
778: x_return_status := FND_API.G_RET_STS_ERROR;
779: x_msg_data := l_msg_data;
780: x_msg_count := 1;
774: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_ACTION_UNEXP_ERROR' );
775: FND_MSG_PUB.add;
776: RAISE FND_API.G_EXC_ERROR;
777: ELSE
778: x_return_status := FND_API.G_RET_STS_ERROR;
779: x_msg_data := l_msg_data;
780: x_msg_count := 1;
781: RETURN;
782: END IF;
779: x_msg_data := l_msg_data;
780: x_msg_count := 1;
781: RETURN;
782: END IF;
783: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
784: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
785: END IF;
786:
787: IF G_DEBUG = 'Y' THEN
780: x_msg_count := 1;
781: RETURN;
782: END IF;
783: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
784: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
785: END IF;
786:
787: IF G_DEBUG = 'Y' THEN
788: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : After Firing QA Actions ' || l_msg_data );
794: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : returned message: ' || x_msg_data );
795: END IF;
796:
797: -- Perform the Commit (if requested)
798: IF ( FND_API.to_boolean( p_commit ) ) THEN
799: COMMIT WORK;
800: END IF;
801:
802:
805: END IF;
806:
807: EXCEPTION
808:
809: WHEN FND_API.G_EXC_ERROR THEN
810: ROLLBACK TO submit_qa_results_PVT;
811: x_return_status := FND_API.G_RET_STS_ERROR;
812: FND_MSG_PUB.count_and_get
813: (
807: EXCEPTION
808:
809: WHEN FND_API.G_EXC_ERROR THEN
810: ROLLBACK TO submit_qa_results_PVT;
811: x_return_status := FND_API.G_RET_STS_ERROR;
812: FND_MSG_PUB.count_and_get
813: (
814: p_encoded => FND_API.G_FALSE,
815: p_count => x_msg_count,
810: ROLLBACK TO submit_qa_results_PVT;
811: x_return_status := FND_API.G_RET_STS_ERROR;
812: FND_MSG_PUB.count_and_get
813: (
814: p_encoded => FND_API.G_FALSE,
815: p_count => x_msg_count,
816: p_data => x_msg_data
817: );
818:
819: IF ( G_DEBUG = 'Y' ) THEN
820: AHL_DEBUG_PUB.disable_debug;
821: END IF;
822:
823: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
824: ROLLBACK TO submit_qa_results_PVT;
825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
826: FND_MSG_PUB.count_and_get
827: (
821: END IF;
822:
823: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
824: ROLLBACK TO submit_qa_results_PVT;
825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
826: FND_MSG_PUB.count_and_get
827: (
828: p_encoded => FND_API.G_FALSE,
829: p_count => x_msg_count,
824: ROLLBACK TO submit_qa_results_PVT;
825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
826: FND_MSG_PUB.count_and_get
827: (
828: p_encoded => FND_API.G_FALSE,
829: p_count => x_msg_count,
830: p_data => x_msg_data
831: );
832:
835: END IF;
836:
837: WHEN OTHERS THEN
838: ROLLBACK TO submit_qa_results_PVT;
839: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
840: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
841: THEN
842: FND_MSG_PUB.add_exc_msg
843: (
847: );
848: END IF;
849: FND_MSG_PUB.count_and_get
850: (
851: p_encoded => FND_API.G_FALSE,
852: p_count => x_msg_count,
853: p_data => x_msg_data
854: );
855:
861:
862: PROCEDURE get_char_lov_sql
863: (
864: p_api_version IN NUMBER := 1.0,
865: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
866: p_commit IN VARCHAR2 := FND_API.G_FALSE,
867: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
868: p_default IN VARCHAR2 := FND_API.G_FALSE,
869: p_module_type IN VARCHAR2 := NULL,
862: PROCEDURE get_char_lov_sql
863: (
864: p_api_version IN NUMBER := 1.0,
865: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
866: p_commit IN VARCHAR2 := FND_API.G_FALSE,
867: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
868: p_default IN VARCHAR2 := FND_API.G_FALSE,
869: p_module_type IN VARCHAR2 := NULL,
870: x_return_status OUT NOCOPY VARCHAR2,
863: (
864: p_api_version IN NUMBER := 1.0,
865: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
866: p_commit IN VARCHAR2 := FND_API.G_FALSE,
867: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
868: p_default IN VARCHAR2 := FND_API.G_FALSE,
869: p_module_type IN VARCHAR2 := NULL,
870: x_return_status OUT NOCOPY VARCHAR2,
871: x_msg_count OUT NOCOPY NUMBER,
864: p_api_version IN NUMBER := 1.0,
865: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
866: p_commit IN VARCHAR2 := FND_API.G_FALSE,
867: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
868: p_default IN VARCHAR2 := FND_API.G_FALSE,
869: p_module_type IN VARCHAR2 := NULL,
870: x_return_status OUT NOCOPY VARCHAR2,
871: x_msg_count OUT NOCOPY NUMBER,
872: x_msg_data OUT NOCOPY VARCHAR2,
889: AHL_DEBUG_PUB.enable_debug;
890: END IF;
891:
892: -- Initialize API return status to success
893: x_return_status := FND_API.G_RET_STS_SUCCESS;
894:
895: -- Initialize message list if p_init_msg_list is set to TRUE.
896: IF FND_API.to_boolean( p_init_msg_list ) THEN
897: FND_MSG_PUB.initialize;
892: -- Initialize API return status to success
893: x_return_status := FND_API.G_RET_STS_SUCCESS;
894:
895: -- Initialize message list if p_init_msg_list is set to TRUE.
896: IF FND_API.to_boolean( p_init_msg_list ) THEN
897: FND_MSG_PUB.initialize;
898: END IF;
899:
900: x_char_lov_sql :=
922: );
923:
924: -- Error handling code added by balaji for bug # 4091726
925: IF FND_MSG_PUB.count_msg > 0 THEN
926: RAISE FND_API.G_EXC_ERROR;
927: END IF;
928:
929: IF ( x_char_lov_sql IS NULL ) THEN
930: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_CHAR_LOV_NULL' );
928:
929: IF ( x_char_lov_sql IS NULL ) THEN
930: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_CHAR_LOV_NULL' );
931: FND_MSG_PUB.add;
932: RAISE FND_API.G_EXC_ERROR;
933: END IF;
934:
935: IF ( G_DEBUG = 'Y' ) THEN
936: AHL_DEBUG_PUB.disable_debug;
937: END IF;
938:
939: EXCEPTION
940:
941: WHEN FND_API.G_EXC_ERROR THEN
942: x_return_status := FND_API.G_RET_STS_ERROR;
943: FND_MSG_PUB.count_and_get
944: (
945: p_encoded => FND_API.G_FALSE,
938:
939: EXCEPTION
940:
941: WHEN FND_API.G_EXC_ERROR THEN
942: x_return_status := FND_API.G_RET_STS_ERROR;
943: FND_MSG_PUB.count_and_get
944: (
945: p_encoded => FND_API.G_FALSE,
946: p_count => x_msg_count,
941: WHEN FND_API.G_EXC_ERROR THEN
942: x_return_status := FND_API.G_RET_STS_ERROR;
943: FND_MSG_PUB.count_and_get
944: (
945: p_encoded => FND_API.G_FALSE,
946: p_count => x_msg_count,
947: p_data => x_msg_data
948: );
949:
950: IF ( G_DEBUG = 'Y' ) THEN
951: AHL_DEBUG_PUB.disable_debug;
952: END IF;
953:
954: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
956: FND_MSG_PUB.count_and_get
957: (
958: p_encoded => FND_API.G_FALSE,
951: AHL_DEBUG_PUB.disable_debug;
952: END IF;
953:
954: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
956: FND_MSG_PUB.count_and_get
957: (
958: p_encoded => FND_API.G_FALSE,
959: p_count => x_msg_count,
954: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
956: FND_MSG_PUB.count_and_get
957: (
958: p_encoded => FND_API.G_FALSE,
959: p_count => x_msg_count,
960: p_data => x_msg_data
961: );
962:
964: AHL_DEBUG_PUB.disable_debug;
965: END IF;
966:
967: WHEN OTHERS THEN
968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
969: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
970: THEN
971: FND_MSG_PUB.add_exc_msg
972: (
976: );
977: END IF;
978: FND_MSG_PUB.count_and_get
979: (
980: p_encoded => FND_API.G_FALSE,
981: p_count => x_msg_count,
982: p_data => x_msg_data
983: );
984:
989:
990: PROCEDURE get_qa_plan
991: (
992: p_api_version IN NUMBER := 1.0,
993: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
994: p_commit IN VARCHAR2 := FND_API.G_FALSE,
995: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
996: p_default IN VARCHAR2 := FND_API.G_FALSE,
997: p_module_type IN VARCHAR2 := NULL,
990: PROCEDURE get_qa_plan
991: (
992: p_api_version IN NUMBER := 1.0,
993: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
994: p_commit IN VARCHAR2 := FND_API.G_FALSE,
995: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
996: p_default IN VARCHAR2 := FND_API.G_FALSE,
997: p_module_type IN VARCHAR2 := NULL,
998: x_return_status OUT NOCOPY VARCHAR2,
991: (
992: p_api_version IN NUMBER := 1.0,
993: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
994: p_commit IN VARCHAR2 := FND_API.G_FALSE,
995: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
996: p_default IN VARCHAR2 := FND_API.G_FALSE,
997: p_module_type IN VARCHAR2 := NULL,
998: x_return_status OUT NOCOPY VARCHAR2,
999: x_msg_count OUT NOCOPY NUMBER,
992: p_api_version IN NUMBER := 1.0,
993: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
994: p_commit IN VARCHAR2 := FND_API.G_FALSE,
995: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
996: p_default IN VARCHAR2 := FND_API.G_FALSE,
997: p_module_type IN VARCHAR2 := NULL,
998: x_return_status OUT NOCOPY VARCHAR2,
999: x_msg_count OUT NOCOPY NUMBER,
1000: x_msg_data OUT NOCOPY VARCHAR2,
1012: AHL_DEBUG_PUB.enable_debug;
1013: END IF;
1014:
1015: -- Initialize API return status to success
1016: x_return_status := FND_API.G_RET_STS_SUCCESS;
1017:
1018: -- Initialize message list if p_init_msg_list is set to TRUE.
1019: IF FND_API.to_boolean( p_init_msg_list ) THEN
1020: FND_MSG_PUB.initialize;
1015: -- Initialize API return status to success
1016: x_return_status := FND_API.G_RET_STS_SUCCESS;
1017:
1018: -- Initialize message list if p_init_msg_list is set to TRUE.
1019: IF FND_API.to_boolean( p_init_msg_list ) THEN
1020: FND_MSG_PUB.initialize;
1021: END IF;
1022:
1023: BEGIN
1039: x_plan_id := NULL;
1040: IF ( p_module_type = 'JSP' ) THEN
1041: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_PLAN_NOT_FOUND' );
1042: FND_MSG_PUB.add;
1043: RAISE FND_API.G_EXC_ERROR;
1044: ELSE
1045: RETURN;
1046: END IF;
1047: WHEN OTHERS THEN
1044: ELSE
1045: RETURN;
1046: END IF;
1047: WHEN OTHERS THEN
1048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1049: END;
1050:
1051: IF ( G_DEBUG = 'Y' ) THEN
1052: AHL_DEBUG_PUB.disable_debug;
1053: END IF;
1054:
1055: EXCEPTION
1056:
1057: WHEN FND_API.G_EXC_ERROR THEN
1058: x_return_status := FND_API.G_RET_STS_ERROR;
1059: FND_MSG_PUB.count_and_get
1060: (
1061: p_encoded => FND_API.G_FALSE,
1054:
1055: EXCEPTION
1056:
1057: WHEN FND_API.G_EXC_ERROR THEN
1058: x_return_status := FND_API.G_RET_STS_ERROR;
1059: FND_MSG_PUB.count_and_get
1060: (
1061: p_encoded => FND_API.G_FALSE,
1062: p_count => x_msg_count,
1057: WHEN FND_API.G_EXC_ERROR THEN
1058: x_return_status := FND_API.G_RET_STS_ERROR;
1059: FND_MSG_PUB.count_and_get
1060: (
1061: p_encoded => FND_API.G_FALSE,
1062: p_count => x_msg_count,
1063: p_data => x_msg_data
1064: );
1065:
1066: IF ( G_DEBUG = 'Y' ) THEN
1067: AHL_DEBUG_PUB.disable_debug;
1068: END IF;
1069:
1070: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1071: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1072: FND_MSG_PUB.count_and_get
1073: (
1074: p_encoded => FND_API.G_FALSE,
1067: AHL_DEBUG_PUB.disable_debug;
1068: END IF;
1069:
1070: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1071: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1072: FND_MSG_PUB.count_and_get
1073: (
1074: p_encoded => FND_API.G_FALSE,
1075: p_count => x_msg_count,
1070: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1071: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1072: FND_MSG_PUB.count_and_get
1073: (
1074: p_encoded => FND_API.G_FALSE,
1075: p_count => x_msg_count,
1076: p_data => x_msg_data
1077: );
1078:
1080: AHL_DEBUG_PUB.disable_debug;
1081: END IF;
1082:
1083: WHEN OTHERS THEN
1084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1085: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1086: THEN
1087: FND_MSG_PUB.add_exc_msg
1088: (
1092: );
1093: END IF;
1094: FND_MSG_PUB.count_and_get
1095: (
1096: p_encoded => FND_API.G_FALSE,
1097: p_count => x_msg_count,
1098: p_data => x_msg_data
1099: );
1100: