[Home] [Help]
27: FROM AHL_OPERATIONS_B
28: WHERE operation_id = c_operation_id;
29:
30: BEGIN
31: x_return_status := FND_API.G_RET_STS_SUCCESS;
32:
33: IF ( ( p_concatenated_segments IS NULL OR
34: p_concatenated_segments = FND_API.G_MISS_CHAR ) AND
35: ( p_x_operation_id IS NULL OR
30: BEGIN
31: x_return_status := FND_API.G_RET_STS_SUCCESS;
32:
33: IF ( ( p_concatenated_segments IS NULL OR
34: p_concatenated_segments = FND_API.G_MISS_CHAR ) AND
35: ( p_x_operation_id IS NULL OR
36: p_x_operation_id = FND_API.G_MISS_NUM ) ) THEN
37: x_return_status := FND_API.G_RET_STS_ERROR;
38: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
32:
33: IF ( ( p_concatenated_segments IS NULL OR
34: p_concatenated_segments = FND_API.G_MISS_CHAR ) AND
35: ( p_x_operation_id IS NULL OR
36: p_x_operation_id = FND_API.G_MISS_NUM ) ) THEN
37: x_return_status := FND_API.G_RET_STS_ERROR;
38: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
39: RETURN;
40: END IF;
33: IF ( ( p_concatenated_segments IS NULL OR
34: p_concatenated_segments = FND_API.G_MISS_CHAR ) AND
35: ( p_x_operation_id IS NULL OR
36: p_x_operation_id = FND_API.G_MISS_NUM ) ) THEN
37: x_return_status := FND_API.G_RET_STS_ERROR;
38: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
39: RETURN;
40: END IF;
41:
39: RETURN;
40: END IF;
41:
42: IF ( ( p_concatenated_segments IS NULL OR
43: p_concatenated_segments = FND_API.G_MISS_CHAR ) AND
44: ( p_x_operation_id IS NOT NULL AND
45: p_x_operation_id <> FND_API.G_MISS_NUM ) ) THEN
46:
47: OPEN get_rec_from_id( p_x_operation_id );
41:
42: IF ( ( p_concatenated_segments IS NULL OR
43: p_concatenated_segments = FND_API.G_MISS_CHAR ) AND
44: ( p_x_operation_id IS NOT NULL AND
45: p_x_operation_id <> FND_API.G_MISS_NUM ) ) THEN
46:
47: OPEN get_rec_from_id( p_x_operation_id );
48:
49: FETCH get_rec_from_id INTO
49: FETCH get_rec_from_id INTO
50: l_operation_id;
51:
52: IF get_rec_from_id%NOTFOUND THEN
53: x_return_status := FND_API.G_RET_STS_ERROR;
54: x_msg_data := 'AHL_RM_INVALID_OPERATON';
55: END IF;
56:
57: CLOSE get_rec_from_id;
59:
60: END IF;
61:
62: IF ( p_concatenated_segments IS NOT NULL AND
63: p_concatenated_segments <> FND_API.G_MISS_CHAR ) THEN
64:
65: OPEN get_rec_from_value( p_concatenated_segments );
66:
67: LOOP
77:
78: END LOOP;
79:
80: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
81: x_return_status := FND_API.G_RET_STS_ERROR;
82: x_msg_data := 'AHL_RM_INVALID_OPERATION';
83: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
84: p_x_operation_id := l_operation_id;
85: ELSE
82: x_msg_data := 'AHL_RM_INVALID_OPERATION';
83: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
84: p_x_operation_id := l_operation_id;
85: ELSE
86: x_return_status := FND_API.G_RET_STS_ERROR;
87: x_msg_data := 'AHL_RM_TOO_MANY_OPERATIONS';
88: END IF;
89:
90: CLOSE get_rec_from_value;
129: AND SYSDATE BETWEEN NVL( start_date_active, SYSDATE ) AND
130: NVL( end_date_active, SYSDATE );
131:
132: BEGIN
133: x_return_status := FND_API.G_RET_STS_SUCCESS;
134:
135: IF ( p_lookup_type IS NULL OR
136: p_lookup_type = FND_API.G_MISS_CHAR ) THEN
137: x_return_status := FND_API.G_RET_STS_ERROR;
132: BEGIN
133: x_return_status := FND_API.G_RET_STS_SUCCESS;
134:
135: IF ( p_lookup_type IS NULL OR
136: p_lookup_type = FND_API.G_MISS_CHAR ) THEN
137: x_return_status := FND_API.G_RET_STS_ERROR;
138: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
139: RETURN;
140: END IF;
133: x_return_status := FND_API.G_RET_STS_SUCCESS;
134:
135: IF ( p_lookup_type IS NULL OR
136: p_lookup_type = FND_API.G_MISS_CHAR ) THEN
137: x_return_status := FND_API.G_RET_STS_ERROR;
138: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
139: RETURN;
140: END IF;
141:
139: RETURN;
140: END IF;
141:
142: IF ( ( p_lookup_meaning IS NULL OR
143: p_lookup_meaning = FND_API.G_MISS_CHAR ) AND
144: ( p_x_lookup_code IS NULL OR
145: p_x_lookup_code = FND_API.G_MISS_CHAR ) ) THEN
146: x_return_status := FND_API.G_RET_STS_ERROR;
147: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
141:
142: IF ( ( p_lookup_meaning IS NULL OR
143: p_lookup_meaning = FND_API.G_MISS_CHAR ) AND
144: ( p_x_lookup_code IS NULL OR
145: p_x_lookup_code = FND_API.G_MISS_CHAR ) ) THEN
146: x_return_status := FND_API.G_RET_STS_ERROR;
147: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
148: RETURN;
149: END IF;
142: IF ( ( p_lookup_meaning IS NULL OR
143: p_lookup_meaning = FND_API.G_MISS_CHAR ) AND
144: ( p_x_lookup_code IS NULL OR
145: p_x_lookup_code = FND_API.G_MISS_CHAR ) ) THEN
146: x_return_status := FND_API.G_RET_STS_ERROR;
147: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
148: RETURN;
149: END IF;
150:
148: RETURN;
149: END IF;
150:
151: IF ( ( p_lookup_meaning IS NULL OR
152: p_lookup_meaning = FND_API.G_MISS_CHAR ) AND
153: ( p_x_lookup_code IS NOT NULL AND
154: p_x_lookup_code <> FND_API.G_MISS_CHAR ) ) THEN
155:
156: OPEN get_rec_from_id( p_lookup_type, p_x_lookup_code );
150:
151: IF ( ( p_lookup_meaning IS NULL OR
152: p_lookup_meaning = FND_API.G_MISS_CHAR ) AND
153: ( p_x_lookup_code IS NOT NULL AND
154: p_x_lookup_code <> FND_API.G_MISS_CHAR ) ) THEN
155:
156: OPEN get_rec_from_id( p_lookup_type, p_x_lookup_code );
157:
158: FETCH get_rec_from_id INTO
158: FETCH get_rec_from_id INTO
159: l_lookup_code;
160:
161: IF get_rec_from_id%NOTFOUND THEN
162: x_return_status := FND_API.G_RET_STS_ERROR;
163: x_msg_data := 'AHL_COM_INVALID_LOOKUP';
164: END IF;
165:
166: CLOSE get_rec_from_id;
168:
169: END IF;
170:
171: IF ( p_lookup_meaning IS NOT NULL AND
172: p_lookup_meaning <> FND_API.G_MISS_CHAR ) THEN
173:
174: OPEN get_rec_from_value( p_lookup_type, p_lookup_meaning );
175:
176: LOOP
186:
187: END LOOP;
188:
189: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
190: x_return_status := FND_API.G_RET_STS_ERROR;
191: x_msg_data := 'AHL_COM_INVALID_LOOKUP';
192: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
193: p_x_lookup_code := l_lookup_code;
194: ELSE
191: x_msg_data := 'AHL_COM_INVALID_LOOKUP';
192: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
193: p_x_lookup_code := l_lookup_code;
194: ELSE
195: x_return_status := FND_API.G_RET_STS_ERROR;
196: x_msg_data := 'AHL_COM_TOO_MANY_LOOKUPS';
197: END IF;
198:
199: CLOSE get_rec_from_value;
227: FROM HZ_PARTIES
228: WHERE party_id = c_operator_party_id;
229:
230: BEGIN
231: x_return_status := FND_API.G_RET_STS_SUCCESS;
232:
233: IF ( ( p_operator_name IS NULL OR
234: p_operator_name = FND_API.G_MISS_CHAR ) AND
235: ( p_x_operator_party_id IS NULL OR
230: BEGIN
231: x_return_status := FND_API.G_RET_STS_SUCCESS;
232:
233: IF ( ( p_operator_name IS NULL OR
234: p_operator_name = FND_API.G_MISS_CHAR ) AND
235: ( p_x_operator_party_id IS NULL OR
236: p_x_operator_party_id = FND_API.G_MISS_NUM ) ) THEN
237: x_return_status := FND_API.G_RET_STS_ERROR;
238: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
232:
233: IF ( ( p_operator_name IS NULL OR
234: p_operator_name = FND_API.G_MISS_CHAR ) AND
235: ( p_x_operator_party_id IS NULL OR
236: p_x_operator_party_id = FND_API.G_MISS_NUM ) ) THEN
237: x_return_status := FND_API.G_RET_STS_ERROR;
238: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
239: RETURN;
240: END IF;
233: IF ( ( p_operator_name IS NULL OR
234: p_operator_name = FND_API.G_MISS_CHAR ) AND
235: ( p_x_operator_party_id IS NULL OR
236: p_x_operator_party_id = FND_API.G_MISS_NUM ) ) THEN
237: x_return_status := FND_API.G_RET_STS_ERROR;
238: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
239: RETURN;
240: END IF;
241:
239: RETURN;
240: END IF;
241:
242: IF ( ( p_operator_name IS NULL OR
243: p_operator_name = FND_API.G_MISS_CHAR ) AND
244: ( p_x_operator_party_id IS NOT NULL AND
245: p_x_operator_party_id <> FND_API.G_MISS_NUM ) ) THEN
246:
247: OPEN get_rec_from_id( p_x_operator_party_id );
241:
242: IF ( ( p_operator_name IS NULL OR
243: p_operator_name = FND_API.G_MISS_CHAR ) AND
244: ( p_x_operator_party_id IS NOT NULL AND
245: p_x_operator_party_id <> FND_API.G_MISS_NUM ) ) THEN
246:
247: OPEN get_rec_from_id( p_x_operator_party_id );
248:
249: FETCH get_rec_from_id INTO
249: FETCH get_rec_from_id INTO
250: l_operator_party_id;
251:
252: IF get_rec_from_id%NOTFOUND THEN
253: x_return_status := FND_API.G_RET_STS_ERROR;
254: x_msg_data := 'AHL_RM_INVALID_OPERATOR';
255: END IF;
256:
257: CLOSE get_rec_from_id;
259:
260: END IF;
261:
262: IF ( p_operator_name IS NOT NULL AND
263: p_operator_name <> FND_API.G_MISS_CHAR ) THEN
264:
265: OPEN get_rec_from_value( p_operator_name );
266:
267: LOOP
277:
278: END LOOP;
279:
280: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
281: x_return_status := FND_API.G_RET_STS_ERROR;
282: x_msg_data := 'AHL_RM_INVALID_OPERATOR';
283: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
284: p_x_operator_party_id := l_operator_party_id;
285: ELSE
282: x_msg_data := 'AHL_RM_INVALID_OPERATOR';
283: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
284: p_x_operator_party_id := l_operator_party_id;
285: ELSE
286: x_return_status := FND_API.G_RET_STS_ERROR;
287: x_msg_data := 'AHL_RM_TOO_MANY_OPERATORS';
288: END IF;
289:
290: CLOSE get_rec_from_value;
408: */
409:
410:
411: BEGIN
412: x_return_status := FND_API.G_RET_STS_SUCCESS;
413:
414: IF ( ( p_item_number IS NULL OR
415: p_item_number = FND_API.G_MISS_CHAR ) AND
416: ( p_x_inventory_item_id IS NULL OR
411: BEGIN
412: x_return_status := FND_API.G_RET_STS_SUCCESS;
413:
414: IF ( ( p_item_number IS NULL OR
415: p_item_number = FND_API.G_MISS_CHAR ) AND
416: ( p_x_inventory_item_id IS NULL OR
417: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
418: ( p_x_inventory_org_id IS NULL OR
419: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
413:
414: IF ( ( p_item_number IS NULL OR
415: p_item_number = FND_API.G_MISS_CHAR ) AND
416: ( p_x_inventory_item_id IS NULL OR
417: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
418: ( p_x_inventory_org_id IS NULL OR
419: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
420: x_return_status := FND_API.G_RET_STS_ERROR;
421: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
415: p_item_number = FND_API.G_MISS_CHAR ) AND
416: ( p_x_inventory_item_id IS NULL OR
417: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
418: ( p_x_inventory_org_id IS NULL OR
419: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
420: x_return_status := FND_API.G_RET_STS_ERROR;
421: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
422: RETURN;
423: END IF;
416: ( p_x_inventory_item_id IS NULL OR
417: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
418: ( p_x_inventory_org_id IS NULL OR
419: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
420: x_return_status := FND_API.G_RET_STS_ERROR;
421: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
422: RETURN;
423: END IF;
424:
422: RETURN;
423: END IF;
424:
425: IF ( ( p_item_number IS NULL OR
426: p_item_number = FND_API.G_MISS_CHAR ) AND
427: ( p_x_inventory_item_id IS NOT NULL AND
428: p_x_inventory_item_id <> FND_API.G_MISS_NUM AND
429: p_x_inventory_org_id IS NOT NULL AND
430: p_x_inventory_org_id <> FND_API.G_MISS_NUM ) ) THEN
424:
425: IF ( ( p_item_number IS NULL OR
426: p_item_number = FND_API.G_MISS_CHAR ) AND
427: ( p_x_inventory_item_id IS NOT NULL AND
428: p_x_inventory_item_id <> FND_API.G_MISS_NUM AND
429: p_x_inventory_org_id IS NOT NULL AND
430: p_x_inventory_org_id <> FND_API.G_MISS_NUM ) ) THEN
431:
432: OPEN get_rec_from_id( p_x_inventory_item_id , p_x_inventory_org_id );
426: p_item_number = FND_API.G_MISS_CHAR ) AND
427: ( p_x_inventory_item_id IS NOT NULL AND
428: p_x_inventory_item_id <> FND_API.G_MISS_NUM AND
429: p_x_inventory_org_id IS NOT NULL AND
430: p_x_inventory_org_id <> FND_API.G_MISS_NUM ) ) THEN
431:
432: OPEN get_rec_from_id( p_x_inventory_item_id , p_x_inventory_org_id );
433:
434: FETCH get_rec_from_id INTO
436: l_inventory_org_id,
437: l_inventory_item_flag;
438:
439: IF ( get_rec_from_id%NOTFOUND ) THEN
440: x_return_status := FND_API.G_RET_STS_ERROR;
441: x_msg_data := 'AHL_COM_INVALID_ITEM';
442: ELSE
443: IF ( l_inventory_item_flag = 'N' ) THEN
444: x_return_status := FND_API.G_RET_STS_ERROR;
440: x_return_status := FND_API.G_RET_STS_ERROR;
441: x_msg_data := 'AHL_COM_INVALID_ITEM';
442: ELSE
443: IF ( l_inventory_item_flag = 'N' ) THEN
444: x_return_status := FND_API.G_RET_STS_ERROR;
445: x_msg_data := 'AHL_COM_NOT_COMPONENT_ITEM';
446: END IF;
447: END IF;
448:
451:
452: END IF;
453:
454: IF ( p_item_number IS NOT NULL AND
455: p_item_number <> FND_API.G_MISS_CHAR ) THEN
456:
457: OPEN get_rec_from_value( p_item_number , p_x_inventory_org_id);
458:
459: LOOP
473:
474: END LOOP;
475:
476: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
477: x_return_status := FND_API.G_RET_STS_ERROR;
478: x_msg_data := 'AHL_COM_INVALID_ITEM';
479: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
480: IF ( l_inventory_item_flag = 'N' ) THEN
481: x_return_status := FND_API.G_RET_STS_ERROR;
477: x_return_status := FND_API.G_RET_STS_ERROR;
478: x_msg_data := 'AHL_COM_INVALID_ITEM';
479: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
480: IF ( l_inventory_item_flag = 'N' ) THEN
481: x_return_status := FND_API.G_RET_STS_ERROR;
482: x_msg_data := 'AHL_COM_NOT_COMPONENT_ITEM';
483: ELSE
484: p_x_inventory_item_id := l_inventory_item_id;
485: p_x_inventory_org_id := l_inventory_org_id;
484: p_x_inventory_item_id := l_inventory_item_id;
485: p_x_inventory_org_id := l_inventory_org_id;
486: END IF;
487: ELSE
488: x_return_status := FND_API.G_RET_STS_ERROR;
489: x_msg_data := 'AHL_COM_TOO_MANY_ITEMS';
490: END IF;
491:
492: CLOSE get_rec_from_value;
617: order by 1;
618: */
619:
620: BEGIN
621: x_return_status := FND_API.G_RET_STS_SUCCESS;
622:
623: IF ( ( p_item_number IS NULL OR
624: p_item_number = FND_API.G_MISS_CHAR ) AND
625: ( p_x_inventory_item_id IS NULL OR
620: BEGIN
621: x_return_status := FND_API.G_RET_STS_SUCCESS;
622:
623: IF ( ( p_item_number IS NULL OR
624: p_item_number = FND_API.G_MISS_CHAR ) AND
625: ( p_x_inventory_item_id IS NULL OR
626: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
627: ( p_x_inventory_org_id IS NULL OR
628: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
622:
623: IF ( ( p_item_number IS NULL OR
624: p_item_number = FND_API.G_MISS_CHAR ) AND
625: ( p_x_inventory_item_id IS NULL OR
626: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
627: ( p_x_inventory_org_id IS NULL OR
628: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
629: x_return_status := FND_API.G_RET_STS_ERROR;
630: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
624: p_item_number = FND_API.G_MISS_CHAR ) AND
625: ( p_x_inventory_item_id IS NULL OR
626: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
627: ( p_x_inventory_org_id IS NULL OR
628: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
629: x_return_status := FND_API.G_RET_STS_ERROR;
630: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
631: RETURN;
632: END IF;
625: ( p_x_inventory_item_id IS NULL OR
626: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
627: ( p_x_inventory_org_id IS NULL OR
628: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
629: x_return_status := FND_API.G_RET_STS_ERROR;
630: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
631: RETURN;
632: END IF;
633:
631: RETURN;
632: END IF;
633:
634: IF ( ( p_item_number IS NULL OR
635: p_item_number = FND_API.G_MISS_CHAR ) AND
636: ( p_x_inventory_item_id IS NOT NULL AND
637: p_x_inventory_item_id <> FND_API.G_MISS_NUM AND
638: p_x_inventory_org_id IS NOT NULL AND
639: p_x_inventory_org_id <> FND_API.G_MISS_NUM ) ) THEN
633:
634: IF ( ( p_item_number IS NULL OR
635: p_item_number = FND_API.G_MISS_CHAR ) AND
636: ( p_x_inventory_item_id IS NOT NULL AND
637: p_x_inventory_item_id <> FND_API.G_MISS_NUM AND
638: p_x_inventory_org_id IS NOT NULL AND
639: p_x_inventory_org_id <> FND_API.G_MISS_NUM ) ) THEN
640:
641: OPEN get_rec_from_id( p_x_inventory_item_id , p_x_inventory_org_id );
635: p_item_number = FND_API.G_MISS_CHAR ) AND
636: ( p_x_inventory_item_id IS NOT NULL AND
637: p_x_inventory_item_id <> FND_API.G_MISS_NUM AND
638: p_x_inventory_org_id IS NOT NULL AND
639: p_x_inventory_org_id <> FND_API.G_MISS_NUM ) ) THEN
640:
641: OPEN get_rec_from_id( p_x_inventory_item_id , p_x_inventory_org_id );
642:
643: FETCH get_rec_from_id INTO
648: l_stock_enabled_flag ;
649: --l_wip_supply_type; --pdoki commented for Bug 8589785
650:
651: IF ( get_rec_from_id%NOTFOUND ) THEN
652: x_return_status := FND_API.G_RET_STS_ERROR;
653: x_msg_data := 'AHL_COM_INVALID_ITEM';
654: ELSE
655: IF ( l_inventory_item_flag = 'N' OR
656: l_mtl_txns_enabled_flag = 'N' OR
655: IF ( l_inventory_item_flag = 'N' OR
656: l_mtl_txns_enabled_flag = 'N' OR
657: l_stock_enabled_flag = 'N' ) THEN
658:
659: x_return_status := FND_API.G_RET_STS_ERROR;
660: x_msg_data := 'AHL_COM_NOT_COMPONENT_ITEM';
661: END IF;
662: END IF;
663:
666:
667: END IF;
668:
669: IF ( p_item_number IS NOT NULL AND
670: p_item_number <> FND_API.G_MISS_CHAR ) THEN
671:
672: OPEN get_rec_from_value( p_item_number , p_x_inventory_org_id);
673:
674: -- JKJain, bug 8766220 , Loop not required as cursor is expected to return only one row. That is the reason to add DISTINCT in the two cursors.
695:
696: -- END LOOP;
697:
698: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
699: x_return_status := FND_API.G_RET_STS_ERROR;
700: x_msg_data := 'AHL_COM_INVALID_ITEM';
701: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
702: IF ( l_inventory_item_flag = 'N' OR
703: l_stock_enabled_flag = 'N' OR
702: IF ( l_inventory_item_flag = 'N' OR
703: l_stock_enabled_flag = 'N' OR
704: l_mtl_txns_enabled_flag = 'N' ) THEN
705:
706: x_return_status := FND_API.G_RET_STS_ERROR;
707: x_msg_data := 'AHL_COM_NOT_COMPONENT_ITEM';
708: ELSE
709: p_x_inventory_item_id := l_inventory_item_id;
710: p_x_inventory_org_id := l_inventory_org_id;
709: p_x_inventory_item_id := l_inventory_item_id;
710: p_x_inventory_org_id := l_inventory_org_id;
711: END IF;
712: ELSE
713: x_return_status := FND_API.G_RET_STS_ERROR;
714: x_msg_data := 'AHL_COM_TOO_MANY_ITEMS';
715: END IF;
716:
717: CLOSE get_rec_from_value;
773: AND SYSDATE BETWEEN NVL( MI.start_date_active, SYSDATE )
774: AND NVL( MI.end_date_active, SYSDATE );
775:
776: BEGIN
777: x_return_status := FND_API.G_RET_STS_SUCCESS;
778:
779: IF ( ( p_item_number IS NULL OR
780: p_item_number = FND_API.G_MISS_CHAR ) AND
781: ( p_x_inventory_item_id IS NULL OR
776: BEGIN
777: x_return_status := FND_API.G_RET_STS_SUCCESS;
778:
779: IF ( ( p_item_number IS NULL OR
780: p_item_number = FND_API.G_MISS_CHAR ) AND
781: ( p_x_inventory_item_id IS NULL OR
782: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
783: ( p_x_inventory_org_id IS NULL OR
784: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
778:
779: IF ( ( p_item_number IS NULL OR
780: p_item_number = FND_API.G_MISS_CHAR ) AND
781: ( p_x_inventory_item_id IS NULL OR
782: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
783: ( p_x_inventory_org_id IS NULL OR
784: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
785: x_return_status := FND_API.G_RET_STS_ERROR;
786: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
780: p_item_number = FND_API.G_MISS_CHAR ) AND
781: ( p_x_inventory_item_id IS NULL OR
782: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
783: ( p_x_inventory_org_id IS NULL OR
784: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
785: x_return_status := FND_API.G_RET_STS_ERROR;
786: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
787: RETURN;
788: END IF;
781: ( p_x_inventory_item_id IS NULL OR
782: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
783: ( p_x_inventory_org_id IS NULL OR
784: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
785: x_return_status := FND_API.G_RET_STS_ERROR;
786: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
787: RETURN;
788: END IF;
789:
787: RETURN;
788: END IF;
789:
790: IF ( ( p_item_number IS NULL OR
791: p_item_number = FND_API.G_MISS_CHAR ) AND
792: ( p_x_inventory_item_id IS NOT NULL AND
793: p_x_inventory_item_id <> FND_API.G_MISS_NUM AND
794: p_x_inventory_org_id IS NOT NULL AND
795: p_x_inventory_org_id <> FND_API.G_MISS_NUM ) ) THEN
789:
790: IF ( ( p_item_number IS NULL OR
791: p_item_number = FND_API.G_MISS_CHAR ) AND
792: ( p_x_inventory_item_id IS NOT NULL AND
793: p_x_inventory_item_id <> FND_API.G_MISS_NUM AND
794: p_x_inventory_org_id IS NOT NULL AND
795: p_x_inventory_org_id <> FND_API.G_MISS_NUM ) ) THEN
796:
797: OPEN get_rec_from_id( p_x_inventory_item_id , p_x_inventory_org_id );
791: p_item_number = FND_API.G_MISS_CHAR ) AND
792: ( p_x_inventory_item_id IS NOT NULL AND
793: p_x_inventory_item_id <> FND_API.G_MISS_NUM AND
794: p_x_inventory_org_id IS NOT NULL AND
795: p_x_inventory_org_id <> FND_API.G_MISS_NUM ) ) THEN
796:
797: OPEN get_rec_from_id( p_x_inventory_item_id , p_x_inventory_org_id );
798:
799: FETCH get_rec_from_id INTO
803: l_purchasing_item_flag,
804: l_purchasing_enabled_flag;
805:
806: IF ( get_rec_from_id%NOTFOUND ) THEN
807: x_return_status := FND_API.G_RET_STS_ERROR;
808: x_msg_data := 'AHL_COM_INVALID_ITEM';
809: ELSE
810: IF ( l_outside_operation_flag = 'Y' OR
811: l_purchasing_item_flag = 'N' OR
809: ELSE
810: IF ( l_outside_operation_flag = 'Y' OR
811: l_purchasing_item_flag = 'N' OR
812: l_purchasing_enabled_flag = 'N' ) THEN
813: x_return_status := FND_API.G_RET_STS_ERROR;
814: x_msg_data := 'AHL_COM_NOT_SERVICE_ITEM';
815: END IF;
816: END IF;
817:
820:
821: END IF;
822:
823: IF ( p_item_number IS NOT NULL AND
824: p_item_number <> FND_API.G_MISS_CHAR ) THEN
825:
826: OPEN get_rec_from_value( p_item_number );
827:
828: LOOP
846:
847: END LOOP;
848:
849: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
850: x_return_status := FND_API.G_RET_STS_ERROR;
851: x_msg_data := 'AHL_COM_INVALID_ITEM';
852: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
853: IF ( l_outside_operation_flag = 'Y' OR
854: l_purchasing_enabled_flag = 'N' OR
852: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
853: IF ( l_outside_operation_flag = 'Y' OR
854: l_purchasing_enabled_flag = 'N' OR
855: l_purchasing_item_flag = 'N' ) THEN
856: x_return_status := FND_API.G_RET_STS_ERROR;
857: x_msg_data := 'AHL_COM_NOT_SERVICE_ITEM';
858: ELSE
859: p_x_inventory_item_id := l_inventory_item_id;
860: p_x_inventory_org_id := l_inventory_org_id;
859: p_x_inventory_item_id := l_inventory_item_id;
860: p_x_inventory_org_id := l_inventory_org_id;
861: END IF;
862: ELSE
863: x_return_status := FND_API.G_RET_STS_ERROR;
864: x_msg_data := 'AHL_COM_TOO_MANY_ITEMS';
865: END IF;
866:
867: CLOSE get_rec_from_value;
985: */
986:
987:
988: BEGIN
989: x_return_status := FND_API.G_RET_STS_SUCCESS;
990:
991: IF ( ( p_item_number IS NULL OR
992: p_item_number = FND_API.G_MISS_CHAR ) AND
993: ( p_x_inventory_item_id IS NULL OR
988: BEGIN
989: x_return_status := FND_API.G_RET_STS_SUCCESS;
990:
991: IF ( ( p_item_number IS NULL OR
992: p_item_number = FND_API.G_MISS_CHAR ) AND
993: ( p_x_inventory_item_id IS NULL OR
994: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
995: ( p_x_inventory_org_id IS NULL OR
996: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
990:
991: IF ( ( p_item_number IS NULL OR
992: p_item_number = FND_API.G_MISS_CHAR ) AND
993: ( p_x_inventory_item_id IS NULL OR
994: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
995: ( p_x_inventory_org_id IS NULL OR
996: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
997: x_return_status := FND_API.G_RET_STS_ERROR;
998: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
992: p_item_number = FND_API.G_MISS_CHAR ) AND
993: ( p_x_inventory_item_id IS NULL OR
994: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
995: ( p_x_inventory_org_id IS NULL OR
996: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
997: x_return_status := FND_API.G_RET_STS_ERROR;
998: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
999: RETURN;
1000: END IF;
993: ( p_x_inventory_item_id IS NULL OR
994: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
995: ( p_x_inventory_org_id IS NULL OR
996: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
997: x_return_status := FND_API.G_RET_STS_ERROR;
998: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
999: RETURN;
1000: END IF;
1001:
999: RETURN;
1000: END IF;
1001:
1002: IF ( (
1003: ( p_item_number IS NULL OR p_item_number = FND_API.G_MISS_CHAR )
1004: OR ( p_org_code IS NULL OR p_org_code = FND_API.G_MISS_CHAR )
1005: )
1006: AND
1007: (
1000: END IF;
1001:
1002: IF ( (
1003: ( p_item_number IS NULL OR p_item_number = FND_API.G_MISS_CHAR )
1004: OR ( p_org_code IS NULL OR p_org_code = FND_API.G_MISS_CHAR )
1005: )
1006: AND
1007: (
1008: ( p_x_inventory_item_id IS NOT NULL AND p_x_inventory_item_id <> FND_API.G_MISS_NUM )
1004: OR ( p_org_code IS NULL OR p_org_code = FND_API.G_MISS_CHAR )
1005: )
1006: AND
1007: (
1008: ( p_x_inventory_item_id IS NOT NULL AND p_x_inventory_item_id <> FND_API.G_MISS_NUM )
1009: AND ( p_x_inventory_org_id IS NOT NULL AND p_x_inventory_org_id <> FND_API.G_MISS_NUM )
1010: )
1011: ) THEN
1012:
1005: )
1006: AND
1007: (
1008: ( p_x_inventory_item_id IS NOT NULL AND p_x_inventory_item_id <> FND_API.G_MISS_NUM )
1009: AND ( p_x_inventory_org_id IS NOT NULL AND p_x_inventory_org_id <> FND_API.G_MISS_NUM )
1010: )
1011: ) THEN
1012:
1013: OPEN get_rec_from_id( p_x_inventory_item_id , p_x_inventory_org_id );
1017: l_inventory_org_id,
1018: l_comms_nl_trackable_flag;
1019:
1020: IF ( get_rec_from_id%NOTFOUND ) THEN
1021: x_return_status := FND_API.G_RET_STS_ERROR;
1022: x_msg_data := 'AHL_COM_INVALID_ITEM';
1023: ELSE
1024: IF ( l_comms_nl_trackable_flag = 'N' ) THEN
1025: x_return_status := FND_API.G_RET_STS_ERROR;
1021: x_return_status := FND_API.G_RET_STS_ERROR;
1022: x_msg_data := 'AHL_COM_INVALID_ITEM';
1023: ELSE
1024: IF ( l_comms_nl_trackable_flag = 'N' ) THEN
1025: x_return_status := FND_API.G_RET_STS_ERROR;
1026: x_msg_data := 'AHL_COM_NOT_effectivity_ITEM';
1027: END IF;
1028: END IF;
1029:
1031: RETURN;
1032:
1033: END IF;
1034:
1035: IF ( (p_item_number IS NOT NULL AND p_item_number <> FND_API.G_MISS_CHAR )
1036: AND(p_org_code IS NOT NULL AND p_item_number <> FND_API.G_MISS_CHAR)
1037: ) THEN
1038:
1039: OPEN get_rec_from_value( p_item_number, p_org_code);
1032:
1033: END IF;
1034:
1035: IF ( (p_item_number IS NOT NULL AND p_item_number <> FND_API.G_MISS_CHAR )
1036: AND(p_org_code IS NOT NULL AND p_item_number <> FND_API.G_MISS_CHAR)
1037: ) THEN
1038:
1039: OPEN get_rec_from_value( p_item_number, p_org_code);
1040:
1055:
1056: END LOOP;
1057:
1058: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
1059: x_return_status := FND_API.G_RET_STS_ERROR;
1060: x_msg_data := 'AHL_COM_INVALID_ITEM';
1061: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1062: IF ( l_comms_nl_trackable_flag = 'N' ) THEN
1063: x_return_status := FND_API.G_RET_STS_ERROR;
1059: x_return_status := FND_API.G_RET_STS_ERROR;
1060: x_msg_data := 'AHL_COM_INVALID_ITEM';
1061: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1062: IF ( l_comms_nl_trackable_flag = 'N' ) THEN
1063: x_return_status := FND_API.G_RET_STS_ERROR;
1064: x_msg_data := 'AHL_COM_NOT_effectivity_ITEM';
1065: ELSE
1066: p_x_inventory_item_id := l_inventory_item_id;
1067: p_x_inventory_org_id := l_inventory_org_id;
1066: p_x_inventory_item_id := l_inventory_item_id;
1067: p_x_inventory_org_id := l_inventory_org_id;
1068: END IF;
1069: ELSE
1070: x_return_status := FND_API.G_RET_STS_ERROR;
1071: x_msg_data := 'AHL_COM_TOO_MANY_ITEMS';
1072: END IF;
1073:
1074: CLOSE get_rec_from_value;
1110: AND organization_id = c_accounting_class_org_id
1111: AND class_type = 6;
1112:
1113: BEGIN
1114: x_return_status := FND_API.G_RET_STS_SUCCESS;
1115:
1116: IF ( ( p_accounting_class IS NULL OR
1117: p_accounting_class = FND_API.G_MISS_CHAR ) AND
1118: ( p_x_accounting_class_code IS NULL OR
1113: BEGIN
1114: x_return_status := FND_API.G_RET_STS_SUCCESS;
1115:
1116: IF ( ( p_accounting_class IS NULL OR
1117: p_accounting_class = FND_API.G_MISS_CHAR ) AND
1118: ( p_x_accounting_class_code IS NULL OR
1119: p_x_accounting_class_code = FND_API.G_MISS_CHAR ) AND
1120: ( p_x_accounting_class_org_id IS NULL OR
1121: p_x_accounting_class_org_id = FND_API.G_MISS_NUM ) ) THEN
1115:
1116: IF ( ( p_accounting_class IS NULL OR
1117: p_accounting_class = FND_API.G_MISS_CHAR ) AND
1118: ( p_x_accounting_class_code IS NULL OR
1119: p_x_accounting_class_code = FND_API.G_MISS_CHAR ) AND
1120: ( p_x_accounting_class_org_id IS NULL OR
1121: p_x_accounting_class_org_id = FND_API.G_MISS_NUM ) ) THEN
1122: x_return_status := FND_API.G_RET_STS_ERROR;
1123: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1117: p_accounting_class = FND_API.G_MISS_CHAR ) AND
1118: ( p_x_accounting_class_code IS NULL OR
1119: p_x_accounting_class_code = FND_API.G_MISS_CHAR ) AND
1120: ( p_x_accounting_class_org_id IS NULL OR
1121: p_x_accounting_class_org_id = FND_API.G_MISS_NUM ) ) THEN
1122: x_return_status := FND_API.G_RET_STS_ERROR;
1123: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1124: RETURN;
1125: END IF;
1118: ( p_x_accounting_class_code IS NULL OR
1119: p_x_accounting_class_code = FND_API.G_MISS_CHAR ) AND
1120: ( p_x_accounting_class_org_id IS NULL OR
1121: p_x_accounting_class_org_id = FND_API.G_MISS_NUM ) ) THEN
1122: x_return_status := FND_API.G_RET_STS_ERROR;
1123: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1124: RETURN;
1125: END IF;
1126:
1124: RETURN;
1125: END IF;
1126:
1127: IF ( ( p_accounting_class IS NULL OR
1128: p_accounting_class = FND_API.G_MISS_CHAR ) AND
1129: ( p_x_accounting_class_code IS NOT NULL AND
1130: p_x_accounting_class_code <> FND_API.G_MISS_CHAR AND
1131: p_x_accounting_class_org_id IS NOT NULL AND
1132: p_x_accounting_class_org_id <> FND_API.G_MISS_NUM ) ) THEN
1126:
1127: IF ( ( p_accounting_class IS NULL OR
1128: p_accounting_class = FND_API.G_MISS_CHAR ) AND
1129: ( p_x_accounting_class_code IS NOT NULL AND
1130: p_x_accounting_class_code <> FND_API.G_MISS_CHAR AND
1131: p_x_accounting_class_org_id IS NOT NULL AND
1132: p_x_accounting_class_org_id <> FND_API.G_MISS_NUM ) ) THEN
1133:
1134: OPEN get_rec_from_id( p_x_accounting_class_code , p_x_accounting_class_org_id );
1128: p_accounting_class = FND_API.G_MISS_CHAR ) AND
1129: ( p_x_accounting_class_code IS NOT NULL AND
1130: p_x_accounting_class_code <> FND_API.G_MISS_CHAR AND
1131: p_x_accounting_class_org_id IS NOT NULL AND
1132: p_x_accounting_class_org_id <> FND_API.G_MISS_NUM ) ) THEN
1133:
1134: OPEN get_rec_from_id( p_x_accounting_class_code , p_x_accounting_class_org_id );
1135:
1136: FETCH get_rec_from_id INTO
1137: l_accounting_class_code,
1138: l_accounting_class_org_id;
1139:
1140: IF get_rec_from_id%NOTFOUND THEN
1141: x_return_status := FND_API.G_RET_STS_ERROR;
1142: x_msg_data := 'AHL_RM_INVALID_ACC_CLASS';
1143: END IF;
1144:
1145: CLOSE get_rec_from_id;
1147:
1148: END IF;
1149:
1150: IF ( p_accounting_class IS NOT NULL AND
1151: p_accounting_class <> FND_API.G_MISS_CHAR ) THEN
1152:
1153: OPEN get_rec_from_value( p_accounting_class );
1154:
1155: LOOP
1167:
1168: END LOOP;
1169:
1170: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
1171: x_return_status := FND_API.G_RET_STS_ERROR;
1172: x_msg_data := 'AHL_RM_INVALID_ACC_CLASS';
1173: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1174: p_x_accounting_class_code := l_accounting_class_code;
1175: p_x_accounting_class_org_id := l_accounting_class_org_id;
1173: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1174: p_x_accounting_class_code := l_accounting_class_code;
1175: p_x_accounting_class_org_id := l_accounting_class_org_id;
1176: ELSE
1177: x_return_status := FND_API.G_RET_STS_ERROR;
1178: x_msg_data := 'AHL_RM_TOO_MANY_ACC_CLASSES';
1179: END IF;
1180:
1181: CLOSE get_rec_from_value;
1212: trunc(sysdate) < trunc(nvl(end_date_active, sysdate+1)) and
1213: task_template_group_id = c_task_template_group_id;
1214:
1215: BEGIN
1216: x_return_status := FND_API.G_RET_STS_SUCCESS;
1217:
1218: IF ( ( p_task_template_group IS NULL OR
1219: p_task_template_group = FND_API.G_MISS_CHAR ) AND
1220: ( p_x_task_template_group_id IS NULL OR
1215: BEGIN
1216: x_return_status := FND_API.G_RET_STS_SUCCESS;
1217:
1218: IF ( ( p_task_template_group IS NULL OR
1219: p_task_template_group = FND_API.G_MISS_CHAR ) AND
1220: ( p_x_task_template_group_id IS NULL OR
1221: p_x_task_template_group_id = FND_API.G_MISS_NUM ) ) THEN
1222: x_return_status := FND_API.G_RET_STS_ERROR;
1223: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1217:
1218: IF ( ( p_task_template_group IS NULL OR
1219: p_task_template_group = FND_API.G_MISS_CHAR ) AND
1220: ( p_x_task_template_group_id IS NULL OR
1221: p_x_task_template_group_id = FND_API.G_MISS_NUM ) ) THEN
1222: x_return_status := FND_API.G_RET_STS_ERROR;
1223: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1224: RETURN;
1225: END IF;
1218: IF ( ( p_task_template_group IS NULL OR
1219: p_task_template_group = FND_API.G_MISS_CHAR ) AND
1220: ( p_x_task_template_group_id IS NULL OR
1221: p_x_task_template_group_id = FND_API.G_MISS_NUM ) ) THEN
1222: x_return_status := FND_API.G_RET_STS_ERROR;
1223: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1224: RETURN;
1225: END IF;
1226:
1224: RETURN;
1225: END IF;
1226:
1227: IF ( ( p_task_template_group IS NULL OR
1228: p_task_template_group = FND_API.G_MISS_CHAR ) AND
1229: ( p_x_task_template_group_id IS NOT NULL AND
1230: p_x_task_template_group_id <> FND_API.G_MISS_NUM ) ) THEN
1231:
1232: OPEN get_rec_from_id( p_x_task_template_group_id );
1226:
1227: IF ( ( p_task_template_group IS NULL OR
1228: p_task_template_group = FND_API.G_MISS_CHAR ) AND
1229: ( p_x_task_template_group_id IS NOT NULL AND
1230: p_x_task_template_group_id <> FND_API.G_MISS_NUM ) ) THEN
1231:
1232: OPEN get_rec_from_id( p_x_task_template_group_id );
1233:
1234: FETCH get_rec_from_id INTO
1234: FETCH get_rec_from_id INTO
1235: l_task_template_group_id;
1236:
1237: IF get_rec_from_id%NOTFOUND THEN
1238: x_return_status := FND_API.G_RET_STS_ERROR;
1239: x_msg_data := 'AHL_RM_INVALID_TASK_TEMPLATE';
1240: END IF;
1241:
1242: CLOSE get_rec_from_id;
1244:
1245: END IF;
1246:
1247: IF ( p_task_template_group IS NOT NULL AND
1248: p_task_template_group <> FND_API.G_MISS_CHAR ) THEN
1249:
1250: OPEN get_rec_from_value( p_task_template_group );
1251:
1252: LOOP
1262:
1263: END LOOP;
1264:
1265: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
1266: x_return_status := FND_API.G_RET_STS_ERROR;
1267: x_msg_data := 'AHL_RM_INVALID_TASK_TEMPLATE';
1268: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1269: p_x_task_template_group_id := l_task_template_group_id;
1270: ELSE
1267: x_msg_data := 'AHL_RM_INVALID_TASK_TEMPLATE';
1268: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1269: p_x_task_template_group_id := l_task_template_group_id;
1270: ELSE
1271: x_return_status := FND_API.G_RET_STS_ERROR;
1272: x_msg_data := 'AHL_RM_TOO_MANY_TASK_TEMPLATES';
1273: END IF;
1274:
1275: CLOSE get_rec_from_value;
1306: --
1307: BEGIN
1308:
1309: -- Initialize Procedure return status to success
1310: x_return_status := FND_API.G_RET_STS_SUCCESS;
1311:
1312: IF ( ( p_warranty_template_name IS NULL OR p_warranty_template_name = FND_API.G_MISS_CHAR ) AND
1313: ( p_x_warranty_template_id IS NULL OR p_x_warranty_template_id = FND_API.G_MISS_NUM ) ) THEN
1314: x_return_status := FND_API.G_RET_STS_ERROR;
1308:
1309: -- Initialize Procedure return status to success
1310: x_return_status := FND_API.G_RET_STS_SUCCESS;
1311:
1312: IF ( ( p_warranty_template_name IS NULL OR p_warranty_template_name = FND_API.G_MISS_CHAR ) AND
1313: ( p_x_warranty_template_id IS NULL OR p_x_warranty_template_id = FND_API.G_MISS_NUM ) ) THEN
1314: x_return_status := FND_API.G_RET_STS_ERROR;
1315: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1316: RETURN;
1309: -- Initialize Procedure return status to success
1310: x_return_status := FND_API.G_RET_STS_SUCCESS;
1311:
1312: IF ( ( p_warranty_template_name IS NULL OR p_warranty_template_name = FND_API.G_MISS_CHAR ) AND
1313: ( p_x_warranty_template_id IS NULL OR p_x_warranty_template_id = FND_API.G_MISS_NUM ) ) THEN
1314: x_return_status := FND_API.G_RET_STS_ERROR;
1315: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1316: RETURN;
1317: END IF;
1310: x_return_status := FND_API.G_RET_STS_SUCCESS;
1311:
1312: IF ( ( p_warranty_template_name IS NULL OR p_warranty_template_name = FND_API.G_MISS_CHAR ) AND
1313: ( p_x_warranty_template_id IS NULL OR p_x_warranty_template_id = FND_API.G_MISS_NUM ) ) THEN
1314: x_return_status := FND_API.G_RET_STS_ERROR;
1315: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1316: RETURN;
1317: END IF;
1318:
1315: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1316: RETURN;
1317: END IF;
1318:
1319: IF ( ( p_warranty_template_name IS NULL OR p_warranty_template_name = FND_API.G_MISS_CHAR ) AND
1320: ( p_x_warranty_template_id IS NOT NULL AND p_x_warranty_template_id <> FND_API.G_MISS_NUM ) ) THEN
1321: OPEN get_rec_from_id( p_x_warranty_template_id );
1322:
1323: FETCH get_rec_from_id INTO l_warranty_template_id;
1316: RETURN;
1317: END IF;
1318:
1319: IF ( ( p_warranty_template_name IS NULL OR p_warranty_template_name = FND_API.G_MISS_CHAR ) AND
1320: ( p_x_warranty_template_id IS NOT NULL AND p_x_warranty_template_id <> FND_API.G_MISS_NUM ) ) THEN
1321: OPEN get_rec_from_id( p_x_warranty_template_id );
1322:
1323: FETCH get_rec_from_id INTO l_warranty_template_id;
1324:
1322:
1323: FETCH get_rec_from_id INTO l_warranty_template_id;
1324:
1325: IF get_rec_from_id%NOTFOUND THEN
1326: x_return_status := FND_API.G_RET_STS_ERROR;
1327: x_msg_data := 'AHL_RM_INVALID_WARR_TEMP';
1328: END IF;
1329:
1330: CLOSE get_rec_from_id;
1330: CLOSE get_rec_from_id;
1331: RETURN;
1332: END IF;
1333:
1334: IF ( p_warranty_template_name IS NOT NULL AND p_warranty_template_name <> FND_API.G_MISS_CHAR ) THEN
1335: OPEN get_rec_from_value( p_warranty_template_name );
1336:
1337: FETCH get_rec_from_value INTO l_warranty_template_id;
1338:
1336:
1337: FETCH get_rec_from_value INTO l_warranty_template_id;
1338:
1339: IF get_rec_from_value%NOTFOUND THEN
1340: x_return_status := FND_API.G_RET_STS_ERROR;
1341: x_msg_data := 'AHL_RM_INVALID_WARR_TEMP';
1342:
1343: CLOSE get_rec_from_value;
1344: RETURN;
1376: FROM QA_CHAR_VALUE_LOOKUPS_V
1377: WHERE short_code = c_qa_inspection_type;
1378:
1379: BEGIN
1380: x_return_status := FND_API.G_RET_STS_SUCCESS;
1381:
1382: IF ( ( p_qa_inspection_type_desc IS NULL OR
1383: p_qa_inspection_type_desc = FND_API.G_MISS_CHAR ) AND
1384: ( p_x_qa_inspection_type IS NULL OR
1379: BEGIN
1380: x_return_status := FND_API.G_RET_STS_SUCCESS;
1381:
1382: IF ( ( p_qa_inspection_type_desc IS NULL OR
1383: p_qa_inspection_type_desc = FND_API.G_MISS_CHAR ) AND
1384: ( p_x_qa_inspection_type IS NULL OR
1385: p_x_qa_inspection_type = FND_API.G_MISS_CHAR ) ) THEN
1386: x_return_status := FND_API.G_RET_STS_ERROR;
1387: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1381:
1382: IF ( ( p_qa_inspection_type_desc IS NULL OR
1383: p_qa_inspection_type_desc = FND_API.G_MISS_CHAR ) AND
1384: ( p_x_qa_inspection_type IS NULL OR
1385: p_x_qa_inspection_type = FND_API.G_MISS_CHAR ) ) THEN
1386: x_return_status := FND_API.G_RET_STS_ERROR;
1387: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1388: RETURN;
1389: END IF;
1382: IF ( ( p_qa_inspection_type_desc IS NULL OR
1383: p_qa_inspection_type_desc = FND_API.G_MISS_CHAR ) AND
1384: ( p_x_qa_inspection_type IS NULL OR
1385: p_x_qa_inspection_type = FND_API.G_MISS_CHAR ) ) THEN
1386: x_return_status := FND_API.G_RET_STS_ERROR;
1387: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1388: RETURN;
1389: END IF;
1390:
1388: RETURN;
1389: END IF;
1390:
1391: IF ( ( p_qa_inspection_type_desc IS NULL OR
1392: p_qa_inspection_type_desc = FND_API.G_MISS_CHAR ) AND
1393: ( p_x_qa_inspection_type IS NOT NULL AND
1394: p_x_qa_inspection_type <> FND_API.G_MISS_CHAR ) ) THEN
1395:
1396: OPEN get_rec_from_id( p_x_qa_inspection_type );
1390:
1391: IF ( ( p_qa_inspection_type_desc IS NULL OR
1392: p_qa_inspection_type_desc = FND_API.G_MISS_CHAR ) AND
1393: ( p_x_qa_inspection_type IS NOT NULL AND
1394: p_x_qa_inspection_type <> FND_API.G_MISS_CHAR ) ) THEN
1395:
1396: OPEN get_rec_from_id( p_x_qa_inspection_type );
1397:
1398: FETCH get_rec_from_id INTO
1398: FETCH get_rec_from_id INTO
1399: l_qa_inspection_type;
1400:
1401: IF get_rec_from_id%NOTFOUND THEN
1402: x_return_status := FND_API.G_RET_STS_ERROR;
1403: x_msg_data := 'AHL_RM_INVALID_INSP_TYPE';
1404: END IF;
1405:
1406: CLOSE get_rec_from_id;
1408:
1409: END IF;
1410:
1411: IF ( p_qa_inspection_type_desc IS NOT NULL AND
1412: p_qa_inspection_type_desc <> FND_API.G_MISS_CHAR ) THEN
1413:
1414: OPEN get_rec_from_value( p_qa_inspection_type_desc );
1415:
1416: LOOP
1426:
1427: END LOOP;
1428:
1429: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
1430: x_return_status := FND_API.G_RET_STS_ERROR;
1431: x_msg_data := 'AHL_RM_INVALID_INSP_TYPE';
1432: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1433: p_x_qa_inspection_type := l_qa_inspection_type;
1434: ELSE
1431: x_msg_data := 'AHL_RM_INVALID_INSP_TYPE';
1432: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1433: p_x_qa_inspection_type := l_qa_inspection_type;
1434: ELSE
1435: x_return_status := FND_API.G_RET_STS_ERROR;
1436: x_msg_data := 'AHL_RM_TOO_MANY_INSP_TYPES';
1437: END IF;
1438:
1439: CLOSE get_rec_from_value;
1467: FROM QA_PLANS_VAL_V
1468: WHERE plan_id = c_qa_plan_id;
1469:
1470: BEGIN
1471: x_return_status := FND_API.G_RET_STS_SUCCESS;
1472:
1473: IF ( ( p_qa_plan IS NULL OR
1474: p_qa_plan = FND_API.G_MISS_CHAR ) AND
1475: ( p_x_qa_plan_id IS NULL OR
1470: BEGIN
1471: x_return_status := FND_API.G_RET_STS_SUCCESS;
1472:
1473: IF ( ( p_qa_plan IS NULL OR
1474: p_qa_plan = FND_API.G_MISS_CHAR ) AND
1475: ( p_x_qa_plan_id IS NULL OR
1476: p_x_qa_plan_id = FND_API.G_MISS_NUM ) ) THEN
1477: x_return_status := FND_API.G_RET_STS_ERROR;
1478: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1472:
1473: IF ( ( p_qa_plan IS NULL OR
1474: p_qa_plan = FND_API.G_MISS_CHAR ) AND
1475: ( p_x_qa_plan_id IS NULL OR
1476: p_x_qa_plan_id = FND_API.G_MISS_NUM ) ) THEN
1477: x_return_status := FND_API.G_RET_STS_ERROR;
1478: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1479: RETURN;
1480: END IF;
1473: IF ( ( p_qa_plan IS NULL OR
1474: p_qa_plan = FND_API.G_MISS_CHAR ) AND
1475: ( p_x_qa_plan_id IS NULL OR
1476: p_x_qa_plan_id = FND_API.G_MISS_NUM ) ) THEN
1477: x_return_status := FND_API.G_RET_STS_ERROR;
1478: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1479: RETURN;
1480: END IF;
1481:
1479: RETURN;
1480: END IF;
1481:
1482: IF ( ( p_qa_plan IS NULL OR
1483: p_qa_plan = FND_API.G_MISS_CHAR ) AND
1484: ( p_x_qa_plan_id IS NOT NULL AND
1485: p_x_qa_plan_id <> FND_API.G_MISS_NUM ) ) THEN
1486:
1487: OPEN get_rec_from_id( p_x_qa_plan_id );
1481:
1482: IF ( ( p_qa_plan IS NULL OR
1483: p_qa_plan = FND_API.G_MISS_CHAR ) AND
1484: ( p_x_qa_plan_id IS NOT NULL AND
1485: p_x_qa_plan_id <> FND_API.G_MISS_NUM ) ) THEN
1486:
1487: OPEN get_rec_from_id( p_x_qa_plan_id );
1488:
1489: FETCH get_rec_from_id INTO
1489: FETCH get_rec_from_id INTO
1490: l_qa_plan_id;
1491:
1492: IF get_rec_from_id%NOTFOUND THEN
1493: x_return_status := FND_API.G_RET_STS_ERROR;
1494: x_msg_data := 'AHL_RM_INVALID_QA_PLAN';
1495: END IF;
1496:
1497: CLOSE get_rec_from_id;
1499:
1500: END IF;
1501:
1502: IF ( p_qa_plan IS NOT NULL AND
1503: p_qa_plan <> FND_API.G_MISS_CHAR ) THEN
1504:
1505: OPEN get_rec_from_value( p_qa_plan );
1506:
1507: LOOP
1517:
1518: END LOOP;
1519:
1520: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
1521: x_return_status := FND_API.G_RET_STS_ERROR;
1522: x_msg_data := 'AHL_RM_INVALID_QA_PLAN';
1523: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1524: p_x_qa_plan_id := l_qa_plan_id;
1525: ELSE
1522: x_msg_data := 'AHL_RM_INVALID_QA_PLAN';
1523: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1524: p_x_qa_plan_id := l_qa_plan_id;
1525: ELSE
1526: x_return_status := FND_API.G_RET_STS_ERROR;
1527: x_msg_data := 'AHL_RM_TOO_MANY_QA_PLANS';
1528: END IF;
1529:
1530: CLOSE get_rec_from_value;
1565: AND status_code = 'COMPLETE'
1566: AND DECODE(c_association_type,'DISPOSITION',TYPE_CODE,'NON-TRACKED')='NON-TRACKED';
1567:
1568: BEGIN
1569: x_return_status := FND_API.G_RET_STS_SUCCESS;
1570:
1571: IF ( ( p_item_group_name IS NULL OR
1572: p_item_group_name = FND_API.G_MISS_CHAR ) AND
1573: ( p_x_item_group_id IS NULL OR
1568: BEGIN
1569: x_return_status := FND_API.G_RET_STS_SUCCESS;
1570:
1571: IF ( ( p_item_group_name IS NULL OR
1572: p_item_group_name = FND_API.G_MISS_CHAR ) AND
1573: ( p_x_item_group_id IS NULL OR
1574: p_x_item_group_id = FND_API.G_MISS_NUM ) ) THEN
1575: x_return_status := FND_API.G_RET_STS_ERROR;
1576: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1570:
1571: IF ( ( p_item_group_name IS NULL OR
1572: p_item_group_name = FND_API.G_MISS_CHAR ) AND
1573: ( p_x_item_group_id IS NULL OR
1574: p_x_item_group_id = FND_API.G_MISS_NUM ) ) THEN
1575: x_return_status := FND_API.G_RET_STS_ERROR;
1576: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1577: RETURN;
1578: END IF;
1571: IF ( ( p_item_group_name IS NULL OR
1572: p_item_group_name = FND_API.G_MISS_CHAR ) AND
1573: ( p_x_item_group_id IS NULL OR
1574: p_x_item_group_id = FND_API.G_MISS_NUM ) ) THEN
1575: x_return_status := FND_API.G_RET_STS_ERROR;
1576: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1577: RETURN;
1578: END IF;
1579:
1577: RETURN;
1578: END IF;
1579:
1580: IF ( ( p_item_group_name IS NULL OR
1581: p_item_group_name = FND_API.G_MISS_CHAR ) AND
1582: ( p_x_item_group_id IS NOT NULL AND
1583: p_x_item_group_id <> FND_API.G_MISS_NUM ) ) THEN
1584:
1585: OPEN get_rec_from_id( p_x_item_group_id,p_association_type );
1579:
1580: IF ( ( p_item_group_name IS NULL OR
1581: p_item_group_name = FND_API.G_MISS_CHAR ) AND
1582: ( p_x_item_group_id IS NOT NULL AND
1583: p_x_item_group_id <> FND_API.G_MISS_NUM ) ) THEN
1584:
1585: OPEN get_rec_from_id( p_x_item_group_id,p_association_type );
1586:
1587: FETCH get_rec_from_id INTO
1587: FETCH get_rec_from_id INTO
1588: l_item_group_id;
1589:
1590: IF get_rec_from_id%NOTFOUND THEN
1591: x_return_status := FND_API.G_RET_STS_ERROR;
1592: x_msg_data := 'AHL_RM_INVALID_ITEM_GRP';
1593: END IF;
1594:
1595: CLOSE get_rec_from_id;
1597:
1598: END IF;
1599:
1600: IF ( p_item_group_name IS NOT NULL AND
1601: p_item_group_name <> FND_API.G_MISS_CHAR ) THEN
1602:
1603: OPEN get_rec_from_value( p_item_group_name,p_association_type );
1604:
1605: LOOP
1615:
1616: END LOOP;
1617:
1618: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
1619: x_return_status := FND_API.G_RET_STS_ERROR;
1620: x_msg_data := 'AHL_RM_INVALID_ITEM_GRP';
1621: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1622: p_x_item_group_id := l_item_group_id;
1623: ELSE
1620: x_msg_data := 'AHL_RM_INVALID_ITEM_GRP';
1621: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1622: p_x_item_group_id := l_item_group_id;
1623: ELSE
1624: x_return_status := FND_API.G_RET_STS_ERROR;
1625: x_msg_data := 'AHL_RM_TOO_MANY_ITEM_GRPS';
1626: END IF;
1627:
1628: CLOSE get_rec_from_value;
1654: AND nvl(trunc(CD.EFFECTIVE_END_DATE),trunc(sysdate+1)) > trunc(sysdate)
1655: AND nvl(trunc(ICD.EFFECTIVE_END_DATE),trunc(sysdate+1)) > trunc(sysdate);
1656:
1657: BEGIN
1658: x_return_status := FND_API.G_RET_STS_SUCCESS;
1659:
1660: IF ( p_x_item_comp_detail_id IS NULL OR
1661: p_x_item_comp_detail_id = FND_API.G_MISS_NUM ) THEN
1662: x_return_status := FND_API.G_RET_STS_ERROR;
1657: BEGIN
1658: x_return_status := FND_API.G_RET_STS_SUCCESS;
1659:
1660: IF ( p_x_item_comp_detail_id IS NULL OR
1661: p_x_item_comp_detail_id = FND_API.G_MISS_NUM ) THEN
1662: x_return_status := FND_API.G_RET_STS_ERROR;
1663: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1664: RETURN;
1665: END IF;
1658: x_return_status := FND_API.G_RET_STS_SUCCESS;
1659:
1660: IF ( p_x_item_comp_detail_id IS NULL OR
1661: p_x_item_comp_detail_id = FND_API.G_MISS_NUM ) THEN
1662: x_return_status := FND_API.G_RET_STS_ERROR;
1663: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1664: RETURN;
1665: END IF;
1666:
1669: FETCH get_rec_from_id INTO
1670: l_item_comp_id;
1671:
1672: IF get_rec_from_id%NOTFOUND THEN
1673: x_return_status := FND_API.G_RET_STS_ERROR;
1674: x_msg_data := 'AHL_RM_INVALID_ITEM_COMP';
1675: ELSIF ( get_rec_from_id%ROWCOUNT = 1 ) THEN
1676: p_x_item_comp_detail_id := l_item_comp_id;
1677: ELSE
1674: x_msg_data := 'AHL_RM_INVALID_ITEM_COMP';
1675: ELSIF ( get_rec_from_id%ROWCOUNT = 1 ) THEN
1676: p_x_item_comp_detail_id := l_item_comp_id;
1677: ELSE
1678: x_return_status := FND_API.G_RET_STS_ERROR;
1679: x_msg_data := 'AHL_RM_TOO_MANY_ITEM_COMPS';
1680: END IF;
1681:
1682: CLOSE get_rec_from_id;
1766: and mcp.path_position_id = nvl(c_position_path_id,-1);*/
1767:
1768:
1769: BEGIN
1770: x_return_status := FND_API.G_RET_STS_SUCCESS;
1771:
1772: IF ( ( p_position_path IS NULL OR
1773: p_position_path = FND_API.G_MISS_CHAR ) AND
1774: ( p_x_position_path_id IS NULL OR
1769: BEGIN
1770: x_return_status := FND_API.G_RET_STS_SUCCESS;
1771:
1772: IF ( ( p_position_path IS NULL OR
1773: p_position_path = FND_API.G_MISS_CHAR ) AND
1774: ( p_x_position_path_id IS NULL OR
1775: p_x_position_path_id = FND_API.G_MISS_NUM ) ) THEN
1776: x_return_status := FND_API.G_RET_STS_ERROR;
1777: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1771:
1772: IF ( ( p_position_path IS NULL OR
1773: p_position_path = FND_API.G_MISS_CHAR ) AND
1774: ( p_x_position_path_id IS NULL OR
1775: p_x_position_path_id = FND_API.G_MISS_NUM ) ) THEN
1776: x_return_status := FND_API.G_RET_STS_ERROR;
1777: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1778: RETURN;
1779: END IF;
1772: IF ( ( p_position_path IS NULL OR
1773: p_position_path = FND_API.G_MISS_CHAR ) AND
1774: ( p_x_position_path_id IS NULL OR
1775: p_x_position_path_id = FND_API.G_MISS_NUM ) ) THEN
1776: x_return_status := FND_API.G_RET_STS_ERROR;
1777: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1778: RETURN;
1779: END IF;
1780:
1778: RETURN;
1779: END IF;
1780:
1781: IF ( ( p_position_path IS NULL OR
1782: p_position_path = FND_API.G_MISS_CHAR ) AND
1783: ( p_x_position_path_id IS NOT NULL AND
1784: p_x_position_path_id <> FND_API.G_MISS_NUM ) ) THEN
1785: -- STHILAK - START Bug 10621013 Changed the validation logic in order to accomadate the sub-configs also; sorao backporting
1786:
1780:
1781: IF ( ( p_position_path IS NULL OR
1782: p_position_path = FND_API.G_MISS_CHAR ) AND
1783: ( p_x_position_path_id IS NOT NULL AND
1784: p_x_position_path_id <> FND_API.G_MISS_NUM ) ) THEN
1785: -- STHILAK - START Bug 10621013 Changed the validation logic in order to accomadate the sub-configs also; sorao backporting
1786:
1787: /*OPEN get_rec_from_id( p_x_position_path_id );
1788:
1789: FETCH get_rec_from_id INTO
1790: l_position_path_id;
1791:
1792: IF get_rec_from_id%NOTFOUND THEN
1793: x_return_status := FND_API.G_RET_STS_ERROR;
1794: x_msg_data := 'AHL_RM_INVALID_POS_PATH';
1795: END IF;
1796:
1797: CLOSE get_rec_from_id;
1799:
1800: OPEN validate_position_keys(p_x_position_path_id );
1801: FETCH validate_position_keys into l_dummy_char;
1802: IF validate_position_keys%NOTFOUND THEN
1803: x_return_status := FND_API.G_RET_STS_ERROR;
1804: x_msg_data := 'AHL_RM_INVALID_POS_PATH';
1805: END IF;
1806:
1807: CLOSE validate_position_keys;
1806:
1807: CLOSE validate_position_keys;
1808:
1809:
1810: IF x_return_status=FND_API.G_RET_STS_SUCCESS THEN
1811: OPEN validate_eff_mc_id(p_x_position_path_id);
1812: FETCH validate_eff_mc_id into l_dummy_char;
1813: IF validate_eff_mc_id%NOTFOUND THEN
1814: x_return_status := FND_API.G_RET_STS_ERROR;
1810: IF x_return_status=FND_API.G_RET_STS_SUCCESS THEN
1811: OPEN validate_eff_mc_id(p_x_position_path_id);
1812: FETCH validate_eff_mc_id into l_dummy_char;
1813: IF validate_eff_mc_id%NOTFOUND THEN
1814: x_return_status := FND_API.G_RET_STS_ERROR;
1815: x_msg_data := 'AHL_RM_INVALID_POS_PATH';
1816: END IF;
1817: CLOSE validate_eff_mc_id;
1818: END IF;
1822: END IF;
1823:
1824: /*
1825: IF ( p_position_path IS NOT NULL AND
1826: p_position_path <> FND_API.G_MISS_CHAR ) THEN
1827:
1828: OPEN get_rec_from_value( p_position_path );
1829:
1830: LOOP
1840:
1841: END LOOP;
1842:
1843: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
1844: x_return_status := FND_API.G_RET_STS_ERROR;
1845: x_msg_data := 'AHL_RM_INVALID_POS_PATH';
1846: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1847: p_x_position_path_id := l_position_path_id;
1848: ELSE
1845: x_msg_data := 'AHL_RM_INVALID_POS_PATH';
1846: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1847: p_x_position_path_id := l_position_path_id;
1848: ELSE
1849: x_return_status := FND_API.G_RET_STS_ERROR;
1850: x_msg_data := 'AHL_RM_TOO_MANY_POS_PATHS';
1851: END IF;
1852:
1853: CLOSE get_rec_from_value;
1936: AND CONFIG_STATUS_CODE='COMPLETE'
1937: ;
1938: */
1939: BEGIN
1940: x_return_status := FND_API.G_RET_STS_SUCCESS;
1941:
1942: IF ( ( p_mc_name IS NULL OR
1943: p_mc_name = FND_API.G_MISS_CHAR ) AND
1944: ( p_x_mc_id IS NULL OR
1939: BEGIN
1940: x_return_status := FND_API.G_RET_STS_SUCCESS;
1941:
1942: IF ( ( p_mc_name IS NULL OR
1943: p_mc_name = FND_API.G_MISS_CHAR ) AND
1944: ( p_x_mc_id IS NULL OR
1945: p_x_mc_id = FND_API.G_MISS_NUM ) ) THEN
1946: x_return_status := FND_API.G_RET_STS_ERROR;
1947: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1941:
1942: IF ( ( p_mc_name IS NULL OR
1943: p_mc_name = FND_API.G_MISS_CHAR ) AND
1944: ( p_x_mc_id IS NULL OR
1945: p_x_mc_id = FND_API.G_MISS_NUM ) ) THEN
1946: x_return_status := FND_API.G_RET_STS_ERROR;
1947: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1948: RETURN;
1949: END IF;
1942: IF ( ( p_mc_name IS NULL OR
1943: p_mc_name = FND_API.G_MISS_CHAR ) AND
1944: ( p_x_mc_id IS NULL OR
1945: p_x_mc_id = FND_API.G_MISS_NUM ) ) THEN
1946: x_return_status := FND_API.G_RET_STS_ERROR;
1947: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1948: RETURN;
1949: END IF;
1950: /*
1948: RETURN;
1949: END IF;
1950: /*
1951: IF ( ( p_mc_name IS NULL OR
1952: p_mc_name = FND_API.G_MISS_CHAR ) AND
1953: ( p_x_mc_id IS NOT NULL AND
1954: p_x_mc_id <> FND_API.G_MISS_NUM ) ) THEN
1955:
1956: OPEN get_rec_from_id( p_x_mc_id );
1950: /*
1951: IF ( ( p_mc_name IS NULL OR
1952: p_mc_name = FND_API.G_MISS_CHAR ) AND
1953: ( p_x_mc_id IS NOT NULL AND
1954: p_x_mc_id <> FND_API.G_MISS_NUM ) ) THEN
1955:
1956: OPEN get_rec_from_id( p_x_mc_id );
1957:
1958: LOOP
1966: END IF;
1967: END LOOP;
1968:
1969: IF ( get_rec_from_id%ROWCOUNT = 0 ) THEN
1970: x_return_status := FND_API.G_RET_STS_ERROR;
1971: x_msg_data := 'AHL_RM_INVALID_MC';
1972: END IF;
1973:
1974: CLOSE get_rec_from_id;
1976:
1977: END IF;
1978: */
1979:
1980: IF ( (p_mc_name IS NOT NULL AND p_mc_name <> FND_API.G_MISS_CHAR)
1981: AND (p_mc_revision_number IS NOT NULL AND p_mc_revision_number <> FND_API.G_MISS_CHAR)
1982: )
1983: THEN
1984:
1977: END IF;
1978: */
1979:
1980: IF ( (p_mc_name IS NOT NULL AND p_mc_name <> FND_API.G_MISS_CHAR)
1981: AND (p_mc_revision_number IS NOT NULL AND p_mc_revision_number <> FND_API.G_MISS_CHAR)
1982: )
1983: THEN
1984:
1985: OPEN get_rec_from_value1( p_mc_name, p_mc_revision_number);
1997:
1998: END LOOP;
1999:
2000: IF ( get_rec_from_value1%ROWCOUNT = 0 ) THEN
2001: x_return_status := FND_API.G_RET_STS_ERROR;
2002: x_msg_data := 'AHL_RM_INVALID_MC';
2003: ELSE
2004: p_x_mc_id := l_mc_id ;
2005: p_x_mc_header_id := l_mc_header_id;
2006: /*
2007: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2008: p_x_mc_id := l_mc_id;
2009: ELSE
2010: x_return_status := FND_API.G_RET_STS_ERROR;
2011: x_msg_data := 'AHL_RM_TOO_MANY_MCS';
2012: */
2013: END IF;
2014:
2021: FETCH get_rec_status_id INTO
2022: l_mc_header_id;
2023:
2024: IF get_rec_status_id%NOTFOUND THEN
2025: x_return_status := FND_API.G_RET_STS_ERROR;
2026: x_msg_data := 'AHL_RM_INCOMPLETE_MC';
2027: END IF;
2028:
2029: CLOSE get_rec_status_id;
2032: END IF;
2033: */
2034:
2035: IF ( p_mc_name IS NOT NULL AND
2036: p_mc_name <> FND_API.G_MISS_CHAR ) THEN
2037:
2038: OPEN get_rec_from_value( p_mc_name );
2039:
2040: LOOP
2050:
2051: END LOOP;
2052:
2053: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
2054: x_return_status := FND_API.G_RET_STS_ERROR;
2055: x_msg_data := 'AHL_RM_INVALID_MC';
2056: ELSE
2057: p_x_mc_id := l_mc_id;
2058: /*
2058: /*
2059: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2060: p_x_mc_id := l_mc_id;
2061: ELSE
2062: x_return_status := FND_API.G_RET_STS_ERROR;
2063: x_msg_data := 'AHL_RM_TOO_MANY_MCS';
2064: */
2065: END IF;
2066:
2096: FROM MTL_UNITS_OF_MEASURE_VL
2097: WHERE upper(uom_code) = upper(c_uom_code);
2098:
2099: BEGIN
2100: x_return_status := FND_API.G_RET_STS_SUCCESS;
2101:
2102: IF ( ( p_uom IS NULL OR
2103: p_uom = FND_API.G_MISS_CHAR ) AND
2104: ( p_x_uom_code IS NULL OR
2099: BEGIN
2100: x_return_status := FND_API.G_RET_STS_SUCCESS;
2101:
2102: IF ( ( p_uom IS NULL OR
2103: p_uom = FND_API.G_MISS_CHAR ) AND
2104: ( p_x_uom_code IS NULL OR
2105: p_x_uom_code = FND_API.G_MISS_CHAR ) ) THEN
2106: x_return_status := FND_API.G_RET_STS_ERROR;
2107: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2101:
2102: IF ( ( p_uom IS NULL OR
2103: p_uom = FND_API.G_MISS_CHAR ) AND
2104: ( p_x_uom_code IS NULL OR
2105: p_x_uom_code = FND_API.G_MISS_CHAR ) ) THEN
2106: x_return_status := FND_API.G_RET_STS_ERROR;
2107: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2108: RETURN;
2109: END IF;
2102: IF ( ( p_uom IS NULL OR
2103: p_uom = FND_API.G_MISS_CHAR ) AND
2104: ( p_x_uom_code IS NULL OR
2105: p_x_uom_code = FND_API.G_MISS_CHAR ) ) THEN
2106: x_return_status := FND_API.G_RET_STS_ERROR;
2107: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2108: RETURN;
2109: END IF;
2110:
2108: RETURN;
2109: END IF;
2110:
2111: IF ( ( p_uom IS NULL OR
2112: p_uom = FND_API.G_MISS_CHAR ) AND
2113: ( p_x_uom_code IS NOT NULL AND
2114: p_x_uom_code <> FND_API.G_MISS_CHAR ) ) THEN
2115:
2116: OPEN get_rec_from_id( p_x_uom_code );
2110:
2111: IF ( ( p_uom IS NULL OR
2112: p_uom = FND_API.G_MISS_CHAR ) AND
2113: ( p_x_uom_code IS NOT NULL AND
2114: p_x_uom_code <> FND_API.G_MISS_CHAR ) ) THEN
2115:
2116: OPEN get_rec_from_id( p_x_uom_code );
2117:
2118: FETCH get_rec_from_id INTO
2118: FETCH get_rec_from_id INTO
2119: l_uom_code;
2120:
2121: IF get_rec_from_id%NOTFOUND THEN
2122: x_return_status := FND_API.G_RET_STS_ERROR;
2123: x_msg_data := 'AHL_RM_INVALID_UOM';
2124: END IF;
2125:
2126: CLOSE get_rec_from_id;
2128:
2129: END IF;
2130:
2131: IF ( p_uom IS NOT NULL AND
2132: p_uom <> FND_API.G_MISS_CHAR ) THEN
2133:
2134: OPEN get_rec_from_value( p_uom );
2135:
2136: LOOP
2146:
2147: END LOOP;
2148:
2149: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
2150: x_return_status := FND_API.G_RET_STS_ERROR;
2151: x_msg_data := 'AHL_RM_INVALID_UOM';
2152: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2153: p_x_uom_code := l_uom_code;
2154: ELSE
2151: x_msg_data := 'AHL_RM_INVALID_UOM';
2152: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2153: p_x_uom_code := l_uom_code;
2154: ELSE
2155: x_return_status := FND_API.G_RET_STS_ERROR;
2156: x_msg_data := 'AHL_RM_TOO_MANY_UOMS';
2157: END IF;
2158:
2159: CLOSE get_rec_from_value;
2196: AND UOM.inventory_item_id = ASSOC.inventory_item_id
2197: AND UOM.inventory_org_id = ASSOC.inventory_org_id
2198: AND ASSOC.item_group_id = c_item_group_id;
2199: BEGIN
2200: x_return_status := FND_API.G_RET_STS_SUCCESS;
2201:
2202: IF ( p_uom_code IS NULL OR
2203: p_uom_code = FND_API.G_MISS_CHAR ) THEN
2204: x_return_status := FND_API.G_RET_STS_ERROR;
2199: BEGIN
2200: x_return_status := FND_API.G_RET_STS_SUCCESS;
2201:
2202: IF ( p_uom_code IS NULL OR
2203: p_uom_code = FND_API.G_MISS_CHAR ) THEN
2204: x_return_status := FND_API.G_RET_STS_ERROR;
2205: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2206: RETURN;
2207: END IF;
2200: x_return_status := FND_API.G_RET_STS_SUCCESS;
2201:
2202: IF ( p_uom_code IS NULL OR
2203: p_uom_code = FND_API.G_MISS_CHAR ) THEN
2204: x_return_status := FND_API.G_RET_STS_ERROR;
2205: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2206: RETURN;
2207: END IF;
2208:
2206: RETURN;
2207: END IF;
2208:
2209: IF ( ( p_inventory_item_id IS NULL OR
2210: p_inventory_item_id = FND_API.G_MISS_NUM ) AND
2211: ( p_inventory_org_id IS NULL OR
2212: p_inventory_org_id = FND_API.G_MISS_NUM ) AND
2213: ( p_item_group_id IS NULL OR
2214: p_item_group_id = FND_API.G_MISS_NUM ) ) THEN
2208:
2209: IF ( ( p_inventory_item_id IS NULL OR
2210: p_inventory_item_id = FND_API.G_MISS_NUM ) AND
2211: ( p_inventory_org_id IS NULL OR
2212: p_inventory_org_id = FND_API.G_MISS_NUM ) AND
2213: ( p_item_group_id IS NULL OR
2214: p_item_group_id = FND_API.G_MISS_NUM ) ) THEN
2215: x_return_status := FND_API.G_RET_STS_ERROR;
2216: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2210: p_inventory_item_id = FND_API.G_MISS_NUM ) AND
2211: ( p_inventory_org_id IS NULL OR
2212: p_inventory_org_id = FND_API.G_MISS_NUM ) AND
2213: ( p_item_group_id IS NULL OR
2214: p_item_group_id = FND_API.G_MISS_NUM ) ) THEN
2215: x_return_status := FND_API.G_RET_STS_ERROR;
2216: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2217: RETURN;
2218: END IF;
2211: ( p_inventory_org_id IS NULL OR
2212: p_inventory_org_id = FND_API.G_MISS_NUM ) AND
2213: ( p_item_group_id IS NULL OR
2214: p_item_group_id = FND_API.G_MISS_NUM ) ) THEN
2215: x_return_status := FND_API.G_RET_STS_ERROR;
2216: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2217: RETURN;
2218: END IF;
2219:
2217: RETURN;
2218: END IF;
2219:
2220: IF ( p_item_group_id IS NOT NULL AND
2221: p_item_group_id <> FND_API.G_MISS_NUM ) THEN
2222:
2223: OPEN get_uom_for_item_group( p_uom_code , p_item_group_id );
2224:
2225: FETCH get_uom_for_item_group INTO
2225: FETCH get_uom_for_item_group INTO
2226: l_dummy;
2227:
2228: IF get_uom_for_item_group%NOTFOUND THEN
2229: x_return_status := FND_API.G_RET_STS_ERROR;
2230: x_msg_data := 'AHL_RM_INVALID_UOM_ITEM_GRP';
2231: END IF;
2232:
2233: CLOSE get_uom_for_item_group;
2235:
2236: END IF;
2237:
2238: IF ( p_inventory_item_id IS NOT NULL AND
2239: p_inventory_item_id <> FND_API.G_MISS_NUM AND
2240: p_inventory_org_id IS NOT NULL AND
2241: p_inventory_org_id <> FND_API.G_MISS_NUM ) THEN
2242:
2243: OPEN get_uom_for_item( p_uom_code, p_inventory_item_id, p_inventory_org_id );
2237:
2238: IF ( p_inventory_item_id IS NOT NULL AND
2239: p_inventory_item_id <> FND_API.G_MISS_NUM AND
2240: p_inventory_org_id IS NOT NULL AND
2241: p_inventory_org_id <> FND_API.G_MISS_NUM ) THEN
2242:
2243: OPEN get_uom_for_item( p_uom_code, p_inventory_item_id, p_inventory_org_id );
2244:
2245: FETCH get_uom_for_item INTO
2245: FETCH get_uom_for_item INTO
2246: l_dummy;
2247:
2248: IF get_uom_for_item%NOTFOUND THEN
2249: x_return_status := FND_API.G_RET_STS_ERROR;
2250: x_msg_data := 'AHL_RM_INVALID_UOM_ITEM';
2251: END IF;
2252:
2253: CLOSE get_uom_for_item;
2278:
2279: l_dummy VARCHAR2(1);
2280:
2281: BEGIN
2282: x_return_status := FND_API.G_RET_STS_SUCCESS;
2283:
2284: IF ( p_product_type_code IS NULL OR
2285: p_product_type_code = FND_API.G_MISS_CHAR OR
2286: p_zone_code IS NULL OR
2281: BEGIN
2282: x_return_status := FND_API.G_RET_STS_SUCCESS;
2283:
2284: IF ( p_product_type_code IS NULL OR
2285: p_product_type_code = FND_API.G_MISS_CHAR OR
2286: p_zone_code IS NULL OR
2287: p_zone_code = FND_API.G_MISS_CHAR ) THEN
2288: x_return_status := FND_API.G_RET_STS_ERROR;
2289: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2283:
2284: IF ( p_product_type_code IS NULL OR
2285: p_product_type_code = FND_API.G_MISS_CHAR OR
2286: p_zone_code IS NULL OR
2287: p_zone_code = FND_API.G_MISS_CHAR ) THEN
2288: x_return_status := FND_API.G_RET_STS_ERROR;
2289: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2290: RETURN;
2291: END IF;
2284: IF ( p_product_type_code IS NULL OR
2285: p_product_type_code = FND_API.G_MISS_CHAR OR
2286: p_zone_code IS NULL OR
2287: p_zone_code = FND_API.G_MISS_CHAR ) THEN
2288: x_return_status := FND_API.G_RET_STS_ERROR;
2289: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2290: RETURN;
2291: END IF;
2292:
2295: FETCH check_pt_zone INTO
2296: l_dummy;
2297:
2298: IF check_pt_zone%NOTFOUND THEN
2299: x_return_status := FND_API.G_RET_STS_ERROR;
2300: x_msg_data := 'AHL_RM_INVALID_PT_ZONE';
2301: END IF;
2302:
2303: CLOSE check_pt_zone;
2326:
2327: l_dummy VARCHAR2(1);
2328:
2329: BEGIN
2330: x_return_status := FND_API.G_RET_STS_SUCCESS;
2331:
2332: IF ( p_product_type_code IS NULL OR
2333: p_product_type_code = FND_API.G_MISS_CHAR OR
2334: p_zone_code IS NULL OR
2329: BEGIN
2330: x_return_status := FND_API.G_RET_STS_SUCCESS;
2331:
2332: IF ( p_product_type_code IS NULL OR
2333: p_product_type_code = FND_API.G_MISS_CHAR OR
2334: p_zone_code IS NULL OR
2335: p_zone_code = FND_API.G_MISS_CHAR OR
2336: p_sub_zone_code IS NULL OR
2337: p_sub_zone_code = FND_API.G_MISS_CHAR ) THEN
2331:
2332: IF ( p_product_type_code IS NULL OR
2333: p_product_type_code = FND_API.G_MISS_CHAR OR
2334: p_zone_code IS NULL OR
2335: p_zone_code = FND_API.G_MISS_CHAR OR
2336: p_sub_zone_code IS NULL OR
2337: p_sub_zone_code = FND_API.G_MISS_CHAR ) THEN
2338: x_return_status := FND_API.G_RET_STS_ERROR;
2339: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2333: p_product_type_code = FND_API.G_MISS_CHAR OR
2334: p_zone_code IS NULL OR
2335: p_zone_code = FND_API.G_MISS_CHAR OR
2336: p_sub_zone_code IS NULL OR
2337: p_sub_zone_code = FND_API.G_MISS_CHAR ) THEN
2338: x_return_status := FND_API.G_RET_STS_ERROR;
2339: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2340: RETURN;
2341: END IF;
2334: p_zone_code IS NULL OR
2335: p_zone_code = FND_API.G_MISS_CHAR OR
2336: p_sub_zone_code IS NULL OR
2337: p_sub_zone_code = FND_API.G_MISS_CHAR ) THEN
2338: x_return_status := FND_API.G_RET_STS_ERROR;
2339: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2340: RETURN;
2341: END IF;
2342:
2345: FETCH check_pt_zone_subzone INTO
2346: l_dummy;
2347:
2348: IF check_pt_zone_subzone%NOTFOUND THEN
2349: x_return_status := FND_API.G_RET_STS_ERROR;
2350: x_msg_data := 'AHL_RM_INVALID_PT_ZONE_SUBZONE';
2351: END IF;
2352:
2353: CLOSE check_pt_zone_subzone;
2415: AND SYSDATE BETWEEN NVL( start_date_active, SYSDATE ) AND
2416: NVL( end_date_active, SYSDATE );
2417:
2418: BEGIN
2419: x_return_status := FND_API.G_RET_STS_SUCCESS;
2420:
2421: IF ( p_lookup_type IS NULL OR
2422: p_lookup_type = FND_API.G_MISS_CHAR ) THEN
2423: x_return_status := FND_API.G_RET_STS_ERROR;
2418: BEGIN
2419: x_return_status := FND_API.G_RET_STS_SUCCESS;
2420:
2421: IF ( p_lookup_type IS NULL OR
2422: p_lookup_type = FND_API.G_MISS_CHAR ) THEN
2423: x_return_status := FND_API.G_RET_STS_ERROR;
2424: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2425: RETURN;
2426: END IF;
2419: x_return_status := FND_API.G_RET_STS_SUCCESS;
2420:
2421: IF ( p_lookup_type IS NULL OR
2422: p_lookup_type = FND_API.G_MISS_CHAR ) THEN
2423: x_return_status := FND_API.G_RET_STS_ERROR;
2424: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2425: RETURN;
2426: END IF;
2427:
2425: RETURN;
2426: END IF;
2427:
2428: IF ( ( p_lookup_meaning IS NULL OR
2429: p_lookup_meaning = FND_API.G_MISS_CHAR ) AND
2430: ( p_x_lookup_code IS NULL OR
2431: p_x_lookup_code = FND_API.G_MISS_NUM ) ) THEN
2432: x_return_status := FND_API.G_RET_STS_ERROR;
2433: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2427:
2428: IF ( ( p_lookup_meaning IS NULL OR
2429: p_lookup_meaning = FND_API.G_MISS_CHAR ) AND
2430: ( p_x_lookup_code IS NULL OR
2431: p_x_lookup_code = FND_API.G_MISS_NUM ) ) THEN
2432: x_return_status := FND_API.G_RET_STS_ERROR;
2433: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2434: RETURN;
2435: END IF;
2428: IF ( ( p_lookup_meaning IS NULL OR
2429: p_lookup_meaning = FND_API.G_MISS_CHAR ) AND
2430: ( p_x_lookup_code IS NULL OR
2431: p_x_lookup_code = FND_API.G_MISS_NUM ) ) THEN
2432: x_return_status := FND_API.G_RET_STS_ERROR;
2433: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2434: RETURN;
2435: END IF;
2436:
2434: RETURN;
2435: END IF;
2436:
2437: IF ( ( p_lookup_meaning IS NULL OR
2438: p_lookup_meaning = FND_API.G_MISS_CHAR ) AND
2439: ( p_x_lookup_code IS NOT NULL AND
2440: p_x_lookup_code <> FND_API.G_MISS_NUM ) ) THEN
2441:
2442: IF ( p_lookup_type = 'CST_BASIS' OR p_lookup_type = 'BOM_RESOURCE_SCHEDULE_TYPE' OR p_lookup_type = 'SYS_YES_NO')
2436:
2437: IF ( ( p_lookup_meaning IS NULL OR
2438: p_lookup_meaning = FND_API.G_MISS_CHAR ) AND
2439: ( p_x_lookup_code IS NOT NULL AND
2440: p_x_lookup_code <> FND_API.G_MISS_NUM ) ) THEN
2441:
2442: IF ( p_lookup_type = 'CST_BASIS' OR p_lookup_type = 'BOM_RESOURCE_SCHEDULE_TYPE' OR p_lookup_type = 'SYS_YES_NO')
2443: THEN
2444: OPEN get_rec_from_id_sp( p_lookup_type, p_x_lookup_code , 1 , 2 );
2456: FETCH get_rec_from_id_sp INTO
2457: l_lookup_code;
2458:
2459: IF get_rec_from_id_sp%NOTFOUND THEN
2460: x_return_status := FND_API.G_RET_STS_ERROR;
2461: x_msg_data := 'AHL_COM_INVALID_MFG_LOOKUP';
2462: END IF;
2463:
2464: CLOSE get_rec_from_id_sp;
2466: FETCH get_rec_from_id INTO
2467: l_lookup_code;
2468:
2469: IF get_rec_from_id%NOTFOUND THEN
2470: x_return_status := FND_API.G_RET_STS_ERROR;
2471: x_msg_data := 'AHL_COM_INVALID_MFG_LOOKUP';
2472: END IF;
2473:
2474: CLOSE get_rec_from_id;
2478:
2479: END IF;
2480:
2481: IF ( p_lookup_meaning IS NOT NULL AND
2482: p_lookup_meaning <> FND_API.G_MISS_CHAR ) THEN
2483:
2484: IF ( p_lookup_type = 'CST_BASIS' OR p_lookup_type = 'BOM_RESOURCE_SCHEDULE_TYPE' OR p_lookup_type = 'SYS_YES_NO')
2485: THEN
2486: OPEN get_rec_from_value_sp( p_lookup_type, p_lookup_meaning , 1 , 2 );
2509:
2510: END LOOP;
2511:
2512: IF ( get_rec_from_value_sp%ROWCOUNT = 0 ) THEN
2513: x_return_status := FND_API.G_RET_STS_ERROR;
2514: x_msg_data := 'AHL_COM_INVALID_MFG_LOOKUP';
2515: ELSIF ( get_rec_from_value_sp%ROWCOUNT = 1 ) THEN
2516: p_x_lookup_code := l_lookup_code;
2517: ELSE
2514: x_msg_data := 'AHL_COM_INVALID_MFG_LOOKUP';
2515: ELSIF ( get_rec_from_value_sp%ROWCOUNT = 1 ) THEN
2516: p_x_lookup_code := l_lookup_code;
2517: ELSE
2518: x_return_status := FND_API.G_RET_STS_ERROR;
2519: x_msg_data := 'AHL_COM_TOO_MANY_MFG_LOOKUPS';
2520: END IF;
2521:
2522: CLOSE get_rec_from_value_sp;
2535:
2536: END LOOP;
2537:
2538: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
2539: x_return_status := FND_API.G_RET_STS_ERROR;
2540: x_msg_data := 'AHL_COM_INVALID_MFG_LOOKUP';
2541: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2542: p_x_lookup_code := l_lookup_code;
2543: ELSE
2540: x_msg_data := 'AHL_COM_INVALID_MFG_LOOKUP';
2541: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2542: p_x_lookup_code := l_lookup_code;
2543: ELSE
2544: x_return_status := FND_API.G_RET_STS_ERROR;
2545: x_msg_data := 'AHL_COM_TOO_MANY_MFG_LOOKUPS';
2546: END IF;
2547:
2548: CLOSE get_rec_from_value;
2577: FROM AHL_RESOURCES
2578: WHERE resource_id = c_aso_resource_id;
2579:
2580: BEGIN
2581: x_return_status := FND_API.G_RET_STS_SUCCESS;
2582:
2583: IF ( ( p_aso_resource_name IS NULL OR
2584: p_aso_resource_name = FND_API.G_MISS_CHAR ) AND
2585: ( p_x_aso_resource_id IS NULL OR
2580: BEGIN
2581: x_return_status := FND_API.G_RET_STS_SUCCESS;
2582:
2583: IF ( ( p_aso_resource_name IS NULL OR
2584: p_aso_resource_name = FND_API.G_MISS_CHAR ) AND
2585: ( p_x_aso_resource_id IS NULL OR
2586: p_x_aso_resource_id = FND_API.G_MISS_NUM ) ) THEN
2587: x_return_status := FND_API.G_RET_STS_ERROR;
2588: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2582:
2583: IF ( ( p_aso_resource_name IS NULL OR
2584: p_aso_resource_name = FND_API.G_MISS_CHAR ) AND
2585: ( p_x_aso_resource_id IS NULL OR
2586: p_x_aso_resource_id = FND_API.G_MISS_NUM ) ) THEN
2587: x_return_status := FND_API.G_RET_STS_ERROR;
2588: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2589: RETURN;
2590: END IF;
2583: IF ( ( p_aso_resource_name IS NULL OR
2584: p_aso_resource_name = FND_API.G_MISS_CHAR ) AND
2585: ( p_x_aso_resource_id IS NULL OR
2586: p_x_aso_resource_id = FND_API.G_MISS_NUM ) ) THEN
2587: x_return_status := FND_API.G_RET_STS_ERROR;
2588: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2589: RETURN;
2590: END IF;
2591:
2589: RETURN;
2590: END IF;
2591:
2592: IF ( ( p_aso_resource_name IS NULL OR
2593: p_aso_resource_name = FND_API.G_MISS_CHAR ) AND
2594: ( p_x_aso_resource_id IS NOT NULL AND
2595: p_x_aso_resource_id <> FND_API.G_MISS_NUM ) ) THEN
2596:
2597: OPEN get_rec_from_id( p_x_aso_resource_id );
2591:
2592: IF ( ( p_aso_resource_name IS NULL OR
2593: p_aso_resource_name = FND_API.G_MISS_CHAR ) AND
2594: ( p_x_aso_resource_id IS NOT NULL AND
2595: p_x_aso_resource_id <> FND_API.G_MISS_NUM ) ) THEN
2596:
2597: OPEN get_rec_from_id( p_x_aso_resource_id );
2598:
2599: FETCH get_rec_from_id INTO
2599: FETCH get_rec_from_id INTO
2600: l_aso_resource_id;
2601:
2602: IF get_rec_from_id%NOTFOUND THEN
2603: x_return_status := FND_API.G_RET_STS_ERROR;
2604: x_msg_data := 'AHL_RM_INVALID_ASO_RESOURCE';
2605: END IF;
2606:
2607: CLOSE get_rec_from_id;
2609:
2610: END IF;
2611:
2612: IF ( p_aso_resource_name IS NOT NULL AND
2613: p_aso_resource_name <> FND_API.G_MISS_CHAR ) THEN
2614:
2615: OPEN get_rec_from_value( p_aso_resource_name );
2616:
2617: LOOP
2627:
2628: END LOOP;
2629:
2630: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
2631: x_return_status := FND_API.G_RET_STS_ERROR;
2632: x_msg_data := 'AHL_RM_INVALID_ASO_RESOURCE';
2633: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2634: p_x_aso_resource_id := l_aso_resource_id;
2635: ELSE
2632: x_msg_data := 'AHL_RM_INVALID_ASO_RESOURCE';
2633: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2634: p_x_aso_resource_id := l_aso_resource_id;
2635: ELSE
2636: x_return_status := FND_API.G_RET_STS_ERROR;
2637: x_msg_data := 'AHL_RM_TOO_MANY_ASO_RESOURCES';
2638: END IF;
2639:
2640: CLOSE get_rec_from_value;
2674: WHERE resource_id = c_bom_resource_id
2675: AND organization_id = c_bom_org_id;
2676:
2677: BEGIN
2678: x_return_status := FND_API.G_RET_STS_SUCCESS;
2679:
2680: IF ( ( p_bom_resource_code IS NULL OR
2681: p_bom_resource_code = FND_API.G_MISS_CHAR ) AND
2682: ( p_x_bom_resource_id IS NULL OR
2677: BEGIN
2678: x_return_status := FND_API.G_RET_STS_SUCCESS;
2679:
2680: IF ( ( p_bom_resource_code IS NULL OR
2681: p_bom_resource_code = FND_API.G_MISS_CHAR ) AND
2682: ( p_x_bom_resource_id IS NULL OR
2683: p_x_bom_resource_id = FND_API.G_MISS_NUM ) AND
2684: ( p_x_bom_org_id IS NULL OR
2685: p_x_bom_org_id = FND_API.G_MISS_NUM ) ) THEN
2679:
2680: IF ( ( p_bom_resource_code IS NULL OR
2681: p_bom_resource_code = FND_API.G_MISS_CHAR ) AND
2682: ( p_x_bom_resource_id IS NULL OR
2683: p_x_bom_resource_id = FND_API.G_MISS_NUM ) AND
2684: ( p_x_bom_org_id IS NULL OR
2685: p_x_bom_org_id = FND_API.G_MISS_NUM ) ) THEN
2686: x_return_status := FND_API.G_RET_STS_ERROR;
2687: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2681: p_bom_resource_code = FND_API.G_MISS_CHAR ) AND
2682: ( p_x_bom_resource_id IS NULL OR
2683: p_x_bom_resource_id = FND_API.G_MISS_NUM ) AND
2684: ( p_x_bom_org_id IS NULL OR
2685: p_x_bom_org_id = FND_API.G_MISS_NUM ) ) THEN
2686: x_return_status := FND_API.G_RET_STS_ERROR;
2687: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2688: RETURN;
2689: END IF;
2682: ( p_x_bom_resource_id IS NULL OR
2683: p_x_bom_resource_id = FND_API.G_MISS_NUM ) AND
2684: ( p_x_bom_org_id IS NULL OR
2685: p_x_bom_org_id = FND_API.G_MISS_NUM ) ) THEN
2686: x_return_status := FND_API.G_RET_STS_ERROR;
2687: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2688: RETURN;
2689: END IF;
2690:
2688: RETURN;
2689: END IF;
2690:
2691: IF ( ( p_bom_resource_code IS NULL OR
2692: p_bom_resource_code = FND_API.G_MISS_CHAR ) AND
2693: ( p_x_bom_resource_id IS NOT NULL AND
2694: p_x_bom_resource_id <> FND_API.G_MISS_NUM AND
2695: p_x_bom_org_id IS NOT NULL AND
2696: p_x_bom_org_id <> FND_API.G_MISS_NUM ) ) THEN
2690:
2691: IF ( ( p_bom_resource_code IS NULL OR
2692: p_bom_resource_code = FND_API.G_MISS_CHAR ) AND
2693: ( p_x_bom_resource_id IS NOT NULL AND
2694: p_x_bom_resource_id <> FND_API.G_MISS_NUM AND
2695: p_x_bom_org_id IS NOT NULL AND
2696: p_x_bom_org_id <> FND_API.G_MISS_NUM ) ) THEN
2697:
2698: OPEN get_rec_from_id( p_x_bom_resource_id , p_x_bom_org_id );
2692: p_bom_resource_code = FND_API.G_MISS_CHAR ) AND
2693: ( p_x_bom_resource_id IS NOT NULL AND
2694: p_x_bom_resource_id <> FND_API.G_MISS_NUM AND
2695: p_x_bom_org_id IS NOT NULL AND
2696: p_x_bom_org_id <> FND_API.G_MISS_NUM ) ) THEN
2697:
2698: OPEN get_rec_from_id( p_x_bom_resource_id , p_x_bom_org_id );
2699:
2700: FETCH get_rec_from_id INTO
2701: l_bom_resource_id,
2702: l_bom_org_id;
2703:
2704: IF ( get_rec_from_id%NOTFOUND ) THEN
2705: x_return_status := FND_API.G_RET_STS_ERROR;
2706: x_msg_data := 'AHL_RM_INVALID_BOM_RESOURCE';
2707: END IF;
2708:
2709: CLOSE get_rec_from_id;
2711:
2712: END IF;
2713:
2714: IF ( p_bom_resource_code IS NOT NULL AND
2715: p_bom_resource_code <> FND_API.G_MISS_CHAR ) THEN
2716:
2717: OPEN get_rec_from_value( p_bom_resource_code );
2718:
2719: LOOP
2731:
2732: END LOOP;
2733:
2734: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
2735: x_return_status := FND_API.G_RET_STS_ERROR;
2736: x_msg_data := 'AHL_RM_INVALID_BOM_RESOURCE';
2737: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2738: p_x_bom_resource_id := l_bom_resource_id;
2739: p_x_bom_org_id := l_bom_org_id;
2737: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2738: p_x_bom_resource_id := l_bom_resource_id;
2739: p_x_bom_org_id := l_bom_org_id;
2740: ELSE
2741: x_return_status := FND_API.G_RET_STS_ERROR;
2742: x_msg_data := 'AHL_RM_TOO_MANY_BOM_RESOURCES';
2743: END IF;
2744:
2745: CLOSE get_rec_from_value;
2773: and DEPT_RES.resource_id = c_bom_resource_id
2774: and DEPT.organization_id = c_bom_org_id;
2775:
2776: BEGIN
2777: x_return_status := FND_API.G_RET_STS_SUCCESS;
2778:
2779: IF ( p_bom_department_name IS NULL OR
2780: p_bom_department_name = FND_API.G_MISS_CHAR ) THEN
2781: x_return_status := FND_API.G_RET_STS_ERROR;
2776: BEGIN
2777: x_return_status := FND_API.G_RET_STS_SUCCESS;
2778:
2779: IF ( p_bom_department_name IS NULL OR
2780: p_bom_department_name = FND_API.G_MISS_CHAR ) THEN
2781: x_return_status := FND_API.G_RET_STS_ERROR;
2782: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2783: RETURN;
2784: END IF;
2777: x_return_status := FND_API.G_RET_STS_SUCCESS;
2778:
2779: IF ( p_bom_department_name IS NULL OR
2780: p_bom_department_name = FND_API.G_MISS_CHAR ) THEN
2781: x_return_status := FND_API.G_RET_STS_ERROR;
2782: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2783: RETURN;
2784: END IF;
2785:
2783: RETURN;
2784: END IF;
2785:
2786: IF ( p_bom_department_name IS NOT NULL AND
2787: p_bom_department_name <> FND_API.G_MISS_CHAR ) THEN
2788:
2789: OPEN get_rec_from_value( p_bom_department_name, p_bom_resource_id, p_bom_org_id );
2790:
2791: LOOP
2801:
2802: END LOOP;
2803:
2804: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
2805: x_return_status := FND_API.G_RET_STS_ERROR;
2806: x_msg_data := 'AHL_RM_INVALID_BOM_RES_DEPT';
2807: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2808: p_x_bom_department_id := l_bom_department_id;
2809: ELSE
2806: x_msg_data := 'AHL_RM_INVALID_BOM_RES_DEPT';
2807: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2808: p_x_bom_department_id := l_bom_department_id;
2809: ELSE
2810: x_return_status := FND_API.G_RET_STS_ERROR;
2811: x_msg_data := 'AHL_RM_TOO_MANY_BOM_RES_DEPTS';
2812: END IF;
2813:
2814: CLOSE get_rec_from_value;
2843: FROM CST_ACTIVITIES
2844: WHERE activity_id = c_activity_id;
2845:
2846: BEGIN
2847: x_return_status := FND_API.G_RET_STS_SUCCESS;
2848:
2849: IF ( ( p_activity IS NULL OR
2850: p_activity = FND_API.G_MISS_CHAR ) AND
2851: ( p_x_activity_id IS NULL OR
2846: BEGIN
2847: x_return_status := FND_API.G_RET_STS_SUCCESS;
2848:
2849: IF ( ( p_activity IS NULL OR
2850: p_activity = FND_API.G_MISS_CHAR ) AND
2851: ( p_x_activity_id IS NULL OR
2852: p_x_activity_id = FND_API.G_MISS_NUM ) ) THEN
2853: x_return_status := FND_API.G_RET_STS_ERROR;
2854: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2848:
2849: IF ( ( p_activity IS NULL OR
2850: p_activity = FND_API.G_MISS_CHAR ) AND
2851: ( p_x_activity_id IS NULL OR
2852: p_x_activity_id = FND_API.G_MISS_NUM ) ) THEN
2853: x_return_status := FND_API.G_RET_STS_ERROR;
2854: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2855: RETURN;
2856: END IF;
2849: IF ( ( p_activity IS NULL OR
2850: p_activity = FND_API.G_MISS_CHAR ) AND
2851: ( p_x_activity_id IS NULL OR
2852: p_x_activity_id = FND_API.G_MISS_NUM ) ) THEN
2853: x_return_status := FND_API.G_RET_STS_ERROR;
2854: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2855: RETURN;
2856: END IF;
2857:
2855: RETURN;
2856: END IF;
2857:
2858: IF ( ( p_activity IS NULL OR
2859: p_activity = FND_API.G_MISS_CHAR ) AND
2860: ( p_x_activity_id IS NOT NULL AND
2861: p_x_activity_id <> FND_API.G_MISS_NUM ) ) THEN
2862:
2863: OPEN get_rec_from_id( p_x_activity_id );
2857:
2858: IF ( ( p_activity IS NULL OR
2859: p_activity = FND_API.G_MISS_CHAR ) AND
2860: ( p_x_activity_id IS NOT NULL AND
2861: p_x_activity_id <> FND_API.G_MISS_NUM ) ) THEN
2862:
2863: OPEN get_rec_from_id( p_x_activity_id );
2864:
2865: FETCH get_rec_from_id INTO
2865: FETCH get_rec_from_id INTO
2866: l_activity_id;
2867:
2868: IF get_rec_from_id%NOTFOUND THEN
2869: x_return_status := FND_API.G_RET_STS_ERROR;
2870: x_msg_data := 'AHL_RM_INVALID_ACTIVITY';
2871: END IF;
2872:
2873: CLOSE get_rec_from_id;
2875:
2876: END IF;
2877:
2878: IF ( p_activity IS NOT NULL AND
2879: p_activity <> FND_API.G_MISS_CHAR ) THEN
2880:
2881: OPEN get_rec_from_value( p_activity );
2882:
2883: LOOP
2893:
2894: END LOOP;
2895:
2896: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
2897: x_return_status := FND_API.G_RET_STS_ERROR;
2898: x_msg_data := 'AHL_RM_INVALID_ACTIVITY';
2899: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2900: p_x_activity_id := l_activity_id;
2901: ELSE
2898: x_msg_data := 'AHL_RM_INVALID_ACTIVITY';
2899: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2900: p_x_activity_id := l_activity_id;
2901: ELSE
2902: x_return_status := FND_API.G_RET_STS_ERROR;
2903: x_msg_data := 'AHL_RM_TOO_MANY_ACTIVITIES';
2904: END IF;
2905:
2906: CLOSE get_rec_from_value;
2939: WHERE competence_id = c_skill_competence_id
2940: AND business_group_id = c_business_group_id;
2941:
2942: BEGIN
2943: x_return_status := FND_API.G_RET_STS_SUCCESS;
2944:
2945: IF ( p_business_group_id IS NULL OR
2946: p_business_group_id = FND_API.G_MISS_NUM ) THEN
2947: x_return_status := FND_API.G_RET_STS_ERROR;
2942: BEGIN
2943: x_return_status := FND_API.G_RET_STS_SUCCESS;
2944:
2945: IF ( p_business_group_id IS NULL OR
2946: p_business_group_id = FND_API.G_MISS_NUM ) THEN
2947: x_return_status := FND_API.G_RET_STS_ERROR;
2948: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2949: RETURN;
2950: END IF;
2943: x_return_status := FND_API.G_RET_STS_SUCCESS;
2944:
2945: IF ( p_business_group_id IS NULL OR
2946: p_business_group_id = FND_API.G_MISS_NUM ) THEN
2947: x_return_status := FND_API.G_RET_STS_ERROR;
2948: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2949: RETURN;
2950: END IF;
2951:
2949: RETURN;
2950: END IF;
2951:
2952: IF ( ( p_skill_name IS NULL OR
2953: p_skill_name = FND_API.G_MISS_CHAR ) AND
2954: ( p_x_skill_competence_id IS NULL OR
2955: p_x_skill_competence_id = FND_API.G_MISS_NUM ) ) THEN
2956: x_return_status := FND_API.G_RET_STS_ERROR;
2957: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2951:
2952: IF ( ( p_skill_name IS NULL OR
2953: p_skill_name = FND_API.G_MISS_CHAR ) AND
2954: ( p_x_skill_competence_id IS NULL OR
2955: p_x_skill_competence_id = FND_API.G_MISS_NUM ) ) THEN
2956: x_return_status := FND_API.G_RET_STS_ERROR;
2957: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2958: RETURN;
2959: END IF;
2952: IF ( ( p_skill_name IS NULL OR
2953: p_skill_name = FND_API.G_MISS_CHAR ) AND
2954: ( p_x_skill_competence_id IS NULL OR
2955: p_x_skill_competence_id = FND_API.G_MISS_NUM ) ) THEN
2956: x_return_status := FND_API.G_RET_STS_ERROR;
2957: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2958: RETURN;
2959: END IF;
2960:
2958: RETURN;
2959: END IF;
2960:
2961: IF ( ( p_skill_name IS NULL OR
2962: p_skill_name = FND_API.G_MISS_CHAR ) AND
2963: ( p_x_skill_competence_id IS NOT NULL AND
2964: p_x_skill_competence_id <> FND_API.G_MISS_NUM ) ) THEN
2965:
2966: OPEN get_rec_from_id( p_x_skill_competence_id, p_business_group_id );
2960:
2961: IF ( ( p_skill_name IS NULL OR
2962: p_skill_name = FND_API.G_MISS_CHAR ) AND
2963: ( p_x_skill_competence_id IS NOT NULL AND
2964: p_x_skill_competence_id <> FND_API.G_MISS_NUM ) ) THEN
2965:
2966: OPEN get_rec_from_id( p_x_skill_competence_id, p_business_group_id );
2967:
2968: FETCH get_rec_from_id INTO
2968: FETCH get_rec_from_id INTO
2969: l_skill_competence_id;
2970:
2971: IF get_rec_from_id%NOTFOUND THEN
2972: x_return_status := FND_API.G_RET_STS_ERROR;
2973: x_msg_data := 'AHL_RM_INVALID_SKILL_TYPE';
2974: END IF;
2975:
2976: CLOSE get_rec_from_id;
2978:
2979: END IF;
2980:
2981: IF ( p_skill_name IS NOT NULL AND
2982: p_skill_name <> FND_API.G_MISS_CHAR ) THEN
2983:
2984: OPEN get_rec_from_value( p_skill_name, p_business_group_id );
2985:
2986: LOOP
2996:
2997: END LOOP;
2998:
2999: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
3000: x_return_status := FND_API.G_RET_STS_ERROR;
3001: x_msg_data := 'AHL_RM_INVALID_SKILL_TYPE';
3002: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
3003: p_x_skill_competence_id := l_skill_competence_id;
3004: ELSE
3001: x_msg_data := 'AHL_RM_INVALID_SKILL_TYPE';
3002: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
3003: p_x_skill_competence_id := l_skill_competence_id;
3004: ELSE
3005: x_return_status := FND_API.G_RET_STS_ERROR;
3006: x_msg_data := 'AHL_RM_TOO_MANY_SKILL_TYPES';
3007: END IF;
3008:
3009: CLOSE get_rec_from_value;
3047: AND competence_id = c_skill_competence_id
3048: AND business_group_id = c_business_group_id;
3049:
3050: BEGIN
3051: x_return_status := FND_API.G_RET_STS_SUCCESS;
3052:
3053: IF ( p_business_group_id IS NULL OR
3054: p_business_group_id = FND_API.G_MISS_NUM OR
3055: p_skill_competence_id IS NULL OR
3050: BEGIN
3051: x_return_status := FND_API.G_RET_STS_SUCCESS;
3052:
3053: IF ( p_business_group_id IS NULL OR
3054: p_business_group_id = FND_API.G_MISS_NUM OR
3055: p_skill_competence_id IS NULL OR
3056: p_skill_competence_id = FND_API.G_MISS_NUM ) THEN
3057: x_return_status := FND_API.G_RET_STS_ERROR;
3058: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3052:
3053: IF ( p_business_group_id IS NULL OR
3054: p_business_group_id = FND_API.G_MISS_NUM OR
3055: p_skill_competence_id IS NULL OR
3056: p_skill_competence_id = FND_API.G_MISS_NUM ) THEN
3057: x_return_status := FND_API.G_RET_STS_ERROR;
3058: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3059: RETURN;
3060: END IF;
3053: IF ( p_business_group_id IS NULL OR
3054: p_business_group_id = FND_API.G_MISS_NUM OR
3055: p_skill_competence_id IS NULL OR
3056: p_skill_competence_id = FND_API.G_MISS_NUM ) THEN
3057: x_return_status := FND_API.G_RET_STS_ERROR;
3058: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3059: RETURN;
3060: END IF;
3061:
3059: RETURN;
3060: END IF;
3061:
3062: IF ( ( p_skill_level_desc IS NULL OR
3063: p_skill_level_desc = FND_API.G_MISS_CHAR ) AND
3064: ( p_x_rating_level_id IS NULL OR
3065: p_x_rating_level_id = FND_API.G_MISS_NUM ) ) THEN
3066: x_return_status := FND_API.G_RET_STS_ERROR;
3067: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3061:
3062: IF ( ( p_skill_level_desc IS NULL OR
3063: p_skill_level_desc = FND_API.G_MISS_CHAR ) AND
3064: ( p_x_rating_level_id IS NULL OR
3065: p_x_rating_level_id = FND_API.G_MISS_NUM ) ) THEN
3066: x_return_status := FND_API.G_RET_STS_ERROR;
3067: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3068: RETURN;
3069: END IF;
3062: IF ( ( p_skill_level_desc IS NULL OR
3063: p_skill_level_desc = FND_API.G_MISS_CHAR ) AND
3064: ( p_x_rating_level_id IS NULL OR
3065: p_x_rating_level_id = FND_API.G_MISS_NUM ) ) THEN
3066: x_return_status := FND_API.G_RET_STS_ERROR;
3067: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3068: RETURN;
3069: END IF;
3070:
3068: RETURN;
3069: END IF;
3070:
3071: IF ( ( p_skill_level_desc IS NULL OR
3072: p_skill_level_desc = FND_API.G_MISS_CHAR ) AND
3073: ( p_x_rating_level_id IS NOT NULL AND
3074: p_x_rating_level_id <> FND_API.G_MISS_NUM ) ) THEN
3075:
3076: OPEN get_rec_from_id( p_x_rating_level_id, p_skill_competence_id, p_business_group_id );
3070:
3071: IF ( ( p_skill_level_desc IS NULL OR
3072: p_skill_level_desc = FND_API.G_MISS_CHAR ) AND
3073: ( p_x_rating_level_id IS NOT NULL AND
3074: p_x_rating_level_id <> FND_API.G_MISS_NUM ) ) THEN
3075:
3076: OPEN get_rec_from_id( p_x_rating_level_id, p_skill_competence_id, p_business_group_id );
3077:
3078: FETCH get_rec_from_id INTO
3078: FETCH get_rec_from_id INTO
3079: l_rating_level_id;
3080:
3081: IF get_rec_from_id%NOTFOUND THEN
3082: x_return_status := FND_API.G_RET_STS_ERROR;
3083: x_msg_data := 'AHL_RM_INVALID_SKILL_LEVEL';
3084: END IF;
3085:
3086: CLOSE get_rec_from_id;
3088:
3089: END IF;
3090:
3091: IF ( p_skill_level_desc IS NOT NULL AND
3092: p_skill_level_desc <> FND_API.G_MISS_CHAR ) THEN
3093:
3094: OPEN get_rec_from_value( p_skill_level_desc, p_skill_competence_id, p_business_group_id );
3095:
3096: LOOP
3106:
3107: END LOOP;
3108:
3109: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
3110: x_return_status := FND_API.G_RET_STS_ERROR;
3111: x_msg_data := 'AHL_RM_INVALID_SKILL_LEVEL';
3112: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
3113: p_x_rating_level_id := l_rating_level_id;
3114: ELSE
3111: x_msg_data := 'AHL_RM_INVALID_SKILL_LEVEL';
3112: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
3113: p_x_rating_level_id := l_rating_level_id;
3114: ELSE
3115: x_return_status := FND_API.G_RET_STS_ERROR;
3116: x_msg_data := 'AHL_RM_TOO_MANY_SKILL_LEVELS';
3117: END IF;
3118:
3119: CLOSE get_rec_from_value;
3147: FROM PER_QUALIFICATION_TYPES
3148: WHERE qualification_type_id = c_qualification_type_id;
3149:
3150: BEGIN
3151: x_return_status := FND_API.G_RET_STS_SUCCESS;
3152:
3153: IF ( ( p_qualification_type IS NULL OR
3154: p_qualification_type = FND_API.G_MISS_CHAR ) AND
3155: ( p_x_qualification_type_id IS NULL OR
3150: BEGIN
3151: x_return_status := FND_API.G_RET_STS_SUCCESS;
3152:
3153: IF ( ( p_qualification_type IS NULL OR
3154: p_qualification_type = FND_API.G_MISS_CHAR ) AND
3155: ( p_x_qualification_type_id IS NULL OR
3156: p_x_qualification_type_id = FND_API.G_MISS_NUM ) ) THEN
3157: x_return_status := FND_API.G_RET_STS_ERROR;
3158: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3152:
3153: IF ( ( p_qualification_type IS NULL OR
3154: p_qualification_type = FND_API.G_MISS_CHAR ) AND
3155: ( p_x_qualification_type_id IS NULL OR
3156: p_x_qualification_type_id = FND_API.G_MISS_NUM ) ) THEN
3157: x_return_status := FND_API.G_RET_STS_ERROR;
3158: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3159: RETURN;
3160: END IF;
3153: IF ( ( p_qualification_type IS NULL OR
3154: p_qualification_type = FND_API.G_MISS_CHAR ) AND
3155: ( p_x_qualification_type_id IS NULL OR
3156: p_x_qualification_type_id = FND_API.G_MISS_NUM ) ) THEN
3157: x_return_status := FND_API.G_RET_STS_ERROR;
3158: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3159: RETURN;
3160: END IF;
3161:
3159: RETURN;
3160: END IF;
3161:
3162: IF ( ( p_qualification_type IS NULL OR
3163: p_qualification_type = FND_API.G_MISS_CHAR ) AND
3164: ( p_x_qualification_type_id IS NOT NULL AND
3165: p_x_qualification_type_id <> FND_API.G_MISS_NUM ) ) THEN
3166:
3167: OPEN get_rec_from_id( p_x_qualification_type_id );
3161:
3162: IF ( ( p_qualification_type IS NULL OR
3163: p_qualification_type = FND_API.G_MISS_CHAR ) AND
3164: ( p_x_qualification_type_id IS NOT NULL AND
3165: p_x_qualification_type_id <> FND_API.G_MISS_NUM ) ) THEN
3166:
3167: OPEN get_rec_from_id( p_x_qualification_type_id );
3168:
3169: FETCH get_rec_from_id INTO
3169: FETCH get_rec_from_id INTO
3170: l_qualification_type_id;
3171:
3172: IF get_rec_from_id%NOTFOUND THEN
3173: x_return_status := FND_API.G_RET_STS_ERROR;
3174: x_msg_data := 'AHL_RM_INVALID_QUAL_TYPE';
3175: END IF;
3176:
3177: CLOSE get_rec_from_id;
3179:
3180: END IF;
3181:
3182: IF ( p_qualification_type IS NOT NULL AND
3183: p_qualification_type <> FND_API.G_MISS_CHAR ) THEN
3184:
3185: OPEN get_rec_from_value( p_qualification_type );
3186:
3187: LOOP
3197:
3198: END LOOP;
3199:
3200: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
3201: x_return_status := FND_API.G_RET_STS_ERROR;
3202: x_msg_data := 'AHL_RM_INVALID_QUAL_TYPE';
3203: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
3204: p_x_qualification_type_id := l_qualification_type_id;
3205: ELSE
3202: x_msg_data := 'AHL_RM_INVALID_QUAL_TYPE';
3203: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
3204: p_x_qualification_type_id := l_qualification_type_id;
3205: ELSE
3206: x_return_status := FND_API.G_RET_STS_ERROR;
3207: x_msg_data := 'AHL_RM_TOO_MANY_QUAL_TYPES';
3208: END IF;
3209:
3210: CLOSE get_rec_from_value;
3229: WHERE route_id = c_route_id;
3230: l_route_status_code VARCHAR2(30);
3231:
3232: BEGIN
3233: x_return_status := FND_API.G_RET_STS_SUCCESS;
3234:
3235: IF ( p_route_id IS NULL OR
3236: p_route_id= FND_API.G_MISS_NUM ) THEN
3237: x_return_status := FND_API.G_RET_STS_ERROR;
3232: BEGIN
3233: x_return_status := FND_API.G_RET_STS_SUCCESS;
3234:
3235: IF ( p_route_id IS NULL OR
3236: p_route_id= FND_API.G_MISS_NUM ) THEN
3237: x_return_status := FND_API.G_RET_STS_ERROR;
3238: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3239: RETURN;
3240: END IF;
3233: x_return_status := FND_API.G_RET_STS_SUCCESS;
3234:
3235: IF ( p_route_id IS NULL OR
3236: p_route_id= FND_API.G_MISS_NUM ) THEN
3237: x_return_status := FND_API.G_RET_STS_ERROR;
3238: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3239: RETURN;
3240: END IF;
3241:
3243:
3244: FETCH get_route_status INTO l_route_status_code;
3245:
3246: IF get_route_status%NOTFOUND THEN
3247: x_return_status := FND_API.G_RET_STS_ERROR;
3248: x_msg_data := 'AHL_RM_INVALID_ROUTE';
3249: CLOSE get_route_status;
3250: RETURN;
3251: END IF;
3251: END IF;
3252:
3253: IF ( l_route_status_code <> 'DRAFT' AND
3254: l_route_status_code <> 'APPROVAL_REJECTED' ) THEN
3255: x_return_status := FND_API.G_RET_STS_ERROR;
3256: x_msg_data := 'AHL_RM_INVALID_ROUTE_STATUS';
3257: CLOSE get_route_status;
3258: RETURN;
3259: END IF;
3294: l_route_id NUMBER;
3295: l_route_no VARCHAR2(30);
3296:
3297: BEGIN
3298: x_return_status := FND_API.G_RET_STS_SUCCESS;
3299:
3300: IF ( p_efct_id IS NULL OR
3301: p_efct_id= FND_API.G_MISS_NUM ) THEN
3302: x_return_status := FND_API.G_RET_STS_ERROR;
3297: BEGIN
3298: x_return_status := FND_API.G_RET_STS_SUCCESS;
3299:
3300: IF ( p_efct_id IS NULL OR
3301: p_efct_id= FND_API.G_MISS_NUM ) THEN
3302: x_return_status := FND_API.G_RET_STS_ERROR;
3303: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3304: RETURN;
3305: END IF;
3298: x_return_status := FND_API.G_RET_STS_SUCCESS;
3299:
3300: IF ( p_efct_id IS NULL OR
3301: p_efct_id= FND_API.G_MISS_NUM ) THEN
3302: x_return_status := FND_API.G_RET_STS_ERROR;
3303: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3304: RETURN;
3305: END IF;
3306:
3308:
3309: FETCH get_efct_status INTO l_route_id;
3310:
3311: IF get_efct_status%NOTFOUND THEN
3312: x_return_status := FND_API.G_RET_STS_ERROR;
3313: x_msg_data := 'AHL_RM_INVALID_efct';
3314: CLOSE get_efct_status;
3315: RETURN;
3316: END IF;
3319:
3320: FETCH get_route_status INTO l_route_no;
3321:
3322: IF get_route_status%NOTFOUND THEN
3323: x_return_status := FND_API.G_RET_STS_ERROR;
3324: x_msg_data := 'AHL_RM_INVALID_efct_ROUTE';
3325: CLOSE get_route_status;
3326: RETURN;
3327: END IF;
3346: WHERE operation_id = c_operation_id;
3347: l_operation_status_code VARCHAR2(30);
3348:
3349: BEGIN
3350: x_return_status := FND_API.G_RET_STS_SUCCESS;
3351:
3352: IF ( p_operation_id IS NULL OR
3353: p_operation_id = FND_API.G_MISS_NUM ) THEN
3354: x_return_status := FND_API.G_RET_STS_ERROR;
3349: BEGIN
3350: x_return_status := FND_API.G_RET_STS_SUCCESS;
3351:
3352: IF ( p_operation_id IS NULL OR
3353: p_operation_id = FND_API.G_MISS_NUM ) THEN
3354: x_return_status := FND_API.G_RET_STS_ERROR;
3355: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3356: RETURN;
3357: END IF;
3350: x_return_status := FND_API.G_RET_STS_SUCCESS;
3351:
3352: IF ( p_operation_id IS NULL OR
3353: p_operation_id = FND_API.G_MISS_NUM ) THEN
3354: x_return_status := FND_API.G_RET_STS_ERROR;
3355: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3356: RETURN;
3357: END IF;
3358:
3360:
3361: FETCH get_operation_status INTO l_operation_status_code;
3362:
3363: IF get_operation_status%NOTFOUND THEN
3364: x_return_status := FND_API.G_RET_STS_ERROR;
3365: x_msg_data := 'AHL_RM_INVALID_OPERATION';
3366: CLOSE get_operation_status;
3367: RETURN;
3368: END IF;
3368: END IF;
3369:
3370: IF ( l_operation_status_code <> 'DRAFT' AND
3371: l_operation_status_code <> 'APPROVAL_REJECTED' ) THEN
3372: x_return_status := FND_API.G_RET_STS_ERROR;
3373: x_msg_data := 'AHL_RM_INVALID_OPER_STATUS';
3374: CLOSE get_operation_status;
3375: RETURN;
3376: END IF;
3529:
3530: --Pekambar Modified for VEE- USAF -- End
3531:
3532: BEGIN
3533: x_return_status := FND_API.G_RET_STS_SUCCESS;
3534:
3535: IF ( p_route_id IS NULL OR
3536: p_route_id= FND_API.G_MISS_NUM OR
3537: p_time_span IS NULL OR
3532: BEGIN
3533: x_return_status := FND_API.G_RET_STS_SUCCESS;
3534:
3535: IF ( p_route_id IS NULL OR
3536: p_route_id= FND_API.G_MISS_NUM OR
3537: p_time_span IS NULL OR
3538: p_time_span = FND_API.G_MISS_NUM ) THEN
3539: x_return_status := FND_API.G_RET_STS_ERROR;
3540: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3534:
3535: IF ( p_route_id IS NULL OR
3536: p_route_id= FND_API.G_MISS_NUM OR
3537: p_time_span IS NULL OR
3538: p_time_span = FND_API.G_MISS_NUM ) THEN
3539: x_return_status := FND_API.G_RET_STS_ERROR;
3540: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3541: RETURN;
3542: END IF;
3535: IF ( p_route_id IS NULL OR
3536: p_route_id= FND_API.G_MISS_NUM OR
3537: p_time_span IS NULL OR
3538: p_time_span = FND_API.G_MISS_NUM ) THEN
3539: x_return_status := FND_API.G_RET_STS_ERROR;
3540: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3541: RETURN;
3542: END IF;
3543:
3546: FETCH get_max_rt_resource_duration INTO x_res_max_duration;
3547:
3548: IF get_max_rt_resource_duration%FOUND THEN
3549: IF ( x_res_max_duration > p_time_span ) THEN
3550: x_return_status := FND_API.G_RET_STS_ERROR;
3551: x_msg_data := 'AHL_RM_RT_RES_TIME_LONGER';
3552: CLOSE get_max_rt_resource_duration;
3553: RETURN;
3554: END IF;
3605: END IF;
3606: x_res_max_duration := temp_max;
3607:
3608: IF ( x_res_max_duration > p_time_span ) THEN
3609: x_return_status := FND_API.G_RET_STS_ERROR;
3610: x_msg_data := 'AHL_RM_OP_RES_TIME_LONGER';
3611: END IF;
3612:
3613: --Pekambar Modified for VEE- USAF -- End
3648: AND ASS.operation_id = c_operation_id;
3649: -- Bug # 8639648 -- end
3650:
3651: BEGIN
3652: x_return_status := FND_API.G_RET_STS_SUCCESS;
3653:
3654: IF ( p_object_id IS NULL OR
3655: p_object_id= FND_API.G_MISS_NUM OR
3656: p_association_type_code IS NULL OR
3651: BEGIN
3652: x_return_status := FND_API.G_RET_STS_SUCCESS;
3653:
3654: IF ( p_object_id IS NULL OR
3655: p_object_id= FND_API.G_MISS_NUM OR
3656: p_association_type_code IS NULL OR
3657: p_association_type_code = FND_API.G_MISS_CHAR OR
3658: p_duration IS NULL OR
3659: p_duration = FND_API.G_MISS_NUM ) THEN
3653:
3654: IF ( p_object_id IS NULL OR
3655: p_object_id= FND_API.G_MISS_NUM OR
3656: p_association_type_code IS NULL OR
3657: p_association_type_code = FND_API.G_MISS_CHAR OR
3658: p_duration IS NULL OR
3659: p_duration = FND_API.G_MISS_NUM ) THEN
3660: x_return_status := FND_API.G_RET_STS_ERROR;
3661: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3655: p_object_id= FND_API.G_MISS_NUM OR
3656: p_association_type_code IS NULL OR
3657: p_association_type_code = FND_API.G_MISS_CHAR OR
3658: p_duration IS NULL OR
3659: p_duration = FND_API.G_MISS_NUM ) THEN
3660: x_return_status := FND_API.G_RET_STS_ERROR;
3661: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3662: RETURN;
3663: END IF;
3656: p_association_type_code IS NULL OR
3657: p_association_type_code = FND_API.G_MISS_CHAR OR
3658: p_duration IS NULL OR
3659: p_duration = FND_API.G_MISS_NUM ) THEN
3660: x_return_status := FND_API.G_RET_STS_ERROR;
3661: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3662: RETURN;
3663: END IF;
3664:
3669: FETCH get_route_time_span INTO x_max_rt_time_span;
3670:
3671: IF get_route_time_span%FOUND THEN
3672: IF ( x_max_rt_time_span < p_duration ) THEN
3673: x_return_status := FND_API.G_RET_STS_ERROR;
3674: x_msg_data := 'AHL_RM_RT_RES_DURATION_LONGER';
3675: END IF;
3676: END IF;
3677:
3684: FETCH get_op_route_time_span INTO x_max_rt_time_span;
3685:
3686: IF get_op_route_time_span%FOUND THEN
3687: IF ( x_max_rt_time_span < p_duration ) THEN
3688: x_return_status := FND_API.G_RET_STS_ERROR;
3689: x_msg_data := 'AHL_RM_OP_RES_DURATION_LONGER';
3690: END IF;
3691: END IF;
3692:
3746:
3747: -- Bug # 8639648 -- end
3748:
3749: BEGIN
3750: x_return_status := FND_API.G_RET_STS_SUCCESS;
3751:
3752: IF ( p_route_id IS NULL OR
3753: p_route_id = FND_API.G_MISS_NUM OR
3754: p_operation_id IS NULL OR
3749: BEGIN
3750: x_return_status := FND_API.G_RET_STS_SUCCESS;
3751:
3752: IF ( p_route_id IS NULL OR
3753: p_route_id = FND_API.G_MISS_NUM OR
3754: p_operation_id IS NULL OR
3755: p_operation_id = FND_API.G_MISS_NUM ) THEN
3756: x_return_status := FND_API.G_RET_STS_ERROR;
3757: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3751:
3752: IF ( p_route_id IS NULL OR
3753: p_route_id = FND_API.G_MISS_NUM OR
3754: p_operation_id IS NULL OR
3755: p_operation_id = FND_API.G_MISS_NUM ) THEN
3756: x_return_status := FND_API.G_RET_STS_ERROR;
3757: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3758: RETURN;
3759: END IF;
3752: IF ( p_route_id IS NULL OR
3753: p_route_id = FND_API.G_MISS_NUM OR
3754: p_operation_id IS NULL OR
3755: p_operation_id = FND_API.G_MISS_NUM ) THEN
3756: x_return_status := FND_API.G_RET_STS_ERROR;
3757: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3758: RETURN;
3759: END IF;
3760:
3766:
3767: IF ( get_route_time_span%FOUND AND
3768: get_op_max_duration%FOUND ) THEN
3769: IF ( x_rt_time_span < x_op_max_res_duration ) THEN
3770: x_return_status := FND_API.G_RET_STS_ERROR;
3771: x_msg_data := 'AHL_RM_RES_DURATION_LONGER';
3772: END IF;
3773: END IF;
3774:
3805: AND A.operation_id <> c_operation_id
3806: AND B.operation_id = c_operation_id;
3807:
3808: BEGIN
3809: x_return_status := FND_API.G_RET_STS_SUCCESS;
3810:
3811: IF ( p_start_date IS NULL OR
3812: p_start_date = FND_API.G_MISS_DATE ) THEN
3813: x_return_status := FND_API.G_RET_STS_ERROR;
3808: BEGIN
3809: x_return_status := FND_API.G_RET_STS_SUCCESS;
3810:
3811: IF ( p_start_date IS NULL OR
3812: p_start_date = FND_API.G_MISS_DATE ) THEN
3813: x_return_status := FND_API.G_RET_STS_ERROR;
3814: x_msg_data := 'AHL_RM_ST_DATE_NULL';
3815: RETURN;
3816: END IF;
3809: x_return_status := FND_API.G_RET_STS_SUCCESS;
3810:
3811: IF ( p_start_date IS NULL OR
3812: p_start_date = FND_API.G_MISS_DATE ) THEN
3813: x_return_status := FND_API.G_RET_STS_ERROR;
3814: x_msg_data := 'AHL_RM_ST_DATE_NULL';
3815: RETURN;
3816: END IF;
3817:
3815: RETURN;
3816: END IF;
3817:
3818: IF ( p_association_type IS NOT NULL AND
3819: p_association_type <> FND_API.G_MISS_CHAR AND
3820: p_association_type = 'ROUTE' ) THEN
3821:
3822: OPEN get_rt_latest_start_date( p_object_id );
3823:
3824: FETCH get_rt_latest_start_date INTO x_start_date;
3825:
3826: IF ( get_rt_latest_start_date%FOUND ) THEN
3827: IF ( TRUNC( x_start_date ) > TRUNC( p_start_date ) ) THEN
3828: x_return_status := FND_API.G_RET_STS_ERROR;
3829: x_msg_data := 'AHL_RM_ST_DATE_LESSER';
3830: END IF;
3831: END IF;
3832:
3831: END IF;
3832:
3833: CLOSE get_rt_latest_start_date;
3834: ELSIF ( p_association_type IS NOT NULL AND
3835: p_association_type <> FND_API.G_MISS_CHAR AND
3836: p_association_type = 'OPERATION' ) THEN
3837:
3838: OPEN get_op_latest_start_date( p_object_id );
3839:
3840: FETCH get_op_latest_start_date INTO x_start_date;
3841:
3842: IF ( get_op_latest_start_date%FOUND ) THEN
3843: IF ( TRUNC( x_start_date ) > TRUNC( p_start_date ) ) THEN
3844: x_return_status := FND_API.G_RET_STS_ERROR;
3845: x_msg_data := 'AHL_RM_ST_DATE_LESSER';
3846: END IF;
3847: END IF;
3848:
3870: WHERE r.route_id = c_route_id
3871: ;
3872:
3873: BEGIN
3874: x_return_status := FND_API.G_RET_STS_SUCCESS;
3875:
3876: IF ( (p_object_id IS NULL OR p_object_id = FND_API.G_MISS_NUM ) OR
3877: ( p_association_type IS NULL OR p_association_type = FND_API.G_MISS_CHAR ))
3878: THEN
3872:
3873: BEGIN
3874: x_return_status := FND_API.G_RET_STS_SUCCESS;
3875:
3876: IF ( (p_object_id IS NULL OR p_object_id = FND_API.G_MISS_NUM ) OR
3877: ( p_association_type IS NULL OR p_association_type = FND_API.G_MISS_CHAR ))
3878: THEN
3879: x_return_status := FND_API.G_RET_STS_ERROR;
3880: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3873: BEGIN
3874: x_return_status := FND_API.G_RET_STS_SUCCESS;
3875:
3876: IF ( (p_object_id IS NULL OR p_object_id = FND_API.G_MISS_NUM ) OR
3877: ( p_association_type IS NULL OR p_association_type = FND_API.G_MISS_CHAR ))
3878: THEN
3879: x_return_status := FND_API.G_RET_STS_ERROR;
3880: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3881: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
3875:
3876: IF ( (p_object_id IS NULL OR p_object_id = FND_API.G_MISS_NUM ) OR
3877: ( p_association_type IS NULL OR p_association_type = FND_API.G_MISS_CHAR ))
3878: THEN
3879: x_return_status := FND_API.G_RET_STS_ERROR;
3880: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3881: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
3882: FND_MSG_PUB.add;
3883: RETURN;
3889: x_return_status => x_return_status
3890: );
3891:
3892: -- Application code is mandatory .
3893: IF x_return_status = FND_API.G_RET_STS_ERROR
3894: THEN
3895: x_msg_data := 'AHL_COM_APPLN_CODE_NOTNULL';
3896: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_APPLN_CODE_NOTNULL' );
3897: FND_MSG_PUB.add;
3906: FETCH get_rt_ApplnUsage INTO l_object_appln_code;
3907:
3908: IF get_rt_ApplnUsage%NOTFOUND
3909: THEN
3910: x_return_status := FND_API.G_RET_STS_ERROR;
3911: x_msg_data := 'AHL_RM_INVALID_ROUTE';
3912: -- Balaji added code to push error data into fnd stack as a part of public API cleanup in 11510+
3913: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_ROUTE' );
3914: FND_MSG_PUB.add;
3921: END IF;
3922:
3923: IF (l_object_appln_code<> l_appln_code)
3924: THEN
3925: x_return_status := FND_API.G_RET_STS_ERROR;
3926: x_msg_data := 'AHL_COM_INVALID_APPLN';
3927: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_APPLN' );
3928: FND_MSG_PUB.add;
3929: END IF;
3966: BEGIN
3967:
3968:
3969: IF (
3970: ((p_position_path_id IS NOT NULL) AND (p_position_path_id <> FND_API.G_MISS_NUM ))
3971: AND
3972: ((p_item_comp_detail_id IS NULL ) OR (p_item_comp_detail_id = FND_API.G_MISS_NUM ))
3973: )
3974: THEN
3968:
3969: IF (
3970: ((p_position_path_id IS NOT NULL) AND (p_position_path_id <> FND_API.G_MISS_NUM ))
3971: AND
3972: ((p_item_comp_detail_id IS NULL ) OR (p_item_comp_detail_id = FND_API.G_MISS_NUM ))
3973: )
3974: THEN
3975: l_position_path := AHL_MC_PATH_POSITION_PVT.GET_POSREF_BY_ID(p_position_path_id);
3976: END IF ;
4105:
4106:
4107: BEGIN
4108: IF (
4109: ((p_position_path_id IS NOT NULL) AND (p_position_path_id <> FND_API.G_MISS_NUM ))
4110: AND
4111: ((p_item_comp_detail_id IS NULL ) OR (p_item_comp_detail_id = FND_API.G_MISS_NUM ))
4112: )
4113: THEN
4107: BEGIN
4108: IF (
4109: ((p_position_path_id IS NOT NULL) AND (p_position_path_id <> FND_API.G_MISS_NUM ))
4110: AND
4111: ((p_item_comp_detail_id IS NULL ) OR (p_item_comp_detail_id = FND_API.G_MISS_NUM ))
4112: )
4113: THEN
4114: -- l_source_composition := AHL_MC_PATH_POSITION_PVT.GET_POSREF_BY_ID(p_position_path_id);
4115: l_source_composition := ' ';
4115: l_source_composition := ' ';
4116: END IF;
4117:
4118: IF (
4119: ((p_position_path_id IS NULL) OR (p_position_path_id = FND_API.G_MISS_NUM ))
4120: AND
4121: ((p_item_comp_detail_id IS NOT NULL ) AND (p_item_comp_detail_id <> FND_API.G_MISS_NUM ))
4122: )
4123: THEN
4117:
4118: IF (
4119: ((p_position_path_id IS NULL) OR (p_position_path_id = FND_API.G_MISS_NUM ))
4120: AND
4121: ((p_item_comp_detail_id IS NOT NULL ) AND (p_item_comp_detail_id <> FND_API.G_MISS_NUM ))
4122: )
4123: THEN
4124:
4125: OPEN get_item_comp( p_item_comp_detail_id );
4131: CLOSE get_item_comp;
4132: END IF ;
4133:
4134: IF (
4135: ((p_position_path_id IS NOT NULL) AND (p_position_path_id <> FND_API.G_MISS_NUM ))
4136: AND
4137: ((p_item_comp_detail_id IS NOT NULL ) AND (p_item_comp_detail_id <> FND_API.G_MISS_NUM ))
4138: )
4139: THEN
4133:
4134: IF (
4135: ((p_position_path_id IS NOT NULL) AND (p_position_path_id <> FND_API.G_MISS_NUM ))
4136: AND
4137: ((p_item_comp_detail_id IS NOT NULL ) AND (p_item_comp_detail_id <> FND_API.G_MISS_NUM ))
4138: )
4139: THEN
4140:
4141: OPEN get_item_comp( p_item_comp_detail_id );
4189: l_api_name CONSTANT VARCHAR2(30) := 'OPERATION_NUMBER_TO_ID';
4190:
4191: BEGIN
4192:
4193: x_return_status := FND_API.G_RET_STS_SUCCESS;
4194: OPEN oper_name_rev_csr_type(p_operation_number, p_operation_revision);
4195: FETCH oper_name_rev_csr_type INTO l_operation_id;
4196: CLOSE oper_name_rev_csr_type;
4197:
4195: FETCH oper_name_rev_csr_type INTO l_operation_id;
4196: CLOSE oper_name_rev_csr_type;
4197:
4198: IF l_operation_id IS NULL THEN
4199: x_return_status := FND_API.G_RET_STS_ERROR;
4200: FND_MESSAGE.SET_NAME('AHL','AHL_RM_INV_OPER_NO_REV');
4201: FND_MESSAGE.SET_TOKEN('NUMBER', p_operation_number);
4202: FND_MESSAGE.SET_TOKEN('REVISION', p_operation_revision);
4203: FND_MSG_PUB.ADD;
4238: l_route_id NUMBER;
4239: l_api_name CONSTANT VARCHAR2(30) := 'ROUTE_NUMBER_TO_ID';
4240:
4241: BEGIN
4242: x_return_status := FND_API.G_RET_STS_SUCCESS;
4243:
4244: OPEN route_name_rev_csr_type(p_route_number, p_route_revision);
4245: FETCH route_name_rev_csr_type INTO l_route_id;
4246: CLOSE route_name_rev_csr_type;
4245: FETCH route_name_rev_csr_type INTO l_route_id;
4246: CLOSE route_name_rev_csr_type;
4247:
4248: IF l_route_id IS NULL THEN
4249: x_return_status := FND_API.G_RET_STS_ERROR;
4250: FND_MESSAGE.SET_NAME('AHL','AHL_RM_INV_ROUTE_NO_REV');
4251: FND_MESSAGE.SET_TOKEN('NUMBER', p_route_number);
4252: FND_MESSAGE.SET_TOKEN('REVISION', p_route_revision);
4253: FND_MSG_PUB.ADD;
4292: mc_header1.mc_id = c_mc_id and
4293: mc_header1.config_status_code = 'COMPLETE'
4294: AND rowid = (SELECT MIN(rowid) FROM AHL_MC_HEADERS_VL where config_status_code = 'COMPLETE' and mc_id = mc_header1.mc_id);
4295: BEGIN
4296: x_return_status := FND_API.G_RET_STS_SUCCESS;
4297: IF ( ( p_mc_name IS NULL OR
4298: p_mc_name = FND_API.G_MISS_CHAR ) AND
4299: ( p_x_mc_id IS NULL OR
4300: p_x_mc_id = FND_API.G_MISS_NUM ) ) THEN
4294: AND rowid = (SELECT MIN(rowid) FROM AHL_MC_HEADERS_VL where config_status_code = 'COMPLETE' and mc_id = mc_header1.mc_id);
4295: BEGIN
4296: x_return_status := FND_API.G_RET_STS_SUCCESS;
4297: IF ( ( p_mc_name IS NULL OR
4298: p_mc_name = FND_API.G_MISS_CHAR ) AND
4299: ( p_x_mc_id IS NULL OR
4300: p_x_mc_id = FND_API.G_MISS_NUM ) ) THEN
4301: x_return_status := FND_API.G_RET_STS_ERROR;
4302: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
4296: x_return_status := FND_API.G_RET_STS_SUCCESS;
4297: IF ( ( p_mc_name IS NULL OR
4298: p_mc_name = FND_API.G_MISS_CHAR ) AND
4299: ( p_x_mc_id IS NULL OR
4300: p_x_mc_id = FND_API.G_MISS_NUM ) ) THEN
4301: x_return_status := FND_API.G_RET_STS_ERROR;
4302: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
4303: RETURN;
4304: END IF;
4297: IF ( ( p_mc_name IS NULL OR
4298: p_mc_name = FND_API.G_MISS_CHAR ) AND
4299: ( p_x_mc_id IS NULL OR
4300: p_x_mc_id = FND_API.G_MISS_NUM ) ) THEN
4301: x_return_status := FND_API.G_RET_STS_ERROR;
4302: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
4303: RETURN;
4304: END IF;
4305: IF ( ( p_mc_name IS NULL OR
4302: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
4303: RETURN;
4304: END IF;
4305: IF ( ( p_mc_name IS NULL OR
4306: p_mc_name = FND_API.G_MISS_CHAR ) AND
4307: ( p_x_mc_id IS NOT NULL AND
4308: p_x_mc_id <> FND_API.G_MISS_NUM ) ) THEN
4309: OPEN get_rec_from_id( p_x_mc_id );
4310: FETCH get_rec_from_id INTO
4304: END IF;
4305: IF ( ( p_mc_name IS NULL OR
4306: p_mc_name = FND_API.G_MISS_CHAR ) AND
4307: ( p_x_mc_id IS NOT NULL AND
4308: p_x_mc_id <> FND_API.G_MISS_NUM ) ) THEN
4309: OPEN get_rec_from_id( p_x_mc_id );
4310: FETCH get_rec_from_id INTO
4311: l_mc_id;
4312: IF get_rec_from_id%NOTFOUND THEN
4309: OPEN get_rec_from_id( p_x_mc_id );
4310: FETCH get_rec_from_id INTO
4311: l_mc_id;
4312: IF get_rec_from_id%NOTFOUND THEN
4313: x_return_status := FND_API.G_RET_STS_ERROR;
4314: x_msg_data := 'AHL_RM_INVALID_MASTER_CONF';
4315: END IF;
4316: CLOSE get_rec_from_id;
4317: RETURN;
4316: CLOSE get_rec_from_id;
4317: RETURN;
4318: END IF;
4319: IF ( p_mc_name IS NOT NULL AND
4320: p_mc_name <> FND_API.G_MISS_CHAR ) THEN
4321: OPEN get_rec_from_value( p_mc_name);
4322: LOOP
4323: FETCH get_rec_from_value INTO
4324: l_mc_id;
4328: RETURN;
4329: END IF;
4330: END LOOP;
4331: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
4332: x_return_status := FND_API.G_RET_STS_ERROR;
4333: x_msg_data := 'AHL_RM_INVALID_MASTER_CONF';
4334: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
4335: p_x_mc_id := l_mc_id;
4336: ELSE
4333: x_msg_data := 'AHL_RM_INVALID_MASTER_CONF';
4334: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
4335: p_x_mc_id := l_mc_id;
4336: ELSE
4337: x_return_status := FND_API.G_RET_STS_ERROR;
4338: x_msg_data := 'AHL_RM_TOO_MANY_MASTER_CONF';
4339: END IF;
4340: CLOSE get_rec_from_value;
4341: RETURN;
4414: amh2.config_status_code = 'COMPLETE' and
4415: nvl(rel.active_end_date, SYSDATE + 1) > SYSDATE);
4416:
4417: BEGIN
4418: x_return_status := FND_API.G_RET_STS_SUCCESS;
4419: IF ( ( p_mc_position IS NULL OR
4420: p_mc_position = FND_API.G_MISS_CHAR ) AND
4421: ( p_x_mc_position_key IS NULL OR
4422: p_x_mc_position_key = FND_API.G_MISS_NUM ) ) THEN
4416:
4417: BEGIN
4418: x_return_status := FND_API.G_RET_STS_SUCCESS;
4419: IF ( ( p_mc_position IS NULL OR
4420: p_mc_position = FND_API.G_MISS_CHAR ) AND
4421: ( p_x_mc_position_key IS NULL OR
4422: p_x_mc_position_key = FND_API.G_MISS_NUM ) ) THEN
4423: x_return_status := FND_API.G_RET_STS_ERROR;
4424: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
4418: x_return_status := FND_API.G_RET_STS_SUCCESS;
4419: IF ( ( p_mc_position IS NULL OR
4420: p_mc_position = FND_API.G_MISS_CHAR ) AND
4421: ( p_x_mc_position_key IS NULL OR
4422: p_x_mc_position_key = FND_API.G_MISS_NUM ) ) THEN
4423: x_return_status := FND_API.G_RET_STS_ERROR;
4424: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
4425: RETURN;
4426: END IF;
4419: IF ( ( p_mc_position IS NULL OR
4420: p_mc_position = FND_API.G_MISS_CHAR ) AND
4421: ( p_x_mc_position_key IS NULL OR
4422: p_x_mc_position_key = FND_API.G_MISS_NUM ) ) THEN
4423: x_return_status := FND_API.G_RET_STS_ERROR;
4424: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
4425: RETURN;
4426: END IF;
4427: IF ( ( p_mc_position IS NULL OR
4424: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
4425: RETURN;
4426: END IF;
4427: IF ( ( p_mc_position IS NULL OR
4428: p_mc_position = FND_API.G_MISS_CHAR ) AND
4429: ( p_x_mc_position_key IS NOT NULL AND
4430: p_x_mc_position_key <> FND_API.G_MISS_NUM ) ) THEN
4431: OPEN get_rec_from_id( p_mc_id, p_x_mc_position_key );
4432: FETCH get_rec_from_id INTO
4426: END IF;
4427: IF ( ( p_mc_position IS NULL OR
4428: p_mc_position = FND_API.G_MISS_CHAR ) AND
4429: ( p_x_mc_position_key IS NOT NULL AND
4430: p_x_mc_position_key <> FND_API.G_MISS_NUM ) ) THEN
4431: OPEN get_rec_from_id( p_mc_id, p_x_mc_position_key );
4432: FETCH get_rec_from_id INTO
4433: l_mc_position_key;
4434: IF get_rec_from_id%NOTFOUND THEN
4431: OPEN get_rec_from_id( p_mc_id, p_x_mc_position_key );
4432: FETCH get_rec_from_id INTO
4433: l_mc_position_key;
4434: IF get_rec_from_id%NOTFOUND THEN
4435: x_return_status := FND_API.G_RET_STS_ERROR;
4436: x_msg_data := 'AHL_RM_INVALID_MC_POS';
4437: END IF;
4438: CLOSE get_rec_from_id;
4439: RETURN;
4438: CLOSE get_rec_from_id;
4439: RETURN;
4440: END IF;
4441: IF ( p_mc_position IS NOT NULL AND
4442: p_mc_position <> FND_API.G_MISS_CHAR ) THEN
4443: OPEN get_rec_from_value( p_mc_id, p_mc_position );
4444: LOOP
4445: FETCH get_rec_from_value INTO
4446: l_mc_position_key;
4450: RETURN;
4451: END IF;
4452: END LOOP;
4453: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
4454: x_return_status := FND_API.G_RET_STS_ERROR;
4455: x_msg_data := 'AHL_RM_INVALID_MC_POS';
4456: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
4457: p_x_mc_position_key := l_mc_position_key;
4458: ELSE
4455: x_msg_data := 'AHL_RM_INVALID_MC_POS';
4456: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
4457: p_x_mc_position_key := l_mc_position_key;
4458: ELSE
4459: x_return_status := FND_API.G_RET_STS_ERROR;
4460: x_msg_data := 'AHL_RM_TOO_MANY_MC_POS';
4461: END IF;
4462: CLOSE get_rec_from_value;
4463: RETURN;