[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;
127: AND SYSDATE BETWEEN NVL( start_date_active, SYSDATE ) AND
128: NVL( end_date_active, SYSDATE );
129:
130: BEGIN
131: x_return_status := FND_API.G_RET_STS_SUCCESS;
132:
133: IF ( p_lookup_type IS NULL OR
134: p_lookup_type = FND_API.G_MISS_CHAR ) THEN
135: x_return_status := FND_API.G_RET_STS_ERROR;
130: BEGIN
131: x_return_status := FND_API.G_RET_STS_SUCCESS;
132:
133: IF ( p_lookup_type IS NULL OR
134: p_lookup_type = FND_API.G_MISS_CHAR ) THEN
135: x_return_status := FND_API.G_RET_STS_ERROR;
136: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
137: RETURN;
138: END IF;
131: x_return_status := FND_API.G_RET_STS_SUCCESS;
132:
133: IF ( p_lookup_type IS NULL OR
134: p_lookup_type = FND_API.G_MISS_CHAR ) THEN
135: x_return_status := FND_API.G_RET_STS_ERROR;
136: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
137: RETURN;
138: END IF;
139:
137: RETURN;
138: END IF;
139:
140: IF ( ( p_lookup_meaning IS NULL OR
141: p_lookup_meaning = FND_API.G_MISS_CHAR ) AND
142: ( p_x_lookup_code IS NULL OR
143: p_x_lookup_code = FND_API.G_MISS_CHAR ) ) THEN
144: x_return_status := FND_API.G_RET_STS_ERROR;
145: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
139:
140: IF ( ( p_lookup_meaning IS NULL OR
141: p_lookup_meaning = FND_API.G_MISS_CHAR ) AND
142: ( p_x_lookup_code IS NULL OR
143: p_x_lookup_code = FND_API.G_MISS_CHAR ) ) THEN
144: x_return_status := FND_API.G_RET_STS_ERROR;
145: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
146: RETURN;
147: END IF;
140: IF ( ( p_lookup_meaning IS NULL OR
141: p_lookup_meaning = FND_API.G_MISS_CHAR ) AND
142: ( p_x_lookup_code IS NULL OR
143: p_x_lookup_code = FND_API.G_MISS_CHAR ) ) THEN
144: x_return_status := FND_API.G_RET_STS_ERROR;
145: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
146: RETURN;
147: END IF;
148:
146: RETURN;
147: END IF;
148:
149: IF ( ( p_lookup_meaning IS NULL OR
150: p_lookup_meaning = FND_API.G_MISS_CHAR ) AND
151: ( p_x_lookup_code IS NOT NULL AND
152: p_x_lookup_code <> FND_API.G_MISS_CHAR ) ) THEN
153:
154: OPEN get_rec_from_id( p_lookup_type, p_x_lookup_code );
148:
149: IF ( ( p_lookup_meaning IS NULL OR
150: p_lookup_meaning = FND_API.G_MISS_CHAR ) AND
151: ( p_x_lookup_code IS NOT NULL AND
152: p_x_lookup_code <> FND_API.G_MISS_CHAR ) ) THEN
153:
154: OPEN get_rec_from_id( p_lookup_type, p_x_lookup_code );
155:
156: FETCH get_rec_from_id INTO
156: FETCH get_rec_from_id INTO
157: l_lookup_code;
158:
159: IF get_rec_from_id%NOTFOUND THEN
160: x_return_status := FND_API.G_RET_STS_ERROR;
161: x_msg_data := 'AHL_COM_INVALID_LOOKUP';
162: END IF;
163:
164: CLOSE get_rec_from_id;
166:
167: END IF;
168:
169: IF ( p_lookup_meaning IS NOT NULL AND
170: p_lookup_meaning <> FND_API.G_MISS_CHAR ) THEN
171:
172: OPEN get_rec_from_value( p_lookup_type, p_lookup_meaning );
173:
174: LOOP
184:
185: END LOOP;
186:
187: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
188: x_return_status := FND_API.G_RET_STS_ERROR;
189: x_msg_data := 'AHL_COM_INVALID_LOOKUP';
190: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
191: p_x_lookup_code := l_lookup_code;
192: ELSE
189: x_msg_data := 'AHL_COM_INVALID_LOOKUP';
190: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
191: p_x_lookup_code := l_lookup_code;
192: ELSE
193: x_return_status := FND_API.G_RET_STS_ERROR;
194: x_msg_data := 'AHL_COM_TOO_MANY_LOOKUPS';
195: END IF;
196:
197: CLOSE get_rec_from_value;
225: FROM HZ_PARTIES
226: WHERE party_id = c_operator_party_id;
227:
228: BEGIN
229: x_return_status := FND_API.G_RET_STS_SUCCESS;
230:
231: IF ( ( p_operator_name IS NULL OR
232: p_operator_name = FND_API.G_MISS_CHAR ) AND
233: ( p_x_operator_party_id IS NULL OR
228: BEGIN
229: x_return_status := FND_API.G_RET_STS_SUCCESS;
230:
231: IF ( ( p_operator_name IS NULL OR
232: p_operator_name = FND_API.G_MISS_CHAR ) AND
233: ( p_x_operator_party_id IS NULL OR
234: p_x_operator_party_id = FND_API.G_MISS_NUM ) ) THEN
235: x_return_status := FND_API.G_RET_STS_ERROR;
236: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
230:
231: IF ( ( p_operator_name IS NULL OR
232: p_operator_name = FND_API.G_MISS_CHAR ) AND
233: ( p_x_operator_party_id IS NULL OR
234: p_x_operator_party_id = FND_API.G_MISS_NUM ) ) THEN
235: x_return_status := FND_API.G_RET_STS_ERROR;
236: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
237: RETURN;
238: END IF;
231: IF ( ( p_operator_name IS NULL OR
232: p_operator_name = FND_API.G_MISS_CHAR ) AND
233: ( p_x_operator_party_id IS NULL OR
234: p_x_operator_party_id = FND_API.G_MISS_NUM ) ) THEN
235: x_return_status := FND_API.G_RET_STS_ERROR;
236: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
237: RETURN;
238: END IF;
239:
237: RETURN;
238: END IF;
239:
240: IF ( ( p_operator_name IS NULL OR
241: p_operator_name = FND_API.G_MISS_CHAR ) AND
242: ( p_x_operator_party_id IS NOT NULL AND
243: p_x_operator_party_id <> FND_API.G_MISS_NUM ) ) THEN
244:
245: OPEN get_rec_from_id( p_x_operator_party_id );
239:
240: IF ( ( p_operator_name IS NULL OR
241: p_operator_name = FND_API.G_MISS_CHAR ) AND
242: ( p_x_operator_party_id IS NOT NULL AND
243: p_x_operator_party_id <> FND_API.G_MISS_NUM ) ) THEN
244:
245: OPEN get_rec_from_id( p_x_operator_party_id );
246:
247: FETCH get_rec_from_id INTO
247: FETCH get_rec_from_id INTO
248: l_operator_party_id;
249:
250: IF get_rec_from_id%NOTFOUND THEN
251: x_return_status := FND_API.G_RET_STS_ERROR;
252: x_msg_data := 'AHL_RM_INVALID_OPERATOR';
253: END IF;
254:
255: CLOSE get_rec_from_id;
257:
258: END IF;
259:
260: IF ( p_operator_name IS NOT NULL AND
261: p_operator_name <> FND_API.G_MISS_CHAR ) THEN
262:
263: OPEN get_rec_from_value( p_operator_name );
264:
265: LOOP
275:
276: END LOOP;
277:
278: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
279: x_return_status := FND_API.G_RET_STS_ERROR;
280: x_msg_data := 'AHL_RM_INVALID_OPERATOR';
281: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
282: p_x_operator_party_id := l_operator_party_id;
283: ELSE
280: x_msg_data := 'AHL_RM_INVALID_OPERATOR';
281: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
282: p_x_operator_party_id := l_operator_party_id;
283: ELSE
284: x_return_status := FND_API.G_RET_STS_ERROR;
285: x_msg_data := 'AHL_RM_TOO_MANY_OPERATORS';
286: END IF;
287:
288: CLOSE get_rec_from_value;
406: */
407:
408:
409: BEGIN
410: x_return_status := FND_API.G_RET_STS_SUCCESS;
411:
412: IF ( ( p_item_number IS NULL OR
413: p_item_number = FND_API.G_MISS_CHAR ) AND
414: ( p_x_inventory_item_id IS NULL OR
409: BEGIN
410: x_return_status := FND_API.G_RET_STS_SUCCESS;
411:
412: IF ( ( p_item_number IS NULL OR
413: p_item_number = FND_API.G_MISS_CHAR ) AND
414: ( p_x_inventory_item_id IS NULL OR
415: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
416: ( p_x_inventory_org_id IS NULL OR
417: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
411:
412: IF ( ( p_item_number IS NULL OR
413: p_item_number = FND_API.G_MISS_CHAR ) AND
414: ( p_x_inventory_item_id IS NULL OR
415: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
416: ( p_x_inventory_org_id IS NULL OR
417: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
418: x_return_status := FND_API.G_RET_STS_ERROR;
419: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
413: p_item_number = FND_API.G_MISS_CHAR ) AND
414: ( p_x_inventory_item_id IS NULL OR
415: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
416: ( p_x_inventory_org_id IS NULL OR
417: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
418: x_return_status := FND_API.G_RET_STS_ERROR;
419: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
420: RETURN;
421: END IF;
414: ( p_x_inventory_item_id IS NULL OR
415: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
416: ( p_x_inventory_org_id IS NULL OR
417: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
418: x_return_status := FND_API.G_RET_STS_ERROR;
419: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
420: RETURN;
421: END IF;
422:
420: RETURN;
421: END IF;
422:
423: IF ( ( p_item_number IS NULL OR
424: p_item_number = FND_API.G_MISS_CHAR ) AND
425: ( p_x_inventory_item_id IS NOT NULL AND
426: p_x_inventory_item_id <> FND_API.G_MISS_NUM AND
427: p_x_inventory_org_id IS NOT NULL AND
428: p_x_inventory_org_id <> FND_API.G_MISS_NUM ) ) THEN
422:
423: IF ( ( p_item_number IS NULL OR
424: p_item_number = FND_API.G_MISS_CHAR ) AND
425: ( p_x_inventory_item_id IS NOT NULL AND
426: p_x_inventory_item_id <> FND_API.G_MISS_NUM AND
427: p_x_inventory_org_id IS NOT NULL AND
428: p_x_inventory_org_id <> FND_API.G_MISS_NUM ) ) THEN
429:
430: OPEN get_rec_from_id( p_x_inventory_item_id , p_x_inventory_org_id );
424: p_item_number = FND_API.G_MISS_CHAR ) AND
425: ( p_x_inventory_item_id IS NOT NULL AND
426: p_x_inventory_item_id <> FND_API.G_MISS_NUM AND
427: p_x_inventory_org_id IS NOT NULL AND
428: p_x_inventory_org_id <> FND_API.G_MISS_NUM ) ) THEN
429:
430: OPEN get_rec_from_id( p_x_inventory_item_id , p_x_inventory_org_id );
431:
432: FETCH get_rec_from_id INTO
434: l_inventory_org_id,
435: l_inventory_item_flag;
436:
437: IF ( get_rec_from_id%NOTFOUND ) THEN
438: x_return_status := FND_API.G_RET_STS_ERROR;
439: x_msg_data := 'AHL_COM_INVALID_ITEM';
440: ELSE
441: IF ( l_inventory_item_flag = 'N' ) THEN
442: x_return_status := FND_API.G_RET_STS_ERROR;
438: x_return_status := FND_API.G_RET_STS_ERROR;
439: x_msg_data := 'AHL_COM_INVALID_ITEM';
440: ELSE
441: IF ( l_inventory_item_flag = 'N' ) THEN
442: x_return_status := FND_API.G_RET_STS_ERROR;
443: x_msg_data := 'AHL_COM_NOT_COMPONENT_ITEM';
444: END IF;
445: END IF;
446:
449:
450: END IF;
451:
452: IF ( p_item_number IS NOT NULL AND
453: p_item_number <> FND_API.G_MISS_CHAR ) THEN
454:
455: OPEN get_rec_from_value( p_item_number , p_x_inventory_org_id);
456:
457: LOOP
471:
472: END LOOP;
473:
474: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
475: x_return_status := FND_API.G_RET_STS_ERROR;
476: x_msg_data := 'AHL_COM_INVALID_ITEM';
477: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
478: IF ( l_inventory_item_flag = 'N' ) THEN
479: x_return_status := FND_API.G_RET_STS_ERROR;
475: x_return_status := FND_API.G_RET_STS_ERROR;
476: x_msg_data := 'AHL_COM_INVALID_ITEM';
477: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
478: IF ( l_inventory_item_flag = 'N' ) THEN
479: x_return_status := FND_API.G_RET_STS_ERROR;
480: x_msg_data := 'AHL_COM_NOT_COMPONENT_ITEM';
481: ELSE
482: p_x_inventory_item_id := l_inventory_item_id;
483: p_x_inventory_org_id := l_inventory_org_id;
482: p_x_inventory_item_id := l_inventory_item_id;
483: p_x_inventory_org_id := l_inventory_org_id;
484: END IF;
485: ELSE
486: x_return_status := FND_API.G_RET_STS_ERROR;
487: x_msg_data := 'AHL_COM_TOO_MANY_ITEMS';
488: END IF;
489:
490: CLOSE get_rec_from_value;
615: order by 1;
616: */
617:
618: BEGIN
619: x_return_status := FND_API.G_RET_STS_SUCCESS;
620:
621: IF ( ( p_item_number IS NULL OR
622: p_item_number = FND_API.G_MISS_CHAR ) AND
623: ( p_x_inventory_item_id IS NULL OR
618: BEGIN
619: x_return_status := FND_API.G_RET_STS_SUCCESS;
620:
621: IF ( ( p_item_number IS NULL OR
622: p_item_number = FND_API.G_MISS_CHAR ) AND
623: ( p_x_inventory_item_id IS NULL OR
624: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
625: ( p_x_inventory_org_id IS NULL OR
626: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
620:
621: IF ( ( p_item_number IS NULL OR
622: p_item_number = FND_API.G_MISS_CHAR ) AND
623: ( p_x_inventory_item_id IS NULL OR
624: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
625: ( p_x_inventory_org_id IS NULL OR
626: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
627: x_return_status := FND_API.G_RET_STS_ERROR;
628: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
622: p_item_number = FND_API.G_MISS_CHAR ) AND
623: ( p_x_inventory_item_id IS NULL OR
624: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
625: ( p_x_inventory_org_id IS NULL OR
626: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
627: x_return_status := FND_API.G_RET_STS_ERROR;
628: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
629: RETURN;
630: END IF;
623: ( p_x_inventory_item_id IS NULL OR
624: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
625: ( p_x_inventory_org_id IS NULL OR
626: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
627: x_return_status := FND_API.G_RET_STS_ERROR;
628: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
629: RETURN;
630: END IF;
631:
629: RETURN;
630: END IF;
631:
632: IF ( ( p_item_number IS NULL OR
633: p_item_number = FND_API.G_MISS_CHAR ) AND
634: ( p_x_inventory_item_id IS NOT NULL AND
635: p_x_inventory_item_id <> FND_API.G_MISS_NUM AND
636: p_x_inventory_org_id IS NOT NULL AND
637: p_x_inventory_org_id <> FND_API.G_MISS_NUM ) ) THEN
631:
632: IF ( ( p_item_number IS NULL OR
633: p_item_number = FND_API.G_MISS_CHAR ) AND
634: ( p_x_inventory_item_id IS NOT NULL AND
635: p_x_inventory_item_id <> FND_API.G_MISS_NUM AND
636: p_x_inventory_org_id IS NOT NULL AND
637: p_x_inventory_org_id <> FND_API.G_MISS_NUM ) ) THEN
638:
639: OPEN get_rec_from_id( p_x_inventory_item_id , p_x_inventory_org_id );
633: p_item_number = FND_API.G_MISS_CHAR ) AND
634: ( p_x_inventory_item_id IS NOT NULL AND
635: p_x_inventory_item_id <> FND_API.G_MISS_NUM AND
636: p_x_inventory_org_id IS NOT NULL AND
637: p_x_inventory_org_id <> FND_API.G_MISS_NUM ) ) THEN
638:
639: OPEN get_rec_from_id( p_x_inventory_item_id , p_x_inventory_org_id );
640:
641: FETCH get_rec_from_id INTO
646: l_stock_enabled_flag,
647: l_wip_supply_type;
648:
649: IF ( get_rec_from_id%NOTFOUND ) THEN
650: x_return_status := FND_API.G_RET_STS_ERROR;
651: x_msg_data := 'AHL_COM_INVALID_ITEM';
652: ELSE
653: IF ( l_inventory_item_flag = 'N' OR
654: l_mtl_txns_enabled_flag = 'N' OR
653: IF ( l_inventory_item_flag = 'N' OR
654: l_mtl_txns_enabled_flag = 'N' OR
655: l_stock_enabled_flag = 'N' OR
656: l_wip_supply_type <> 1 ) THEN
657: x_return_status := FND_API.G_RET_STS_ERROR;
658: x_msg_data := 'AHL_COM_NOT_COMPONENT_ITEM';
659: END IF;
660: END IF;
661:
664:
665: END IF;
666:
667: IF ( p_item_number IS NOT NULL AND
668: p_item_number <> FND_API.G_MISS_CHAR ) THEN
669:
670: OPEN get_rec_from_value( p_item_number , p_x_inventory_org_id);
671:
672: LOOP
692:
693: END LOOP;
694:
695: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
696: x_return_status := FND_API.G_RET_STS_ERROR;
697: x_msg_data := 'AHL_COM_INVALID_ITEM';
698: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
699: IF ( l_inventory_item_flag = 'N' OR
700: l_stock_enabled_flag = 'N' OR
699: IF ( l_inventory_item_flag = 'N' OR
700: l_stock_enabled_flag = 'N' OR
701: l_mtl_txns_enabled_flag = 'N' OR
702: l_wip_supply_type <> 1 ) THEN
703: x_return_status := FND_API.G_RET_STS_ERROR;
704: x_msg_data := 'AHL_COM_NOT_COMPONENT_ITEM';
705: ELSE
706: p_x_inventory_item_id := l_inventory_item_id;
707: p_x_inventory_org_id := l_inventory_org_id;
706: p_x_inventory_item_id := l_inventory_item_id;
707: p_x_inventory_org_id := l_inventory_org_id;
708: END IF;
709: ELSE
710: x_return_status := FND_API.G_RET_STS_ERROR;
711: x_msg_data := 'AHL_COM_TOO_MANY_ITEMS';
712: END IF;
713:
714: CLOSE get_rec_from_value;
767: AND SYSDATE BETWEEN NVL( MI.start_date_active, SYSDATE )
768: AND NVL( MI.end_date_active, SYSDATE );
769:
770: BEGIN
771: x_return_status := FND_API.G_RET_STS_SUCCESS;
772:
773: IF ( ( p_item_number IS NULL OR
774: p_item_number = FND_API.G_MISS_CHAR ) AND
775: ( p_x_inventory_item_id IS NULL OR
770: BEGIN
771: x_return_status := FND_API.G_RET_STS_SUCCESS;
772:
773: IF ( ( p_item_number IS NULL OR
774: p_item_number = FND_API.G_MISS_CHAR ) AND
775: ( p_x_inventory_item_id IS NULL OR
776: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
777: ( p_x_inventory_org_id IS NULL OR
778: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
772:
773: IF ( ( p_item_number IS NULL OR
774: p_item_number = FND_API.G_MISS_CHAR ) AND
775: ( p_x_inventory_item_id IS NULL OR
776: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
777: ( p_x_inventory_org_id IS NULL OR
778: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
779: x_return_status := FND_API.G_RET_STS_ERROR;
780: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
774: p_item_number = FND_API.G_MISS_CHAR ) AND
775: ( p_x_inventory_item_id IS NULL OR
776: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
777: ( p_x_inventory_org_id IS NULL OR
778: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
779: x_return_status := FND_API.G_RET_STS_ERROR;
780: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
781: RETURN;
782: END IF;
775: ( p_x_inventory_item_id IS NULL OR
776: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
777: ( p_x_inventory_org_id IS NULL OR
778: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
779: x_return_status := FND_API.G_RET_STS_ERROR;
780: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
781: RETURN;
782: END IF;
783:
781: RETURN;
782: END IF;
783:
784: IF ( ( p_item_number IS NULL OR
785: p_item_number = FND_API.G_MISS_CHAR ) AND
786: ( p_x_inventory_item_id IS NOT NULL AND
787: p_x_inventory_item_id <> FND_API.G_MISS_NUM AND
788: p_x_inventory_org_id IS NOT NULL AND
789: p_x_inventory_org_id <> FND_API.G_MISS_NUM ) ) THEN
783:
784: IF ( ( p_item_number IS NULL OR
785: p_item_number = FND_API.G_MISS_CHAR ) AND
786: ( p_x_inventory_item_id IS NOT NULL AND
787: p_x_inventory_item_id <> FND_API.G_MISS_NUM AND
788: p_x_inventory_org_id IS NOT NULL AND
789: p_x_inventory_org_id <> FND_API.G_MISS_NUM ) ) THEN
790:
791: OPEN get_rec_from_id( p_x_inventory_item_id , p_x_inventory_org_id );
785: p_item_number = FND_API.G_MISS_CHAR ) AND
786: ( p_x_inventory_item_id IS NOT NULL AND
787: p_x_inventory_item_id <> FND_API.G_MISS_NUM AND
788: p_x_inventory_org_id IS NOT NULL AND
789: p_x_inventory_org_id <> FND_API.G_MISS_NUM ) ) THEN
790:
791: OPEN get_rec_from_id( p_x_inventory_item_id , p_x_inventory_org_id );
792:
793: FETCH get_rec_from_id INTO
797: l_purchasing_item_flag,
798: l_purchasing_enabled_flag;
799:
800: IF ( get_rec_from_id%NOTFOUND ) THEN
801: x_return_status := FND_API.G_RET_STS_ERROR;
802: x_msg_data := 'AHL_COM_INVALID_ITEM';
803: ELSE
804: IF ( l_outside_operation_flag = 'Y' OR
805: l_purchasing_item_flag = 'N' OR
803: ELSE
804: IF ( l_outside_operation_flag = 'Y' OR
805: l_purchasing_item_flag = 'N' OR
806: l_purchasing_enabled_flag = 'N' ) THEN
807: x_return_status := FND_API.G_RET_STS_ERROR;
808: x_msg_data := 'AHL_COM_NOT_SERVICE_ITEM';
809: END IF;
810: END IF;
811:
814:
815: END IF;
816:
817: IF ( p_item_number IS NOT NULL AND
818: p_item_number <> FND_API.G_MISS_CHAR ) THEN
819:
820: OPEN get_rec_from_value( p_item_number );
821:
822: LOOP
840:
841: END LOOP;
842:
843: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
844: x_return_status := FND_API.G_RET_STS_ERROR;
845: x_msg_data := 'AHL_COM_INVALID_ITEM';
846: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
847: IF ( l_outside_operation_flag = 'Y' OR
848: l_purchasing_enabled_flag = 'N' OR
846: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
847: IF ( l_outside_operation_flag = 'Y' OR
848: l_purchasing_enabled_flag = 'N' OR
849: l_purchasing_item_flag = 'N' ) THEN
850: x_return_status := FND_API.G_RET_STS_ERROR;
851: x_msg_data := 'AHL_COM_NOT_SERVICE_ITEM';
852: ELSE
853: p_x_inventory_item_id := l_inventory_item_id;
854: p_x_inventory_org_id := l_inventory_org_id;
853: p_x_inventory_item_id := l_inventory_item_id;
854: p_x_inventory_org_id := l_inventory_org_id;
855: END IF;
856: ELSE
857: x_return_status := FND_API.G_RET_STS_ERROR;
858: x_msg_data := 'AHL_COM_TOO_MANY_ITEMS';
859: END IF;
860:
861: CLOSE get_rec_from_value;
979: */
980:
981:
982: BEGIN
983: x_return_status := FND_API.G_RET_STS_SUCCESS;
984:
985: IF ( ( p_item_number IS NULL OR
986: p_item_number = FND_API.G_MISS_CHAR ) AND
987: ( p_x_inventory_item_id IS NULL OR
982: BEGIN
983: x_return_status := FND_API.G_RET_STS_SUCCESS;
984:
985: IF ( ( p_item_number IS NULL OR
986: p_item_number = FND_API.G_MISS_CHAR ) AND
987: ( p_x_inventory_item_id IS NULL OR
988: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
989: ( p_x_inventory_org_id IS NULL OR
990: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
984:
985: IF ( ( p_item_number IS NULL OR
986: p_item_number = FND_API.G_MISS_CHAR ) AND
987: ( p_x_inventory_item_id IS NULL OR
988: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
989: ( p_x_inventory_org_id IS NULL OR
990: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
991: x_return_status := FND_API.G_RET_STS_ERROR;
992: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
986: p_item_number = FND_API.G_MISS_CHAR ) AND
987: ( p_x_inventory_item_id IS NULL OR
988: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
989: ( p_x_inventory_org_id IS NULL OR
990: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
991: x_return_status := FND_API.G_RET_STS_ERROR;
992: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
993: RETURN;
994: END IF;
987: ( p_x_inventory_item_id IS NULL OR
988: p_x_inventory_item_id = FND_API.G_MISS_NUM ) AND
989: ( p_x_inventory_org_id IS NULL OR
990: p_x_inventory_org_id = FND_API.G_MISS_NUM ) ) THEN
991: x_return_status := FND_API.G_RET_STS_ERROR;
992: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
993: RETURN;
994: END IF;
995:
993: RETURN;
994: END IF;
995:
996: IF ( (
997: ( p_item_number IS NULL OR p_item_number = FND_API.G_MISS_CHAR )
998: OR ( p_org_code IS NULL OR p_org_code = FND_API.G_MISS_CHAR )
999: )
1000: AND
1001: (
994: END IF;
995:
996: IF ( (
997: ( p_item_number IS NULL OR p_item_number = FND_API.G_MISS_CHAR )
998: OR ( p_org_code IS NULL OR p_org_code = FND_API.G_MISS_CHAR )
999: )
1000: AND
1001: (
1002: ( p_x_inventory_item_id IS NOT NULL AND p_x_inventory_item_id <> FND_API.G_MISS_NUM )
998: OR ( p_org_code IS NULL OR p_org_code = FND_API.G_MISS_CHAR )
999: )
1000: AND
1001: (
1002: ( p_x_inventory_item_id IS NOT NULL AND p_x_inventory_item_id <> FND_API.G_MISS_NUM )
1003: AND ( p_x_inventory_org_id IS NOT NULL AND p_x_inventory_org_id <> FND_API.G_MISS_NUM )
1004: )
1005: ) THEN
1006:
999: )
1000: AND
1001: (
1002: ( p_x_inventory_item_id IS NOT NULL AND p_x_inventory_item_id <> FND_API.G_MISS_NUM )
1003: AND ( p_x_inventory_org_id IS NOT NULL AND p_x_inventory_org_id <> FND_API.G_MISS_NUM )
1004: )
1005: ) THEN
1006:
1007: OPEN get_rec_from_id( p_x_inventory_item_id , p_x_inventory_org_id );
1011: l_inventory_org_id,
1012: l_comms_nl_trackable_flag;
1013:
1014: IF ( get_rec_from_id%NOTFOUND ) THEN
1015: x_return_status := FND_API.G_RET_STS_ERROR;
1016: x_msg_data := 'AHL_COM_INVALID_ITEM';
1017: ELSE
1018: IF ( l_comms_nl_trackable_flag = 'N' ) THEN
1019: x_return_status := FND_API.G_RET_STS_ERROR;
1015: x_return_status := FND_API.G_RET_STS_ERROR;
1016: x_msg_data := 'AHL_COM_INVALID_ITEM';
1017: ELSE
1018: IF ( l_comms_nl_trackable_flag = 'N' ) THEN
1019: x_return_status := FND_API.G_RET_STS_ERROR;
1020: x_msg_data := 'AHL_COM_NOT_effectivity_ITEM';
1021: END IF;
1022: END IF;
1023:
1025: RETURN;
1026:
1027: END IF;
1028:
1029: IF ( (p_item_number IS NOT NULL AND p_item_number <> FND_API.G_MISS_CHAR )
1030: AND(p_org_code IS NOT NULL AND p_item_number <> FND_API.G_MISS_CHAR)
1031: ) THEN
1032:
1033: OPEN get_rec_from_value( p_item_number, p_org_code);
1026:
1027: END IF;
1028:
1029: IF ( (p_item_number IS NOT NULL AND p_item_number <> FND_API.G_MISS_CHAR )
1030: AND(p_org_code IS NOT NULL AND p_item_number <> FND_API.G_MISS_CHAR)
1031: ) THEN
1032:
1033: OPEN get_rec_from_value( p_item_number, p_org_code);
1034:
1049:
1050: END LOOP;
1051:
1052: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
1053: x_return_status := FND_API.G_RET_STS_ERROR;
1054: x_msg_data := 'AHL_COM_INVALID_ITEM';
1055: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1056: IF ( l_comms_nl_trackable_flag = 'N' ) THEN
1057: x_return_status := FND_API.G_RET_STS_ERROR;
1053: x_return_status := FND_API.G_RET_STS_ERROR;
1054: x_msg_data := 'AHL_COM_INVALID_ITEM';
1055: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1056: IF ( l_comms_nl_trackable_flag = 'N' ) THEN
1057: x_return_status := FND_API.G_RET_STS_ERROR;
1058: x_msg_data := 'AHL_COM_NOT_effectivity_ITEM';
1059: ELSE
1060: p_x_inventory_item_id := l_inventory_item_id;
1061: p_x_inventory_org_id := l_inventory_org_id;
1060: p_x_inventory_item_id := l_inventory_item_id;
1061: p_x_inventory_org_id := l_inventory_org_id;
1062: END IF;
1063: ELSE
1064: x_return_status := FND_API.G_RET_STS_ERROR;
1065: x_msg_data := 'AHL_COM_TOO_MANY_ITEMS';
1066: END IF;
1067:
1068: CLOSE get_rec_from_value;
1104: AND organization_id = c_accounting_class_org_id
1105: AND class_type = 6;
1106:
1107: BEGIN
1108: x_return_status := FND_API.G_RET_STS_SUCCESS;
1109:
1110: IF ( ( p_accounting_class IS NULL OR
1111: p_accounting_class = FND_API.G_MISS_CHAR ) AND
1112: ( p_x_accounting_class_code IS NULL OR
1107: BEGIN
1108: x_return_status := FND_API.G_RET_STS_SUCCESS;
1109:
1110: IF ( ( p_accounting_class IS NULL OR
1111: p_accounting_class = FND_API.G_MISS_CHAR ) AND
1112: ( p_x_accounting_class_code IS NULL OR
1113: p_x_accounting_class_code = FND_API.G_MISS_CHAR ) AND
1114: ( p_x_accounting_class_org_id IS NULL OR
1115: p_x_accounting_class_org_id = FND_API.G_MISS_NUM ) ) THEN
1109:
1110: IF ( ( p_accounting_class IS NULL OR
1111: p_accounting_class = FND_API.G_MISS_CHAR ) AND
1112: ( p_x_accounting_class_code IS NULL OR
1113: p_x_accounting_class_code = FND_API.G_MISS_CHAR ) AND
1114: ( p_x_accounting_class_org_id IS NULL OR
1115: p_x_accounting_class_org_id = FND_API.G_MISS_NUM ) ) THEN
1116: x_return_status := FND_API.G_RET_STS_ERROR;
1117: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1111: p_accounting_class = FND_API.G_MISS_CHAR ) AND
1112: ( p_x_accounting_class_code IS NULL OR
1113: p_x_accounting_class_code = FND_API.G_MISS_CHAR ) AND
1114: ( p_x_accounting_class_org_id IS NULL OR
1115: p_x_accounting_class_org_id = FND_API.G_MISS_NUM ) ) THEN
1116: x_return_status := FND_API.G_RET_STS_ERROR;
1117: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1118: RETURN;
1119: END IF;
1112: ( p_x_accounting_class_code IS NULL OR
1113: p_x_accounting_class_code = FND_API.G_MISS_CHAR ) AND
1114: ( p_x_accounting_class_org_id IS NULL OR
1115: p_x_accounting_class_org_id = FND_API.G_MISS_NUM ) ) THEN
1116: x_return_status := FND_API.G_RET_STS_ERROR;
1117: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1118: RETURN;
1119: END IF;
1120:
1118: RETURN;
1119: END IF;
1120:
1121: IF ( ( p_accounting_class IS NULL OR
1122: p_accounting_class = FND_API.G_MISS_CHAR ) AND
1123: ( p_x_accounting_class_code IS NOT NULL AND
1124: p_x_accounting_class_code <> FND_API.G_MISS_CHAR AND
1125: p_x_accounting_class_org_id IS NOT NULL AND
1126: p_x_accounting_class_org_id <> FND_API.G_MISS_NUM ) ) THEN
1120:
1121: IF ( ( p_accounting_class IS NULL OR
1122: p_accounting_class = FND_API.G_MISS_CHAR ) AND
1123: ( p_x_accounting_class_code IS NOT NULL AND
1124: p_x_accounting_class_code <> FND_API.G_MISS_CHAR AND
1125: p_x_accounting_class_org_id IS NOT NULL AND
1126: p_x_accounting_class_org_id <> FND_API.G_MISS_NUM ) ) THEN
1127:
1128: OPEN get_rec_from_id( p_x_accounting_class_code , p_x_accounting_class_org_id );
1122: p_accounting_class = FND_API.G_MISS_CHAR ) AND
1123: ( p_x_accounting_class_code IS NOT NULL AND
1124: p_x_accounting_class_code <> FND_API.G_MISS_CHAR AND
1125: p_x_accounting_class_org_id IS NOT NULL AND
1126: p_x_accounting_class_org_id <> FND_API.G_MISS_NUM ) ) THEN
1127:
1128: OPEN get_rec_from_id( p_x_accounting_class_code , p_x_accounting_class_org_id );
1129:
1130: FETCH get_rec_from_id INTO
1131: l_accounting_class_code,
1132: l_accounting_class_org_id;
1133:
1134: IF get_rec_from_id%NOTFOUND THEN
1135: x_return_status := FND_API.G_RET_STS_ERROR;
1136: x_msg_data := 'AHL_RM_INVALID_ACC_CLASS';
1137: END IF;
1138:
1139: CLOSE get_rec_from_id;
1141:
1142: END IF;
1143:
1144: IF ( p_accounting_class IS NOT NULL AND
1145: p_accounting_class <> FND_API.G_MISS_CHAR ) THEN
1146:
1147: OPEN get_rec_from_value( p_accounting_class );
1148:
1149: LOOP
1161:
1162: END LOOP;
1163:
1164: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
1165: x_return_status := FND_API.G_RET_STS_ERROR;
1166: x_msg_data := 'AHL_RM_INVALID_ACC_CLASS';
1167: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1168: p_x_accounting_class_code := l_accounting_class_code;
1169: p_x_accounting_class_org_id := l_accounting_class_org_id;
1167: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1168: p_x_accounting_class_code := l_accounting_class_code;
1169: p_x_accounting_class_org_id := l_accounting_class_org_id;
1170: ELSE
1171: x_return_status := FND_API.G_RET_STS_ERROR;
1172: x_msg_data := 'AHL_RM_TOO_MANY_ACC_CLASSES';
1173: END IF;
1174:
1175: CLOSE get_rec_from_value;
1206: trunc(sysdate) < trunc(nvl(end_date_active, sysdate+1)) and
1207: task_template_group_id = c_task_template_group_id;
1208:
1209: BEGIN
1210: x_return_status := FND_API.G_RET_STS_SUCCESS;
1211:
1212: IF ( ( p_task_template_group IS NULL OR
1213: p_task_template_group = FND_API.G_MISS_CHAR ) AND
1214: ( p_x_task_template_group_id IS NULL OR
1209: BEGIN
1210: x_return_status := FND_API.G_RET_STS_SUCCESS;
1211:
1212: IF ( ( p_task_template_group IS NULL OR
1213: p_task_template_group = FND_API.G_MISS_CHAR ) AND
1214: ( p_x_task_template_group_id IS NULL OR
1215: p_x_task_template_group_id = FND_API.G_MISS_NUM ) ) THEN
1216: x_return_status := FND_API.G_RET_STS_ERROR;
1217: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1211:
1212: IF ( ( p_task_template_group IS NULL OR
1213: p_task_template_group = FND_API.G_MISS_CHAR ) AND
1214: ( p_x_task_template_group_id IS NULL OR
1215: p_x_task_template_group_id = FND_API.G_MISS_NUM ) ) THEN
1216: x_return_status := FND_API.G_RET_STS_ERROR;
1217: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1218: RETURN;
1219: END IF;
1212: IF ( ( p_task_template_group IS NULL OR
1213: p_task_template_group = FND_API.G_MISS_CHAR ) AND
1214: ( p_x_task_template_group_id IS NULL OR
1215: p_x_task_template_group_id = FND_API.G_MISS_NUM ) ) THEN
1216: x_return_status := FND_API.G_RET_STS_ERROR;
1217: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1218: RETURN;
1219: END IF;
1220:
1218: RETURN;
1219: END IF;
1220:
1221: IF ( ( p_task_template_group IS NULL OR
1222: p_task_template_group = FND_API.G_MISS_CHAR ) AND
1223: ( p_x_task_template_group_id IS NOT NULL AND
1224: p_x_task_template_group_id <> FND_API.G_MISS_NUM ) ) THEN
1225:
1226: OPEN get_rec_from_id( p_x_task_template_group_id );
1220:
1221: IF ( ( p_task_template_group IS NULL OR
1222: p_task_template_group = FND_API.G_MISS_CHAR ) AND
1223: ( p_x_task_template_group_id IS NOT NULL AND
1224: p_x_task_template_group_id <> FND_API.G_MISS_NUM ) ) THEN
1225:
1226: OPEN get_rec_from_id( p_x_task_template_group_id );
1227:
1228: FETCH get_rec_from_id INTO
1228: FETCH get_rec_from_id INTO
1229: l_task_template_group_id;
1230:
1231: IF get_rec_from_id%NOTFOUND THEN
1232: x_return_status := FND_API.G_RET_STS_ERROR;
1233: x_msg_data := 'AHL_RM_INVALID_TASK_TEMPLATE';
1234: END IF;
1235:
1236: CLOSE get_rec_from_id;
1238:
1239: END IF;
1240:
1241: IF ( p_task_template_group IS NOT NULL AND
1242: p_task_template_group <> FND_API.G_MISS_CHAR ) THEN
1243:
1244: OPEN get_rec_from_value( p_task_template_group );
1245:
1246: LOOP
1256:
1257: END LOOP;
1258:
1259: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
1260: x_return_status := FND_API.G_RET_STS_ERROR;
1261: x_msg_data := 'AHL_RM_INVALID_TASK_TEMPLATE';
1262: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1263: p_x_task_template_group_id := l_task_template_group_id;
1264: ELSE
1261: x_msg_data := 'AHL_RM_INVALID_TASK_TEMPLATE';
1262: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1263: p_x_task_template_group_id := l_task_template_group_id;
1264: ELSE
1265: x_return_status := FND_API.G_RET_STS_ERROR;
1266: x_msg_data := 'AHL_RM_TOO_MANY_TASK_TEMPLATES';
1267: END IF;
1268:
1269: CLOSE get_rec_from_value;
1297: FROM QA_CHAR_VALUE_LOOKUPS_V
1298: WHERE short_code = c_qa_inspection_type;
1299:
1300: BEGIN
1301: x_return_status := FND_API.G_RET_STS_SUCCESS;
1302:
1303: IF ( ( p_qa_inspection_type_desc IS NULL OR
1304: p_qa_inspection_type_desc = FND_API.G_MISS_CHAR ) AND
1305: ( p_x_qa_inspection_type IS NULL OR
1300: BEGIN
1301: x_return_status := FND_API.G_RET_STS_SUCCESS;
1302:
1303: IF ( ( p_qa_inspection_type_desc IS NULL OR
1304: p_qa_inspection_type_desc = FND_API.G_MISS_CHAR ) AND
1305: ( p_x_qa_inspection_type IS NULL OR
1306: p_x_qa_inspection_type = FND_API.G_MISS_CHAR ) ) THEN
1307: x_return_status := FND_API.G_RET_STS_ERROR;
1308: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1302:
1303: IF ( ( p_qa_inspection_type_desc IS NULL OR
1304: p_qa_inspection_type_desc = FND_API.G_MISS_CHAR ) AND
1305: ( p_x_qa_inspection_type IS NULL OR
1306: p_x_qa_inspection_type = FND_API.G_MISS_CHAR ) ) THEN
1307: x_return_status := FND_API.G_RET_STS_ERROR;
1308: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1309: RETURN;
1310: END IF;
1303: IF ( ( p_qa_inspection_type_desc IS NULL OR
1304: p_qa_inspection_type_desc = FND_API.G_MISS_CHAR ) AND
1305: ( p_x_qa_inspection_type IS NULL OR
1306: p_x_qa_inspection_type = FND_API.G_MISS_CHAR ) ) THEN
1307: x_return_status := FND_API.G_RET_STS_ERROR;
1308: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1309: RETURN;
1310: END IF;
1311:
1309: RETURN;
1310: END IF;
1311:
1312: IF ( ( p_qa_inspection_type_desc IS NULL OR
1313: p_qa_inspection_type_desc = FND_API.G_MISS_CHAR ) AND
1314: ( p_x_qa_inspection_type IS NOT NULL AND
1315: p_x_qa_inspection_type <> FND_API.G_MISS_CHAR ) ) THEN
1316:
1317: OPEN get_rec_from_id( p_x_qa_inspection_type );
1311:
1312: IF ( ( p_qa_inspection_type_desc IS NULL OR
1313: p_qa_inspection_type_desc = FND_API.G_MISS_CHAR ) AND
1314: ( p_x_qa_inspection_type IS NOT NULL AND
1315: p_x_qa_inspection_type <> FND_API.G_MISS_CHAR ) ) THEN
1316:
1317: OPEN get_rec_from_id( p_x_qa_inspection_type );
1318:
1319: FETCH get_rec_from_id INTO
1319: FETCH get_rec_from_id INTO
1320: l_qa_inspection_type;
1321:
1322: IF get_rec_from_id%NOTFOUND THEN
1323: x_return_status := FND_API.G_RET_STS_ERROR;
1324: x_msg_data := 'AHL_RM_INVALID_INSP_TYPE';
1325: END IF;
1326:
1327: CLOSE get_rec_from_id;
1329:
1330: END IF;
1331:
1332: IF ( p_qa_inspection_type_desc IS NOT NULL AND
1333: p_qa_inspection_type_desc <> FND_API.G_MISS_CHAR ) THEN
1334:
1335: OPEN get_rec_from_value( p_qa_inspection_type_desc );
1336:
1337: LOOP
1347:
1348: END LOOP;
1349:
1350: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
1351: x_return_status := FND_API.G_RET_STS_ERROR;
1352: x_msg_data := 'AHL_RM_INVALID_INSP_TYPE';
1353: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1354: p_x_qa_inspection_type := l_qa_inspection_type;
1355: ELSE
1352: x_msg_data := 'AHL_RM_INVALID_INSP_TYPE';
1353: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1354: p_x_qa_inspection_type := l_qa_inspection_type;
1355: ELSE
1356: x_return_status := FND_API.G_RET_STS_ERROR;
1357: x_msg_data := 'AHL_RM_TOO_MANY_INSP_TYPES';
1358: END IF;
1359:
1360: CLOSE get_rec_from_value;
1388: FROM QA_PLANS_VAL_V
1389: WHERE plan_id = c_qa_plan_id;
1390:
1391: BEGIN
1392: x_return_status := FND_API.G_RET_STS_SUCCESS;
1393:
1394: IF ( ( p_qa_plan IS NULL OR
1395: p_qa_plan = FND_API.G_MISS_CHAR ) AND
1396: ( p_x_qa_plan_id IS NULL OR
1391: BEGIN
1392: x_return_status := FND_API.G_RET_STS_SUCCESS;
1393:
1394: IF ( ( p_qa_plan IS NULL OR
1395: p_qa_plan = FND_API.G_MISS_CHAR ) AND
1396: ( p_x_qa_plan_id IS NULL OR
1397: p_x_qa_plan_id = FND_API.G_MISS_NUM ) ) THEN
1398: x_return_status := FND_API.G_RET_STS_ERROR;
1399: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1393:
1394: IF ( ( p_qa_plan IS NULL OR
1395: p_qa_plan = FND_API.G_MISS_CHAR ) AND
1396: ( p_x_qa_plan_id IS NULL OR
1397: p_x_qa_plan_id = FND_API.G_MISS_NUM ) ) THEN
1398: x_return_status := FND_API.G_RET_STS_ERROR;
1399: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1400: RETURN;
1401: END IF;
1394: IF ( ( p_qa_plan IS NULL OR
1395: p_qa_plan = FND_API.G_MISS_CHAR ) AND
1396: ( p_x_qa_plan_id IS NULL OR
1397: p_x_qa_plan_id = FND_API.G_MISS_NUM ) ) THEN
1398: x_return_status := FND_API.G_RET_STS_ERROR;
1399: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1400: RETURN;
1401: END IF;
1402:
1400: RETURN;
1401: END IF;
1402:
1403: IF ( ( p_qa_plan IS NULL OR
1404: p_qa_plan = FND_API.G_MISS_CHAR ) AND
1405: ( p_x_qa_plan_id IS NOT NULL AND
1406: p_x_qa_plan_id <> FND_API.G_MISS_NUM ) ) THEN
1407:
1408: OPEN get_rec_from_id( p_x_qa_plan_id );
1402:
1403: IF ( ( p_qa_plan IS NULL OR
1404: p_qa_plan = FND_API.G_MISS_CHAR ) AND
1405: ( p_x_qa_plan_id IS NOT NULL AND
1406: p_x_qa_plan_id <> FND_API.G_MISS_NUM ) ) THEN
1407:
1408: OPEN get_rec_from_id( p_x_qa_plan_id );
1409:
1410: FETCH get_rec_from_id INTO
1410: FETCH get_rec_from_id INTO
1411: l_qa_plan_id;
1412:
1413: IF get_rec_from_id%NOTFOUND THEN
1414: x_return_status := FND_API.G_RET_STS_ERROR;
1415: x_msg_data := 'AHL_RM_INVALID_QA_PLAN';
1416: END IF;
1417:
1418: CLOSE get_rec_from_id;
1420:
1421: END IF;
1422:
1423: IF ( p_qa_plan IS NOT NULL AND
1424: p_qa_plan <> FND_API.G_MISS_CHAR ) THEN
1425:
1426: OPEN get_rec_from_value( p_qa_plan );
1427:
1428: LOOP
1438:
1439: END LOOP;
1440:
1441: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
1442: x_return_status := FND_API.G_RET_STS_ERROR;
1443: x_msg_data := 'AHL_RM_INVALID_QA_PLAN';
1444: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1445: p_x_qa_plan_id := l_qa_plan_id;
1446: ELSE
1443: x_msg_data := 'AHL_RM_INVALID_QA_PLAN';
1444: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1445: p_x_qa_plan_id := l_qa_plan_id;
1446: ELSE
1447: x_return_status := FND_API.G_RET_STS_ERROR;
1448: x_msg_data := 'AHL_RM_TOO_MANY_QA_PLANS';
1449: END IF;
1450:
1451: CLOSE get_rec_from_value;
1482: WHERE item_group_id = c_item_group_id
1483: AND DECODE(c_association_type,'DISPOSITION',TYPE_CODE,'NON-TRACKED')='NON-TRACKED';
1484:
1485: BEGIN
1486: x_return_status := FND_API.G_RET_STS_SUCCESS;
1487:
1488: IF ( ( p_item_group_name IS NULL OR
1489: p_item_group_name = FND_API.G_MISS_CHAR ) AND
1490: ( p_x_item_group_id IS NULL OR
1485: BEGIN
1486: x_return_status := FND_API.G_RET_STS_SUCCESS;
1487:
1488: IF ( ( p_item_group_name IS NULL OR
1489: p_item_group_name = FND_API.G_MISS_CHAR ) AND
1490: ( p_x_item_group_id IS NULL OR
1491: p_x_item_group_id = FND_API.G_MISS_NUM ) ) THEN
1492: x_return_status := FND_API.G_RET_STS_ERROR;
1493: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1487:
1488: IF ( ( p_item_group_name IS NULL OR
1489: p_item_group_name = FND_API.G_MISS_CHAR ) AND
1490: ( p_x_item_group_id IS NULL OR
1491: p_x_item_group_id = FND_API.G_MISS_NUM ) ) THEN
1492: x_return_status := FND_API.G_RET_STS_ERROR;
1493: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1494: RETURN;
1495: END IF;
1488: IF ( ( p_item_group_name IS NULL OR
1489: p_item_group_name = FND_API.G_MISS_CHAR ) AND
1490: ( p_x_item_group_id IS NULL OR
1491: p_x_item_group_id = FND_API.G_MISS_NUM ) ) THEN
1492: x_return_status := FND_API.G_RET_STS_ERROR;
1493: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1494: RETURN;
1495: END IF;
1496:
1494: RETURN;
1495: END IF;
1496:
1497: IF ( ( p_item_group_name IS NULL OR
1498: p_item_group_name = FND_API.G_MISS_CHAR ) AND
1499: ( p_x_item_group_id IS NOT NULL AND
1500: p_x_item_group_id <> FND_API.G_MISS_NUM ) ) THEN
1501:
1502: OPEN get_rec_from_id( p_x_item_group_id,p_association_type );
1496:
1497: IF ( ( p_item_group_name IS NULL OR
1498: p_item_group_name = FND_API.G_MISS_CHAR ) AND
1499: ( p_x_item_group_id IS NOT NULL AND
1500: p_x_item_group_id <> FND_API.G_MISS_NUM ) ) THEN
1501:
1502: OPEN get_rec_from_id( p_x_item_group_id,p_association_type );
1503:
1504: FETCH get_rec_from_id INTO
1504: FETCH get_rec_from_id INTO
1505: l_item_group_id;
1506:
1507: IF get_rec_from_id%NOTFOUND THEN
1508: x_return_status := FND_API.G_RET_STS_ERROR;
1509: x_msg_data := 'AHL_RM_INVALID_ITEM_GRP';
1510: END IF;
1511:
1512: CLOSE get_rec_from_id;
1514:
1515: END IF;
1516:
1517: IF ( p_item_group_name IS NOT NULL AND
1518: p_item_group_name <> FND_API.G_MISS_CHAR ) THEN
1519:
1520: OPEN get_rec_from_value( p_item_group_name,p_association_type );
1521:
1522: LOOP
1532:
1533: END LOOP;
1534:
1535: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
1536: x_return_status := FND_API.G_RET_STS_ERROR;
1537: x_msg_data := 'AHL_RM_INVALID_ITEM_GRP';
1538: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1539: p_x_item_group_id := l_item_group_id;
1540: ELSE
1537: x_msg_data := 'AHL_RM_INVALID_ITEM_GRP';
1538: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1539: p_x_item_group_id := l_item_group_id;
1540: ELSE
1541: x_return_status := FND_API.G_RET_STS_ERROR;
1542: x_msg_data := 'AHL_RM_TOO_MANY_ITEM_GRPS';
1543: END IF;
1544:
1545: CLOSE get_rec_from_value;
1571: AND nvl(trunc(CD.EFFECTIVE_END_DATE),trunc(sysdate+1)) > trunc(sysdate)
1572: AND nvl(trunc(ICD.EFFECTIVE_END_DATE),trunc(sysdate+1)) > trunc(sysdate);
1573:
1574: BEGIN
1575: x_return_status := FND_API.G_RET_STS_SUCCESS;
1576:
1577: IF ( p_x_item_comp_detail_id IS NULL OR
1578: p_x_item_comp_detail_id = FND_API.G_MISS_NUM ) THEN
1579: x_return_status := FND_API.G_RET_STS_ERROR;
1574: BEGIN
1575: x_return_status := FND_API.G_RET_STS_SUCCESS;
1576:
1577: IF ( p_x_item_comp_detail_id IS NULL OR
1578: p_x_item_comp_detail_id = FND_API.G_MISS_NUM ) THEN
1579: x_return_status := FND_API.G_RET_STS_ERROR;
1580: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1581: RETURN;
1582: END IF;
1575: x_return_status := FND_API.G_RET_STS_SUCCESS;
1576:
1577: IF ( p_x_item_comp_detail_id IS NULL OR
1578: p_x_item_comp_detail_id = FND_API.G_MISS_NUM ) THEN
1579: x_return_status := FND_API.G_RET_STS_ERROR;
1580: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1581: RETURN;
1582: END IF;
1583:
1586: FETCH get_rec_from_id INTO
1587: l_item_comp_id;
1588:
1589: IF get_rec_from_id%NOTFOUND THEN
1590: x_return_status := FND_API.G_RET_STS_ERROR;
1591: x_msg_data := 'AHL_RM_INVALID_ITEM_COMP';
1592: ELSIF ( get_rec_from_id%ROWCOUNT = 1 ) THEN
1593: p_x_item_comp_detail_id := l_item_comp_id;
1594: ELSE
1591: x_msg_data := 'AHL_RM_INVALID_ITEM_COMP';
1592: ELSIF ( get_rec_from_id%ROWCOUNT = 1 ) THEN
1593: p_x_item_comp_detail_id := l_item_comp_id;
1594: ELSE
1595: x_return_status := FND_API.G_RET_STS_ERROR;
1596: x_msg_data := 'AHL_RM_TOO_MANY_ITEM_COMPS';
1597: END IF;
1598:
1599: CLOSE get_rec_from_id;
1658: and mcp.path_position_id = nvl(c_position_path_id,-1);*/
1659:
1660:
1661: BEGIN
1662: x_return_status := FND_API.G_RET_STS_SUCCESS;
1663:
1664: IF ( ( p_position_path IS NULL OR
1665: p_position_path = FND_API.G_MISS_CHAR ) AND
1666: ( p_x_position_path_id IS NULL OR
1661: BEGIN
1662: x_return_status := FND_API.G_RET_STS_SUCCESS;
1663:
1664: IF ( ( p_position_path IS NULL OR
1665: p_position_path = FND_API.G_MISS_CHAR ) AND
1666: ( p_x_position_path_id IS NULL OR
1667: p_x_position_path_id = FND_API.G_MISS_NUM ) ) THEN
1668: x_return_status := FND_API.G_RET_STS_ERROR;
1669: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1663:
1664: IF ( ( p_position_path IS NULL OR
1665: p_position_path = FND_API.G_MISS_CHAR ) AND
1666: ( p_x_position_path_id IS NULL OR
1667: p_x_position_path_id = FND_API.G_MISS_NUM ) ) THEN
1668: x_return_status := FND_API.G_RET_STS_ERROR;
1669: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1670: RETURN;
1671: END IF;
1664: IF ( ( p_position_path IS NULL OR
1665: p_position_path = FND_API.G_MISS_CHAR ) AND
1666: ( p_x_position_path_id IS NULL OR
1667: p_x_position_path_id = FND_API.G_MISS_NUM ) ) THEN
1668: x_return_status := FND_API.G_RET_STS_ERROR;
1669: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1670: RETURN;
1671: END IF;
1672:
1670: RETURN;
1671: END IF;
1672:
1673: IF ( ( p_position_path IS NULL OR
1674: p_position_path = FND_API.G_MISS_CHAR ) AND
1675: ( p_x_position_path_id IS NOT NULL AND
1676: p_x_position_path_id <> FND_API.G_MISS_NUM ) ) THEN
1677:
1678: OPEN get_rec_from_id( p_x_position_path_id );
1672:
1673: IF ( ( p_position_path IS NULL OR
1674: p_position_path = FND_API.G_MISS_CHAR ) AND
1675: ( p_x_position_path_id IS NOT NULL AND
1676: p_x_position_path_id <> FND_API.G_MISS_NUM ) ) THEN
1677:
1678: OPEN get_rec_from_id( p_x_position_path_id );
1679:
1680: FETCH get_rec_from_id INTO
1680: FETCH get_rec_from_id INTO
1681: l_position_path_id;
1682:
1683: IF get_rec_from_id%NOTFOUND THEN
1684: x_return_status := FND_API.G_RET_STS_ERROR;
1685: x_msg_data := 'AHL_RM_INVALID_POS_PATH';
1686: END IF;
1687:
1688: CLOSE get_rec_from_id;
1690:
1691: END IF;
1692: /*
1693: IF ( p_position_path IS NOT NULL AND
1694: p_position_path <> FND_API.G_MISS_CHAR ) THEN
1695:
1696: OPEN get_rec_from_value( p_position_path );
1697:
1698: LOOP
1708:
1709: END LOOP;
1710:
1711: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
1712: x_return_status := FND_API.G_RET_STS_ERROR;
1713: x_msg_data := 'AHL_RM_INVALID_POS_PATH';
1714: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1715: p_x_position_path_id := l_position_path_id;
1716: ELSE
1713: x_msg_data := 'AHL_RM_INVALID_POS_PATH';
1714: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1715: p_x_position_path_id := l_position_path_id;
1716: ELSE
1717: x_return_status := FND_API.G_RET_STS_ERROR;
1718: x_msg_data := 'AHL_RM_TOO_MANY_POS_PATHS';
1719: END IF;
1720:
1721: CLOSE get_rec_from_value;
1804: AND CONFIG_STATUS_CODE='COMPLETE'
1805: ;
1806: */
1807: BEGIN
1808: x_return_status := FND_API.G_RET_STS_SUCCESS;
1809:
1810: IF ( ( p_mc_name IS NULL OR
1811: p_mc_name = FND_API.G_MISS_CHAR ) AND
1812: ( p_x_mc_id IS NULL OR
1807: BEGIN
1808: x_return_status := FND_API.G_RET_STS_SUCCESS;
1809:
1810: IF ( ( p_mc_name IS NULL OR
1811: p_mc_name = FND_API.G_MISS_CHAR ) AND
1812: ( p_x_mc_id IS NULL OR
1813: p_x_mc_id = FND_API.G_MISS_NUM ) ) THEN
1814: x_return_status := FND_API.G_RET_STS_ERROR;
1815: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1809:
1810: IF ( ( p_mc_name IS NULL OR
1811: p_mc_name = FND_API.G_MISS_CHAR ) AND
1812: ( p_x_mc_id IS NULL OR
1813: p_x_mc_id = FND_API.G_MISS_NUM ) ) THEN
1814: x_return_status := FND_API.G_RET_STS_ERROR;
1815: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1816: RETURN;
1817: END IF;
1810: IF ( ( p_mc_name IS NULL OR
1811: p_mc_name = FND_API.G_MISS_CHAR ) AND
1812: ( p_x_mc_id IS NULL OR
1813: p_x_mc_id = FND_API.G_MISS_NUM ) ) THEN
1814: x_return_status := FND_API.G_RET_STS_ERROR;
1815: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1816: RETURN;
1817: END IF;
1818: /*
1816: RETURN;
1817: END IF;
1818: /*
1819: IF ( ( p_mc_name IS NULL OR
1820: p_mc_name = FND_API.G_MISS_CHAR ) AND
1821: ( p_x_mc_id IS NOT NULL AND
1822: p_x_mc_id <> FND_API.G_MISS_NUM ) ) THEN
1823:
1824: OPEN get_rec_from_id( p_x_mc_id );
1818: /*
1819: IF ( ( p_mc_name IS NULL OR
1820: p_mc_name = FND_API.G_MISS_CHAR ) AND
1821: ( p_x_mc_id IS NOT NULL AND
1822: p_x_mc_id <> FND_API.G_MISS_NUM ) ) THEN
1823:
1824: OPEN get_rec_from_id( p_x_mc_id );
1825:
1826: LOOP
1834: END IF;
1835: END LOOP;
1836:
1837: IF ( get_rec_from_id%ROWCOUNT = 0 ) THEN
1838: x_return_status := FND_API.G_RET_STS_ERROR;
1839: x_msg_data := 'AHL_RM_INVALID_MC';
1840: END IF;
1841:
1842: CLOSE get_rec_from_id;
1844:
1845: END IF;
1846: */
1847:
1848: IF ( (p_mc_name IS NOT NULL AND p_mc_name <> FND_API.G_MISS_CHAR)
1849: AND (p_mc_revision_number IS NOT NULL AND p_mc_revision_number <> FND_API.G_MISS_CHAR)
1850: )
1851: THEN
1852:
1845: END IF;
1846: */
1847:
1848: IF ( (p_mc_name IS NOT NULL AND p_mc_name <> FND_API.G_MISS_CHAR)
1849: AND (p_mc_revision_number IS NOT NULL AND p_mc_revision_number <> FND_API.G_MISS_CHAR)
1850: )
1851: THEN
1852:
1853: OPEN get_rec_from_value1( p_mc_name, p_mc_revision_number);
1865:
1866: END LOOP;
1867:
1868: IF ( get_rec_from_value1%ROWCOUNT = 0 ) THEN
1869: x_return_status := FND_API.G_RET_STS_ERROR;
1870: x_msg_data := 'AHL_RM_INVALID_MC';
1871: ELSE
1872: p_x_mc_id := l_mc_id ;
1873: p_x_mc_header_id := l_mc_header_id;
1874: /*
1875: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1876: p_x_mc_id := l_mc_id;
1877: ELSE
1878: x_return_status := FND_API.G_RET_STS_ERROR;
1879: x_msg_data := 'AHL_RM_TOO_MANY_MCS';
1880: */
1881: END IF;
1882:
1889: FETCH get_rec_status_id INTO
1890: l_mc_header_id;
1891:
1892: IF get_rec_status_id%NOTFOUND THEN
1893: x_return_status := FND_API.G_RET_STS_ERROR;
1894: x_msg_data := 'AHL_RM_INCOMPLETE_MC';
1895: END IF;
1896:
1897: CLOSE get_rec_status_id;
1900: END IF;
1901: */
1902:
1903: IF ( p_mc_name IS NOT NULL AND
1904: p_mc_name <> FND_API.G_MISS_CHAR ) THEN
1905:
1906: OPEN get_rec_from_value( p_mc_name );
1907:
1908: LOOP
1918:
1919: END LOOP;
1920:
1921: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
1922: x_return_status := FND_API.G_RET_STS_ERROR;
1923: x_msg_data := 'AHL_RM_INVALID_MC';
1924: ELSE
1925: p_x_mc_id := l_mc_id;
1926: /*
1926: /*
1927: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
1928: p_x_mc_id := l_mc_id;
1929: ELSE
1930: x_return_status := FND_API.G_RET_STS_ERROR;
1931: x_msg_data := 'AHL_RM_TOO_MANY_MCS';
1932: */
1933: END IF;
1934:
1964: FROM MTL_UNITS_OF_MEASURE_VL
1965: WHERE upper(uom_code) = upper(c_uom_code);
1966:
1967: BEGIN
1968: x_return_status := FND_API.G_RET_STS_SUCCESS;
1969:
1970: IF ( ( p_uom IS NULL OR
1971: p_uom = FND_API.G_MISS_CHAR ) AND
1972: ( p_x_uom_code IS NULL OR
1967: BEGIN
1968: x_return_status := FND_API.G_RET_STS_SUCCESS;
1969:
1970: IF ( ( p_uom IS NULL OR
1971: p_uom = FND_API.G_MISS_CHAR ) AND
1972: ( p_x_uom_code IS NULL OR
1973: p_x_uom_code = FND_API.G_MISS_CHAR ) ) THEN
1974: x_return_status := FND_API.G_RET_STS_ERROR;
1975: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1969:
1970: IF ( ( p_uom IS NULL OR
1971: p_uom = FND_API.G_MISS_CHAR ) AND
1972: ( p_x_uom_code IS NULL OR
1973: p_x_uom_code = FND_API.G_MISS_CHAR ) ) THEN
1974: x_return_status := FND_API.G_RET_STS_ERROR;
1975: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1976: RETURN;
1977: END IF;
1970: IF ( ( p_uom IS NULL OR
1971: p_uom = FND_API.G_MISS_CHAR ) AND
1972: ( p_x_uom_code IS NULL OR
1973: p_x_uom_code = FND_API.G_MISS_CHAR ) ) THEN
1974: x_return_status := FND_API.G_RET_STS_ERROR;
1975: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
1976: RETURN;
1977: END IF;
1978:
1976: RETURN;
1977: END IF;
1978:
1979: IF ( ( p_uom IS NULL OR
1980: p_uom = FND_API.G_MISS_CHAR ) AND
1981: ( p_x_uom_code IS NOT NULL AND
1982: p_x_uom_code <> FND_API.G_MISS_CHAR ) ) THEN
1983:
1984: OPEN get_rec_from_id( p_x_uom_code );
1978:
1979: IF ( ( p_uom IS NULL OR
1980: p_uom = FND_API.G_MISS_CHAR ) AND
1981: ( p_x_uom_code IS NOT NULL AND
1982: p_x_uom_code <> FND_API.G_MISS_CHAR ) ) THEN
1983:
1984: OPEN get_rec_from_id( p_x_uom_code );
1985:
1986: FETCH get_rec_from_id INTO
1986: FETCH get_rec_from_id INTO
1987: l_uom_code;
1988:
1989: IF get_rec_from_id%NOTFOUND THEN
1990: x_return_status := FND_API.G_RET_STS_ERROR;
1991: x_msg_data := 'AHL_RM_INVALID_UOM';
1992: END IF;
1993:
1994: CLOSE get_rec_from_id;
1996:
1997: END IF;
1998:
1999: IF ( p_uom IS NOT NULL AND
2000: p_uom <> FND_API.G_MISS_CHAR ) THEN
2001:
2002: OPEN get_rec_from_value( p_uom );
2003:
2004: LOOP
2014:
2015: END LOOP;
2016:
2017: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
2018: x_return_status := FND_API.G_RET_STS_ERROR;
2019: x_msg_data := 'AHL_RM_INVALID_UOM';
2020: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2021: p_x_uom_code := l_uom_code;
2022: ELSE
2019: x_msg_data := 'AHL_RM_INVALID_UOM';
2020: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2021: p_x_uom_code := l_uom_code;
2022: ELSE
2023: x_return_status := FND_API.G_RET_STS_ERROR;
2024: x_msg_data := 'AHL_RM_TOO_MANY_UOMS';
2025: END IF;
2026:
2027: CLOSE get_rec_from_value;
2064: AND UOM.inventory_item_id = ASSOC.inventory_item_id
2065: AND UOM.inventory_org_id = ASSOC.inventory_org_id
2066: AND ASSOC.item_group_id = c_item_group_id;
2067: BEGIN
2068: x_return_status := FND_API.G_RET_STS_SUCCESS;
2069:
2070: IF ( p_uom_code IS NULL OR
2071: p_uom_code = FND_API.G_MISS_CHAR ) THEN
2072: x_return_status := FND_API.G_RET_STS_ERROR;
2067: BEGIN
2068: x_return_status := FND_API.G_RET_STS_SUCCESS;
2069:
2070: IF ( p_uom_code IS NULL OR
2071: p_uom_code = FND_API.G_MISS_CHAR ) THEN
2072: x_return_status := FND_API.G_RET_STS_ERROR;
2073: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2074: RETURN;
2075: END IF;
2068: x_return_status := FND_API.G_RET_STS_SUCCESS;
2069:
2070: IF ( p_uom_code IS NULL OR
2071: p_uom_code = FND_API.G_MISS_CHAR ) THEN
2072: x_return_status := FND_API.G_RET_STS_ERROR;
2073: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2074: RETURN;
2075: END IF;
2076:
2074: RETURN;
2075: END IF;
2076:
2077: IF ( ( p_inventory_item_id IS NULL OR
2078: p_inventory_item_id = FND_API.G_MISS_NUM ) AND
2079: ( p_inventory_org_id IS NULL OR
2080: p_inventory_org_id = FND_API.G_MISS_NUM ) AND
2081: ( p_item_group_id IS NULL OR
2082: p_item_group_id = FND_API.G_MISS_NUM ) ) THEN
2076:
2077: IF ( ( p_inventory_item_id IS NULL OR
2078: p_inventory_item_id = FND_API.G_MISS_NUM ) AND
2079: ( p_inventory_org_id IS NULL OR
2080: p_inventory_org_id = FND_API.G_MISS_NUM ) AND
2081: ( p_item_group_id IS NULL OR
2082: p_item_group_id = FND_API.G_MISS_NUM ) ) THEN
2083: x_return_status := FND_API.G_RET_STS_ERROR;
2084: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2078: p_inventory_item_id = FND_API.G_MISS_NUM ) AND
2079: ( p_inventory_org_id IS NULL OR
2080: p_inventory_org_id = FND_API.G_MISS_NUM ) AND
2081: ( p_item_group_id IS NULL OR
2082: p_item_group_id = FND_API.G_MISS_NUM ) ) THEN
2083: x_return_status := FND_API.G_RET_STS_ERROR;
2084: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2085: RETURN;
2086: END IF;
2079: ( p_inventory_org_id IS NULL OR
2080: p_inventory_org_id = FND_API.G_MISS_NUM ) AND
2081: ( p_item_group_id IS NULL OR
2082: p_item_group_id = FND_API.G_MISS_NUM ) ) THEN
2083: x_return_status := FND_API.G_RET_STS_ERROR;
2084: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2085: RETURN;
2086: END IF;
2087:
2085: RETURN;
2086: END IF;
2087:
2088: IF ( p_item_group_id IS NOT NULL AND
2089: p_item_group_id <> FND_API.G_MISS_NUM ) THEN
2090:
2091: OPEN get_uom_for_item_group( p_uom_code , p_item_group_id );
2092:
2093: FETCH get_uom_for_item_group INTO
2093: FETCH get_uom_for_item_group INTO
2094: l_dummy;
2095:
2096: IF get_uom_for_item_group%NOTFOUND THEN
2097: x_return_status := FND_API.G_RET_STS_ERROR;
2098: x_msg_data := 'AHL_RM_INVALID_UOM_ITEM_GRP';
2099: END IF;
2100:
2101: CLOSE get_uom_for_item_group;
2103:
2104: END IF;
2105:
2106: IF ( p_inventory_item_id IS NOT NULL AND
2107: p_inventory_item_id <> FND_API.G_MISS_NUM AND
2108: p_inventory_org_id IS NOT NULL AND
2109: p_inventory_org_id <> FND_API.G_MISS_NUM ) THEN
2110:
2111: OPEN get_uom_for_item( p_uom_code, p_inventory_item_id, p_inventory_org_id );
2105:
2106: IF ( p_inventory_item_id IS NOT NULL AND
2107: p_inventory_item_id <> FND_API.G_MISS_NUM AND
2108: p_inventory_org_id IS NOT NULL AND
2109: p_inventory_org_id <> FND_API.G_MISS_NUM ) THEN
2110:
2111: OPEN get_uom_for_item( p_uom_code, p_inventory_item_id, p_inventory_org_id );
2112:
2113: FETCH get_uom_for_item INTO
2113: FETCH get_uom_for_item INTO
2114: l_dummy;
2115:
2116: IF get_uom_for_item%NOTFOUND THEN
2117: x_return_status := FND_API.G_RET_STS_ERROR;
2118: x_msg_data := 'AHL_RM_INVALID_UOM_ITEM';
2119: END IF;
2120:
2121: CLOSE get_uom_for_item;
2146:
2147: l_dummy VARCHAR2(1);
2148:
2149: BEGIN
2150: x_return_status := FND_API.G_RET_STS_SUCCESS;
2151:
2152: IF ( p_product_type_code IS NULL OR
2153: p_product_type_code = FND_API.G_MISS_CHAR OR
2154: p_zone_code IS NULL OR
2149: BEGIN
2150: x_return_status := FND_API.G_RET_STS_SUCCESS;
2151:
2152: IF ( p_product_type_code IS NULL OR
2153: p_product_type_code = FND_API.G_MISS_CHAR OR
2154: p_zone_code IS NULL OR
2155: p_zone_code = FND_API.G_MISS_CHAR ) THEN
2156: x_return_status := FND_API.G_RET_STS_ERROR;
2157: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2151:
2152: IF ( p_product_type_code IS NULL OR
2153: p_product_type_code = FND_API.G_MISS_CHAR OR
2154: p_zone_code IS NULL OR
2155: p_zone_code = FND_API.G_MISS_CHAR ) THEN
2156: x_return_status := FND_API.G_RET_STS_ERROR;
2157: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2158: RETURN;
2159: END IF;
2152: IF ( p_product_type_code IS NULL OR
2153: p_product_type_code = FND_API.G_MISS_CHAR OR
2154: p_zone_code IS NULL OR
2155: p_zone_code = FND_API.G_MISS_CHAR ) THEN
2156: x_return_status := FND_API.G_RET_STS_ERROR;
2157: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2158: RETURN;
2159: END IF;
2160:
2163: FETCH check_pt_zone INTO
2164: l_dummy;
2165:
2166: IF check_pt_zone%NOTFOUND THEN
2167: x_return_status := FND_API.G_RET_STS_ERROR;
2168: x_msg_data := 'AHL_RM_INVALID_PT_ZONE';
2169: END IF;
2170:
2171: CLOSE check_pt_zone;
2194:
2195: l_dummy VARCHAR2(1);
2196:
2197: BEGIN
2198: x_return_status := FND_API.G_RET_STS_SUCCESS;
2199:
2200: IF ( p_product_type_code IS NULL OR
2201: p_product_type_code = FND_API.G_MISS_CHAR OR
2202: p_zone_code IS NULL OR
2197: BEGIN
2198: x_return_status := FND_API.G_RET_STS_SUCCESS;
2199:
2200: IF ( p_product_type_code IS NULL OR
2201: p_product_type_code = FND_API.G_MISS_CHAR OR
2202: p_zone_code IS NULL OR
2203: p_zone_code = FND_API.G_MISS_CHAR OR
2204: p_sub_zone_code IS NULL OR
2205: p_sub_zone_code = FND_API.G_MISS_CHAR ) THEN
2199:
2200: IF ( p_product_type_code IS NULL OR
2201: p_product_type_code = FND_API.G_MISS_CHAR OR
2202: p_zone_code IS NULL OR
2203: p_zone_code = FND_API.G_MISS_CHAR OR
2204: p_sub_zone_code IS NULL OR
2205: p_sub_zone_code = FND_API.G_MISS_CHAR ) THEN
2206: x_return_status := FND_API.G_RET_STS_ERROR;
2207: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2201: p_product_type_code = FND_API.G_MISS_CHAR OR
2202: p_zone_code IS NULL OR
2203: p_zone_code = FND_API.G_MISS_CHAR OR
2204: p_sub_zone_code IS NULL OR
2205: p_sub_zone_code = FND_API.G_MISS_CHAR ) THEN
2206: x_return_status := FND_API.G_RET_STS_ERROR;
2207: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2208: RETURN;
2209: END IF;
2202: p_zone_code IS NULL OR
2203: p_zone_code = FND_API.G_MISS_CHAR OR
2204: p_sub_zone_code IS NULL OR
2205: p_sub_zone_code = FND_API.G_MISS_CHAR ) THEN
2206: x_return_status := FND_API.G_RET_STS_ERROR;
2207: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2208: RETURN;
2209: END IF;
2210:
2213: FETCH check_pt_zone_subzone INTO
2214: l_dummy;
2215:
2216: IF check_pt_zone_subzone%NOTFOUND THEN
2217: x_return_status := FND_API.G_RET_STS_ERROR;
2218: x_msg_data := 'AHL_RM_INVALID_PT_ZONE_SUBZONE';
2219: END IF;
2220:
2221: CLOSE check_pt_zone_subzone;
2283: AND SYSDATE BETWEEN NVL( start_date_active, SYSDATE ) AND
2284: NVL( end_date_active, SYSDATE );
2285:
2286: BEGIN
2287: x_return_status := FND_API.G_RET_STS_SUCCESS;
2288:
2289: IF ( p_lookup_type IS NULL OR
2290: p_lookup_type = FND_API.G_MISS_CHAR ) THEN
2291: x_return_status := FND_API.G_RET_STS_ERROR;
2286: BEGIN
2287: x_return_status := FND_API.G_RET_STS_SUCCESS;
2288:
2289: IF ( p_lookup_type IS NULL OR
2290: p_lookup_type = FND_API.G_MISS_CHAR ) THEN
2291: x_return_status := FND_API.G_RET_STS_ERROR;
2292: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2293: RETURN;
2294: END IF;
2287: x_return_status := FND_API.G_RET_STS_SUCCESS;
2288:
2289: IF ( p_lookup_type IS NULL OR
2290: p_lookup_type = FND_API.G_MISS_CHAR ) THEN
2291: x_return_status := FND_API.G_RET_STS_ERROR;
2292: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2293: RETURN;
2294: END IF;
2295:
2293: RETURN;
2294: END IF;
2295:
2296: IF ( ( p_lookup_meaning IS NULL OR
2297: p_lookup_meaning = FND_API.G_MISS_CHAR ) AND
2298: ( p_x_lookup_code IS NULL OR
2299: p_x_lookup_code = FND_API.G_MISS_NUM ) ) THEN
2300: x_return_status := FND_API.G_RET_STS_ERROR;
2301: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2295:
2296: IF ( ( p_lookup_meaning IS NULL OR
2297: p_lookup_meaning = FND_API.G_MISS_CHAR ) AND
2298: ( p_x_lookup_code IS NULL OR
2299: p_x_lookup_code = FND_API.G_MISS_NUM ) ) THEN
2300: x_return_status := FND_API.G_RET_STS_ERROR;
2301: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2302: RETURN;
2303: END IF;
2296: IF ( ( p_lookup_meaning IS NULL OR
2297: p_lookup_meaning = FND_API.G_MISS_CHAR ) AND
2298: ( p_x_lookup_code IS NULL OR
2299: p_x_lookup_code = FND_API.G_MISS_NUM ) ) THEN
2300: x_return_status := FND_API.G_RET_STS_ERROR;
2301: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2302: RETURN;
2303: END IF;
2304:
2302: RETURN;
2303: END IF;
2304:
2305: IF ( ( p_lookup_meaning IS NULL OR
2306: p_lookup_meaning = FND_API.G_MISS_CHAR ) AND
2307: ( p_x_lookup_code IS NOT NULL AND
2308: p_x_lookup_code <> FND_API.G_MISS_NUM ) ) THEN
2309:
2310: IF ( p_lookup_type = 'CST_BASIS' OR p_lookup_type = 'BOM_RESOURCE_SCHEDULE_TYPE' OR p_lookup_type = 'SYS_YES_NO')
2304:
2305: IF ( ( p_lookup_meaning IS NULL OR
2306: p_lookup_meaning = FND_API.G_MISS_CHAR ) AND
2307: ( p_x_lookup_code IS NOT NULL AND
2308: p_x_lookup_code <> FND_API.G_MISS_NUM ) ) THEN
2309:
2310: IF ( p_lookup_type = 'CST_BASIS' OR p_lookup_type = 'BOM_RESOURCE_SCHEDULE_TYPE' OR p_lookup_type = 'SYS_YES_NO')
2311: THEN
2312: OPEN get_rec_from_id_sp( p_lookup_type, p_x_lookup_code , 1 , 2 );
2324: FETCH get_rec_from_id_sp INTO
2325: l_lookup_code;
2326:
2327: IF get_rec_from_id_sp%NOTFOUND THEN
2328: x_return_status := FND_API.G_RET_STS_ERROR;
2329: x_msg_data := 'AHL_COM_INVALID_MFG_LOOKUP';
2330: END IF;
2331:
2332: CLOSE get_rec_from_id_sp;
2334: FETCH get_rec_from_id INTO
2335: l_lookup_code;
2336:
2337: IF get_rec_from_id%NOTFOUND THEN
2338: x_return_status := FND_API.G_RET_STS_ERROR;
2339: x_msg_data := 'AHL_COM_INVALID_MFG_LOOKUP';
2340: END IF;
2341:
2342: CLOSE get_rec_from_id;
2346:
2347: END IF;
2348:
2349: IF ( p_lookup_meaning IS NOT NULL AND
2350: p_lookup_meaning <> FND_API.G_MISS_CHAR ) THEN
2351:
2352: IF ( p_lookup_type = 'CST_BASIS' OR p_lookup_type = 'BOM_RESOURCE_SCHEDULE_TYPE' OR p_lookup_type = 'SYS_YES_NO')
2353: THEN
2354: OPEN get_rec_from_value_sp( p_lookup_type, p_lookup_meaning , 1 , 2 );
2377:
2378: END LOOP;
2379:
2380: IF ( get_rec_from_value_sp%ROWCOUNT = 0 ) THEN
2381: x_return_status := FND_API.G_RET_STS_ERROR;
2382: x_msg_data := 'AHL_COM_INVALID_MFG_LOOKUP';
2383: ELSIF ( get_rec_from_value_sp%ROWCOUNT = 1 ) THEN
2384: p_x_lookup_code := l_lookup_code;
2385: ELSE
2382: x_msg_data := 'AHL_COM_INVALID_MFG_LOOKUP';
2383: ELSIF ( get_rec_from_value_sp%ROWCOUNT = 1 ) THEN
2384: p_x_lookup_code := l_lookup_code;
2385: ELSE
2386: x_return_status := FND_API.G_RET_STS_ERROR;
2387: x_msg_data := 'AHL_COM_TOO_MANY_MFG_LOOKUPS';
2388: END IF;
2389:
2390: CLOSE get_rec_from_value_sp;
2403:
2404: END LOOP;
2405:
2406: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
2407: x_return_status := FND_API.G_RET_STS_ERROR;
2408: x_msg_data := 'AHL_COM_INVALID_MFG_LOOKUP';
2409: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2410: p_x_lookup_code := l_lookup_code;
2411: ELSE
2408: x_msg_data := 'AHL_COM_INVALID_MFG_LOOKUP';
2409: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2410: p_x_lookup_code := l_lookup_code;
2411: ELSE
2412: x_return_status := FND_API.G_RET_STS_ERROR;
2413: x_msg_data := 'AHL_COM_TOO_MANY_MFG_LOOKUPS';
2414: END IF;
2415:
2416: CLOSE get_rec_from_value;
2445: FROM AHL_RESOURCES
2446: WHERE resource_id = c_aso_resource_id;
2447:
2448: BEGIN
2449: x_return_status := FND_API.G_RET_STS_SUCCESS;
2450:
2451: IF ( ( p_aso_resource_name IS NULL OR
2452: p_aso_resource_name = FND_API.G_MISS_CHAR ) AND
2453: ( p_x_aso_resource_id IS NULL OR
2448: BEGIN
2449: x_return_status := FND_API.G_RET_STS_SUCCESS;
2450:
2451: IF ( ( p_aso_resource_name IS NULL OR
2452: p_aso_resource_name = FND_API.G_MISS_CHAR ) AND
2453: ( p_x_aso_resource_id IS NULL OR
2454: p_x_aso_resource_id = FND_API.G_MISS_NUM ) ) THEN
2455: x_return_status := FND_API.G_RET_STS_ERROR;
2456: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2450:
2451: IF ( ( p_aso_resource_name IS NULL OR
2452: p_aso_resource_name = FND_API.G_MISS_CHAR ) AND
2453: ( p_x_aso_resource_id IS NULL OR
2454: p_x_aso_resource_id = FND_API.G_MISS_NUM ) ) THEN
2455: x_return_status := FND_API.G_RET_STS_ERROR;
2456: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2457: RETURN;
2458: END IF;
2451: IF ( ( p_aso_resource_name IS NULL OR
2452: p_aso_resource_name = FND_API.G_MISS_CHAR ) AND
2453: ( p_x_aso_resource_id IS NULL OR
2454: p_x_aso_resource_id = FND_API.G_MISS_NUM ) ) THEN
2455: x_return_status := FND_API.G_RET_STS_ERROR;
2456: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2457: RETURN;
2458: END IF;
2459:
2457: RETURN;
2458: END IF;
2459:
2460: IF ( ( p_aso_resource_name IS NULL OR
2461: p_aso_resource_name = FND_API.G_MISS_CHAR ) AND
2462: ( p_x_aso_resource_id IS NOT NULL AND
2463: p_x_aso_resource_id <> FND_API.G_MISS_NUM ) ) THEN
2464:
2465: OPEN get_rec_from_id( p_x_aso_resource_id );
2459:
2460: IF ( ( p_aso_resource_name IS NULL OR
2461: p_aso_resource_name = FND_API.G_MISS_CHAR ) AND
2462: ( p_x_aso_resource_id IS NOT NULL AND
2463: p_x_aso_resource_id <> FND_API.G_MISS_NUM ) ) THEN
2464:
2465: OPEN get_rec_from_id( p_x_aso_resource_id );
2466:
2467: FETCH get_rec_from_id INTO
2467: FETCH get_rec_from_id INTO
2468: l_aso_resource_id;
2469:
2470: IF get_rec_from_id%NOTFOUND THEN
2471: x_return_status := FND_API.G_RET_STS_ERROR;
2472: x_msg_data := 'AHL_RM_INVALID_ASO_RESOURCE';
2473: END IF;
2474:
2475: CLOSE get_rec_from_id;
2477:
2478: END IF;
2479:
2480: IF ( p_aso_resource_name IS NOT NULL AND
2481: p_aso_resource_name <> FND_API.G_MISS_CHAR ) THEN
2482:
2483: OPEN get_rec_from_value( p_aso_resource_name );
2484:
2485: LOOP
2495:
2496: END LOOP;
2497:
2498: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
2499: x_return_status := FND_API.G_RET_STS_ERROR;
2500: x_msg_data := 'AHL_RM_INVALID_ASO_RESOURCE';
2501: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2502: p_x_aso_resource_id := l_aso_resource_id;
2503: ELSE
2500: x_msg_data := 'AHL_RM_INVALID_ASO_RESOURCE';
2501: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2502: p_x_aso_resource_id := l_aso_resource_id;
2503: ELSE
2504: x_return_status := FND_API.G_RET_STS_ERROR;
2505: x_msg_data := 'AHL_RM_TOO_MANY_ASO_RESOURCES';
2506: END IF;
2507:
2508: CLOSE get_rec_from_value;
2542: WHERE resource_id = c_bom_resource_id
2543: AND organization_id = c_bom_org_id;
2544:
2545: BEGIN
2546: x_return_status := FND_API.G_RET_STS_SUCCESS;
2547:
2548: IF ( ( p_bom_resource_code IS NULL OR
2549: p_bom_resource_code = FND_API.G_MISS_CHAR ) AND
2550: ( p_x_bom_resource_id IS NULL OR
2545: BEGIN
2546: x_return_status := FND_API.G_RET_STS_SUCCESS;
2547:
2548: IF ( ( p_bom_resource_code IS NULL OR
2549: p_bom_resource_code = FND_API.G_MISS_CHAR ) AND
2550: ( p_x_bom_resource_id IS NULL OR
2551: p_x_bom_resource_id = FND_API.G_MISS_NUM ) AND
2552: ( p_x_bom_org_id IS NULL OR
2553: p_x_bom_org_id = FND_API.G_MISS_NUM ) ) THEN
2547:
2548: IF ( ( p_bom_resource_code IS NULL OR
2549: p_bom_resource_code = FND_API.G_MISS_CHAR ) AND
2550: ( p_x_bom_resource_id IS NULL OR
2551: p_x_bom_resource_id = FND_API.G_MISS_NUM ) AND
2552: ( p_x_bom_org_id IS NULL OR
2553: p_x_bom_org_id = FND_API.G_MISS_NUM ) ) THEN
2554: x_return_status := FND_API.G_RET_STS_ERROR;
2555: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2549: p_bom_resource_code = FND_API.G_MISS_CHAR ) AND
2550: ( p_x_bom_resource_id IS NULL OR
2551: p_x_bom_resource_id = FND_API.G_MISS_NUM ) AND
2552: ( p_x_bom_org_id IS NULL OR
2553: p_x_bom_org_id = FND_API.G_MISS_NUM ) ) THEN
2554: x_return_status := FND_API.G_RET_STS_ERROR;
2555: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2556: RETURN;
2557: END IF;
2550: ( p_x_bom_resource_id IS NULL OR
2551: p_x_bom_resource_id = FND_API.G_MISS_NUM ) AND
2552: ( p_x_bom_org_id IS NULL OR
2553: p_x_bom_org_id = FND_API.G_MISS_NUM ) ) THEN
2554: x_return_status := FND_API.G_RET_STS_ERROR;
2555: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2556: RETURN;
2557: END IF;
2558:
2556: RETURN;
2557: END IF;
2558:
2559: IF ( ( p_bom_resource_code IS NULL OR
2560: p_bom_resource_code = FND_API.G_MISS_CHAR ) AND
2561: ( p_x_bom_resource_id IS NOT NULL AND
2562: p_x_bom_resource_id <> FND_API.G_MISS_NUM AND
2563: p_x_bom_org_id IS NOT NULL AND
2564: p_x_bom_org_id <> FND_API.G_MISS_NUM ) ) THEN
2558:
2559: IF ( ( p_bom_resource_code IS NULL OR
2560: p_bom_resource_code = FND_API.G_MISS_CHAR ) AND
2561: ( p_x_bom_resource_id IS NOT NULL AND
2562: p_x_bom_resource_id <> FND_API.G_MISS_NUM AND
2563: p_x_bom_org_id IS NOT NULL AND
2564: p_x_bom_org_id <> FND_API.G_MISS_NUM ) ) THEN
2565:
2566: OPEN get_rec_from_id( p_x_bom_resource_id , p_x_bom_org_id );
2560: p_bom_resource_code = FND_API.G_MISS_CHAR ) AND
2561: ( p_x_bom_resource_id IS NOT NULL AND
2562: p_x_bom_resource_id <> FND_API.G_MISS_NUM AND
2563: p_x_bom_org_id IS NOT NULL AND
2564: p_x_bom_org_id <> FND_API.G_MISS_NUM ) ) THEN
2565:
2566: OPEN get_rec_from_id( p_x_bom_resource_id , p_x_bom_org_id );
2567:
2568: FETCH get_rec_from_id INTO
2569: l_bom_resource_id,
2570: l_bom_org_id;
2571:
2572: IF ( get_rec_from_id%NOTFOUND ) THEN
2573: x_return_status := FND_API.G_RET_STS_ERROR;
2574: x_msg_data := 'AHL_RM_INVALID_BOM_RESOURCE';
2575: END IF;
2576:
2577: CLOSE get_rec_from_id;
2579:
2580: END IF;
2581:
2582: IF ( p_bom_resource_code IS NOT NULL AND
2583: p_bom_resource_code <> FND_API.G_MISS_CHAR ) THEN
2584:
2585: OPEN get_rec_from_value( p_bom_resource_code );
2586:
2587: LOOP
2599:
2600: END LOOP;
2601:
2602: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
2603: x_return_status := FND_API.G_RET_STS_ERROR;
2604: x_msg_data := 'AHL_RM_INVALID_BOM_RESOURCE';
2605: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2606: p_x_bom_resource_id := l_bom_resource_id;
2607: p_x_bom_org_id := l_bom_org_id;
2605: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2606: p_x_bom_resource_id := l_bom_resource_id;
2607: p_x_bom_org_id := l_bom_org_id;
2608: ELSE
2609: x_return_status := FND_API.G_RET_STS_ERROR;
2610: x_msg_data := 'AHL_RM_TOO_MANY_BOM_RESOURCES';
2611: END IF;
2612:
2613: CLOSE get_rec_from_value;
2641: and DEPT_RES.resource_id = c_bom_resource_id
2642: and DEPT.organization_id = c_bom_org_id;
2643:
2644: BEGIN
2645: x_return_status := FND_API.G_RET_STS_SUCCESS;
2646:
2647: IF ( p_bom_department_name IS NULL OR
2648: p_bom_department_name = FND_API.G_MISS_CHAR ) THEN
2649: x_return_status := FND_API.G_RET_STS_ERROR;
2644: BEGIN
2645: x_return_status := FND_API.G_RET_STS_SUCCESS;
2646:
2647: IF ( p_bom_department_name IS NULL OR
2648: p_bom_department_name = FND_API.G_MISS_CHAR ) THEN
2649: x_return_status := FND_API.G_RET_STS_ERROR;
2650: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2651: RETURN;
2652: END IF;
2645: x_return_status := FND_API.G_RET_STS_SUCCESS;
2646:
2647: IF ( p_bom_department_name IS NULL OR
2648: p_bom_department_name = FND_API.G_MISS_CHAR ) THEN
2649: x_return_status := FND_API.G_RET_STS_ERROR;
2650: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2651: RETURN;
2652: END IF;
2653:
2651: RETURN;
2652: END IF;
2653:
2654: IF ( p_bom_department_name IS NOT NULL AND
2655: p_bom_department_name <> FND_API.G_MISS_CHAR ) THEN
2656:
2657: OPEN get_rec_from_value( p_bom_department_name, p_bom_resource_id, p_bom_org_id );
2658:
2659: LOOP
2669:
2670: END LOOP;
2671:
2672: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
2673: x_return_status := FND_API.G_RET_STS_ERROR;
2674: x_msg_data := 'AHL_RM_INVALID_BOM_RES_DEPT';
2675: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2676: p_x_bom_department_id := l_bom_department_id;
2677: ELSE
2674: x_msg_data := 'AHL_RM_INVALID_BOM_RES_DEPT';
2675: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2676: p_x_bom_department_id := l_bom_department_id;
2677: ELSE
2678: x_return_status := FND_API.G_RET_STS_ERROR;
2679: x_msg_data := 'AHL_RM_TOO_MANY_BOM_RES_DEPTS';
2680: END IF;
2681:
2682: CLOSE get_rec_from_value;
2711: FROM CST_ACTIVITIES
2712: WHERE activity_id = c_activity_id;
2713:
2714: BEGIN
2715: x_return_status := FND_API.G_RET_STS_SUCCESS;
2716:
2717: IF ( ( p_activity IS NULL OR
2718: p_activity = FND_API.G_MISS_CHAR ) AND
2719: ( p_x_activity_id IS NULL OR
2714: BEGIN
2715: x_return_status := FND_API.G_RET_STS_SUCCESS;
2716:
2717: IF ( ( p_activity IS NULL OR
2718: p_activity = FND_API.G_MISS_CHAR ) AND
2719: ( p_x_activity_id IS NULL OR
2720: p_x_activity_id = FND_API.G_MISS_NUM ) ) THEN
2721: x_return_status := FND_API.G_RET_STS_ERROR;
2722: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2716:
2717: IF ( ( p_activity IS NULL OR
2718: p_activity = FND_API.G_MISS_CHAR ) AND
2719: ( p_x_activity_id IS NULL OR
2720: p_x_activity_id = FND_API.G_MISS_NUM ) ) THEN
2721: x_return_status := FND_API.G_RET_STS_ERROR;
2722: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2723: RETURN;
2724: END IF;
2717: IF ( ( p_activity IS NULL OR
2718: p_activity = FND_API.G_MISS_CHAR ) AND
2719: ( p_x_activity_id IS NULL OR
2720: p_x_activity_id = FND_API.G_MISS_NUM ) ) THEN
2721: x_return_status := FND_API.G_RET_STS_ERROR;
2722: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2723: RETURN;
2724: END IF;
2725:
2723: RETURN;
2724: END IF;
2725:
2726: IF ( ( p_activity IS NULL OR
2727: p_activity = FND_API.G_MISS_CHAR ) AND
2728: ( p_x_activity_id IS NOT NULL AND
2729: p_x_activity_id <> FND_API.G_MISS_NUM ) ) THEN
2730:
2731: OPEN get_rec_from_id( p_x_activity_id );
2725:
2726: IF ( ( p_activity IS NULL OR
2727: p_activity = FND_API.G_MISS_CHAR ) AND
2728: ( p_x_activity_id IS NOT NULL AND
2729: p_x_activity_id <> FND_API.G_MISS_NUM ) ) THEN
2730:
2731: OPEN get_rec_from_id( p_x_activity_id );
2732:
2733: FETCH get_rec_from_id INTO
2733: FETCH get_rec_from_id INTO
2734: l_activity_id;
2735:
2736: IF get_rec_from_id%NOTFOUND THEN
2737: x_return_status := FND_API.G_RET_STS_ERROR;
2738: x_msg_data := 'AHL_RM_INVALID_ACTIVITY';
2739: END IF;
2740:
2741: CLOSE get_rec_from_id;
2743:
2744: END IF;
2745:
2746: IF ( p_activity IS NOT NULL AND
2747: p_activity <> FND_API.G_MISS_CHAR ) THEN
2748:
2749: OPEN get_rec_from_value( p_activity );
2750:
2751: LOOP
2761:
2762: END LOOP;
2763:
2764: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
2765: x_return_status := FND_API.G_RET_STS_ERROR;
2766: x_msg_data := 'AHL_RM_INVALID_ACTIVITY';
2767: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2768: p_x_activity_id := l_activity_id;
2769: ELSE
2766: x_msg_data := 'AHL_RM_INVALID_ACTIVITY';
2767: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2768: p_x_activity_id := l_activity_id;
2769: ELSE
2770: x_return_status := FND_API.G_RET_STS_ERROR;
2771: x_msg_data := 'AHL_RM_TOO_MANY_ACTIVITIES';
2772: END IF;
2773:
2774: CLOSE get_rec_from_value;
2807: WHERE competence_id = c_skill_competence_id
2808: AND business_group_id = c_business_group_id;
2809:
2810: BEGIN
2811: x_return_status := FND_API.G_RET_STS_SUCCESS;
2812:
2813: IF ( p_business_group_id IS NULL OR
2814: p_business_group_id = FND_API.G_MISS_NUM ) THEN
2815: x_return_status := FND_API.G_RET_STS_ERROR;
2810: BEGIN
2811: x_return_status := FND_API.G_RET_STS_SUCCESS;
2812:
2813: IF ( p_business_group_id IS NULL OR
2814: p_business_group_id = FND_API.G_MISS_NUM ) THEN
2815: x_return_status := FND_API.G_RET_STS_ERROR;
2816: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2817: RETURN;
2818: END IF;
2811: x_return_status := FND_API.G_RET_STS_SUCCESS;
2812:
2813: IF ( p_business_group_id IS NULL OR
2814: p_business_group_id = FND_API.G_MISS_NUM ) THEN
2815: x_return_status := FND_API.G_RET_STS_ERROR;
2816: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2817: RETURN;
2818: END IF;
2819:
2817: RETURN;
2818: END IF;
2819:
2820: IF ( ( p_skill_name IS NULL OR
2821: p_skill_name = FND_API.G_MISS_CHAR ) AND
2822: ( p_x_skill_competence_id IS NULL OR
2823: p_x_skill_competence_id = FND_API.G_MISS_NUM ) ) THEN
2824: x_return_status := FND_API.G_RET_STS_ERROR;
2825: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2819:
2820: IF ( ( p_skill_name IS NULL OR
2821: p_skill_name = FND_API.G_MISS_CHAR ) AND
2822: ( p_x_skill_competence_id IS NULL OR
2823: p_x_skill_competence_id = FND_API.G_MISS_NUM ) ) THEN
2824: x_return_status := FND_API.G_RET_STS_ERROR;
2825: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2826: RETURN;
2827: END IF;
2820: IF ( ( p_skill_name IS NULL OR
2821: p_skill_name = FND_API.G_MISS_CHAR ) AND
2822: ( p_x_skill_competence_id IS NULL OR
2823: p_x_skill_competence_id = FND_API.G_MISS_NUM ) ) THEN
2824: x_return_status := FND_API.G_RET_STS_ERROR;
2825: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2826: RETURN;
2827: END IF;
2828:
2826: RETURN;
2827: END IF;
2828:
2829: IF ( ( p_skill_name IS NULL OR
2830: p_skill_name = FND_API.G_MISS_CHAR ) AND
2831: ( p_x_skill_competence_id IS NOT NULL AND
2832: p_x_skill_competence_id <> FND_API.G_MISS_NUM ) ) THEN
2833:
2834: OPEN get_rec_from_id( p_x_skill_competence_id, p_business_group_id );
2828:
2829: IF ( ( p_skill_name IS NULL OR
2830: p_skill_name = FND_API.G_MISS_CHAR ) AND
2831: ( p_x_skill_competence_id IS NOT NULL AND
2832: p_x_skill_competence_id <> FND_API.G_MISS_NUM ) ) THEN
2833:
2834: OPEN get_rec_from_id( p_x_skill_competence_id, p_business_group_id );
2835:
2836: FETCH get_rec_from_id INTO
2836: FETCH get_rec_from_id INTO
2837: l_skill_competence_id;
2838:
2839: IF get_rec_from_id%NOTFOUND THEN
2840: x_return_status := FND_API.G_RET_STS_ERROR;
2841: x_msg_data := 'AHL_RM_INVALID_SKILL_TYPE';
2842: END IF;
2843:
2844: CLOSE get_rec_from_id;
2846:
2847: END IF;
2848:
2849: IF ( p_skill_name IS NOT NULL AND
2850: p_skill_name <> FND_API.G_MISS_CHAR ) THEN
2851:
2852: OPEN get_rec_from_value( p_skill_name, p_business_group_id );
2853:
2854: LOOP
2864:
2865: END LOOP;
2866:
2867: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
2868: x_return_status := FND_API.G_RET_STS_ERROR;
2869: x_msg_data := 'AHL_RM_INVALID_SKILL_TYPE';
2870: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2871: p_x_skill_competence_id := l_skill_competence_id;
2872: ELSE
2869: x_msg_data := 'AHL_RM_INVALID_SKILL_TYPE';
2870: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2871: p_x_skill_competence_id := l_skill_competence_id;
2872: ELSE
2873: x_return_status := FND_API.G_RET_STS_ERROR;
2874: x_msg_data := 'AHL_RM_TOO_MANY_SKILL_TYPES';
2875: END IF;
2876:
2877: CLOSE get_rec_from_value;
2915: AND competence_id = c_skill_competence_id
2916: AND business_group_id = c_business_group_id;
2917:
2918: BEGIN
2919: x_return_status := FND_API.G_RET_STS_SUCCESS;
2920:
2921: IF ( p_business_group_id IS NULL OR
2922: p_business_group_id = FND_API.G_MISS_NUM OR
2923: p_skill_competence_id IS NULL OR
2918: BEGIN
2919: x_return_status := FND_API.G_RET_STS_SUCCESS;
2920:
2921: IF ( p_business_group_id IS NULL OR
2922: p_business_group_id = FND_API.G_MISS_NUM OR
2923: p_skill_competence_id IS NULL OR
2924: p_skill_competence_id = FND_API.G_MISS_NUM ) THEN
2925: x_return_status := FND_API.G_RET_STS_ERROR;
2926: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2920:
2921: IF ( p_business_group_id IS NULL OR
2922: p_business_group_id = FND_API.G_MISS_NUM OR
2923: p_skill_competence_id IS NULL OR
2924: p_skill_competence_id = FND_API.G_MISS_NUM ) THEN
2925: x_return_status := FND_API.G_RET_STS_ERROR;
2926: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2927: RETURN;
2928: END IF;
2921: IF ( p_business_group_id IS NULL OR
2922: p_business_group_id = FND_API.G_MISS_NUM OR
2923: p_skill_competence_id IS NULL OR
2924: p_skill_competence_id = FND_API.G_MISS_NUM ) THEN
2925: x_return_status := FND_API.G_RET_STS_ERROR;
2926: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2927: RETURN;
2928: END IF;
2929:
2927: RETURN;
2928: END IF;
2929:
2930: IF ( ( p_skill_level_desc IS NULL OR
2931: p_skill_level_desc = FND_API.G_MISS_CHAR ) AND
2932: ( p_x_rating_level_id IS NULL OR
2933: p_x_rating_level_id = FND_API.G_MISS_NUM ) ) THEN
2934: x_return_status := FND_API.G_RET_STS_ERROR;
2935: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2929:
2930: IF ( ( p_skill_level_desc IS NULL OR
2931: p_skill_level_desc = FND_API.G_MISS_CHAR ) AND
2932: ( p_x_rating_level_id IS NULL OR
2933: p_x_rating_level_id = FND_API.G_MISS_NUM ) ) THEN
2934: x_return_status := FND_API.G_RET_STS_ERROR;
2935: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2936: RETURN;
2937: END IF;
2930: IF ( ( p_skill_level_desc IS NULL OR
2931: p_skill_level_desc = FND_API.G_MISS_CHAR ) AND
2932: ( p_x_rating_level_id IS NULL OR
2933: p_x_rating_level_id = FND_API.G_MISS_NUM ) ) THEN
2934: x_return_status := FND_API.G_RET_STS_ERROR;
2935: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
2936: RETURN;
2937: END IF;
2938:
2936: RETURN;
2937: END IF;
2938:
2939: IF ( ( p_skill_level_desc IS NULL OR
2940: p_skill_level_desc = FND_API.G_MISS_CHAR ) AND
2941: ( p_x_rating_level_id IS NOT NULL AND
2942: p_x_rating_level_id <> FND_API.G_MISS_NUM ) ) THEN
2943:
2944: OPEN get_rec_from_id( p_x_rating_level_id, p_skill_competence_id, p_business_group_id );
2938:
2939: IF ( ( p_skill_level_desc IS NULL OR
2940: p_skill_level_desc = FND_API.G_MISS_CHAR ) AND
2941: ( p_x_rating_level_id IS NOT NULL AND
2942: p_x_rating_level_id <> FND_API.G_MISS_NUM ) ) THEN
2943:
2944: OPEN get_rec_from_id( p_x_rating_level_id, p_skill_competence_id, p_business_group_id );
2945:
2946: FETCH get_rec_from_id INTO
2946: FETCH get_rec_from_id INTO
2947: l_rating_level_id;
2948:
2949: IF get_rec_from_id%NOTFOUND THEN
2950: x_return_status := FND_API.G_RET_STS_ERROR;
2951: x_msg_data := 'AHL_RM_INVALID_SKILL_LEVEL';
2952: END IF;
2953:
2954: CLOSE get_rec_from_id;
2956:
2957: END IF;
2958:
2959: IF ( p_skill_level_desc IS NOT NULL AND
2960: p_skill_level_desc <> FND_API.G_MISS_CHAR ) THEN
2961:
2962: OPEN get_rec_from_value( p_skill_level_desc, p_skill_competence_id, p_business_group_id );
2963:
2964: LOOP
2974:
2975: END LOOP;
2976:
2977: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
2978: x_return_status := FND_API.G_RET_STS_ERROR;
2979: x_msg_data := 'AHL_RM_INVALID_SKILL_LEVEL';
2980: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2981: p_x_rating_level_id := l_rating_level_id;
2982: ELSE
2979: x_msg_data := 'AHL_RM_INVALID_SKILL_LEVEL';
2980: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
2981: p_x_rating_level_id := l_rating_level_id;
2982: ELSE
2983: x_return_status := FND_API.G_RET_STS_ERROR;
2984: x_msg_data := 'AHL_RM_TOO_MANY_SKILL_LEVELS';
2985: END IF;
2986:
2987: CLOSE get_rec_from_value;
3015: FROM PER_QUALIFICATION_TYPES
3016: WHERE qualification_type_id = c_qualification_type_id;
3017:
3018: BEGIN
3019: x_return_status := FND_API.G_RET_STS_SUCCESS;
3020:
3021: IF ( ( p_qualification_type IS NULL OR
3022: p_qualification_type = FND_API.G_MISS_CHAR ) AND
3023: ( p_x_qualification_type_id IS NULL OR
3018: BEGIN
3019: x_return_status := FND_API.G_RET_STS_SUCCESS;
3020:
3021: IF ( ( p_qualification_type IS NULL OR
3022: p_qualification_type = FND_API.G_MISS_CHAR ) AND
3023: ( p_x_qualification_type_id IS NULL OR
3024: p_x_qualification_type_id = FND_API.G_MISS_NUM ) ) THEN
3025: x_return_status := FND_API.G_RET_STS_ERROR;
3026: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3020:
3021: IF ( ( p_qualification_type IS NULL OR
3022: p_qualification_type = FND_API.G_MISS_CHAR ) AND
3023: ( p_x_qualification_type_id IS NULL OR
3024: p_x_qualification_type_id = FND_API.G_MISS_NUM ) ) THEN
3025: x_return_status := FND_API.G_RET_STS_ERROR;
3026: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3027: RETURN;
3028: END IF;
3021: IF ( ( p_qualification_type IS NULL OR
3022: p_qualification_type = FND_API.G_MISS_CHAR ) AND
3023: ( p_x_qualification_type_id IS NULL OR
3024: p_x_qualification_type_id = FND_API.G_MISS_NUM ) ) THEN
3025: x_return_status := FND_API.G_RET_STS_ERROR;
3026: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3027: RETURN;
3028: END IF;
3029:
3027: RETURN;
3028: END IF;
3029:
3030: IF ( ( p_qualification_type IS NULL OR
3031: p_qualification_type = FND_API.G_MISS_CHAR ) AND
3032: ( p_x_qualification_type_id IS NOT NULL AND
3033: p_x_qualification_type_id <> FND_API.G_MISS_NUM ) ) THEN
3034:
3035: OPEN get_rec_from_id( p_x_qualification_type_id );
3029:
3030: IF ( ( p_qualification_type IS NULL OR
3031: p_qualification_type = FND_API.G_MISS_CHAR ) AND
3032: ( p_x_qualification_type_id IS NOT NULL AND
3033: p_x_qualification_type_id <> FND_API.G_MISS_NUM ) ) THEN
3034:
3035: OPEN get_rec_from_id( p_x_qualification_type_id );
3036:
3037: FETCH get_rec_from_id INTO
3037: FETCH get_rec_from_id INTO
3038: l_qualification_type_id;
3039:
3040: IF get_rec_from_id%NOTFOUND THEN
3041: x_return_status := FND_API.G_RET_STS_ERROR;
3042: x_msg_data := 'AHL_RM_INVALID_QUAL_TYPE';
3043: END IF;
3044:
3045: CLOSE get_rec_from_id;
3047:
3048: END IF;
3049:
3050: IF ( p_qualification_type IS NOT NULL AND
3051: p_qualification_type <> FND_API.G_MISS_CHAR ) THEN
3052:
3053: OPEN get_rec_from_value( p_qualification_type );
3054:
3055: LOOP
3065:
3066: END LOOP;
3067:
3068: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
3069: x_return_status := FND_API.G_RET_STS_ERROR;
3070: x_msg_data := 'AHL_RM_INVALID_QUAL_TYPE';
3071: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
3072: p_x_qualification_type_id := l_qualification_type_id;
3073: ELSE
3070: x_msg_data := 'AHL_RM_INVALID_QUAL_TYPE';
3071: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
3072: p_x_qualification_type_id := l_qualification_type_id;
3073: ELSE
3074: x_return_status := FND_API.G_RET_STS_ERROR;
3075: x_msg_data := 'AHL_RM_TOO_MANY_QUAL_TYPES';
3076: END IF;
3077:
3078: CLOSE get_rec_from_value;
3097: WHERE route_id = c_route_id;
3098: l_route_status_code VARCHAR2(30);
3099:
3100: BEGIN
3101: x_return_status := FND_API.G_RET_STS_SUCCESS;
3102:
3103: IF ( p_route_id IS NULL OR
3104: p_route_id= FND_API.G_MISS_NUM ) THEN
3105: x_return_status := FND_API.G_RET_STS_ERROR;
3100: BEGIN
3101: x_return_status := FND_API.G_RET_STS_SUCCESS;
3102:
3103: IF ( p_route_id IS NULL OR
3104: p_route_id= FND_API.G_MISS_NUM ) THEN
3105: x_return_status := FND_API.G_RET_STS_ERROR;
3106: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3107: RETURN;
3108: END IF;
3101: x_return_status := FND_API.G_RET_STS_SUCCESS;
3102:
3103: IF ( p_route_id IS NULL OR
3104: p_route_id= FND_API.G_MISS_NUM ) THEN
3105: x_return_status := FND_API.G_RET_STS_ERROR;
3106: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3107: RETURN;
3108: END IF;
3109:
3111:
3112: FETCH get_route_status INTO l_route_status_code;
3113:
3114: IF get_route_status%NOTFOUND THEN
3115: x_return_status := FND_API.G_RET_STS_ERROR;
3116: x_msg_data := 'AHL_RM_INVALID_ROUTE';
3117: CLOSE get_route_status;
3118: RETURN;
3119: END IF;
3119: END IF;
3120:
3121: IF ( l_route_status_code <> 'DRAFT' AND
3122: l_route_status_code <> 'APPROVAL_REJECTED' ) THEN
3123: x_return_status := FND_API.G_RET_STS_ERROR;
3124: x_msg_data := 'AHL_RM_INVALID_ROUTE_STATUS';
3125: CLOSE get_route_status;
3126: RETURN;
3127: END IF;
3162: l_route_id NUMBER;
3163: l_route_no VARCHAR2(30);
3164:
3165: BEGIN
3166: x_return_status := FND_API.G_RET_STS_SUCCESS;
3167:
3168: IF ( p_efct_id IS NULL OR
3169: p_efct_id= FND_API.G_MISS_NUM ) THEN
3170: x_return_status := FND_API.G_RET_STS_ERROR;
3165: BEGIN
3166: x_return_status := FND_API.G_RET_STS_SUCCESS;
3167:
3168: IF ( p_efct_id IS NULL OR
3169: p_efct_id= FND_API.G_MISS_NUM ) THEN
3170: x_return_status := FND_API.G_RET_STS_ERROR;
3171: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3172: RETURN;
3173: END IF;
3166: x_return_status := FND_API.G_RET_STS_SUCCESS;
3167:
3168: IF ( p_efct_id IS NULL OR
3169: p_efct_id= FND_API.G_MISS_NUM ) THEN
3170: x_return_status := FND_API.G_RET_STS_ERROR;
3171: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3172: RETURN;
3173: END IF;
3174:
3176:
3177: FETCH get_efct_status INTO l_route_id;
3178:
3179: IF get_efct_status%NOTFOUND THEN
3180: x_return_status := FND_API.G_RET_STS_ERROR;
3181: x_msg_data := 'AHL_RM_INVALID_efct';
3182: CLOSE get_efct_status;
3183: RETURN;
3184: END IF;
3187:
3188: FETCH get_route_status INTO l_route_no;
3189:
3190: IF get_route_status%NOTFOUND THEN
3191: x_return_status := FND_API.G_RET_STS_ERROR;
3192: x_msg_data := 'AHL_RM_INVALID_efct_ROUTE';
3193: CLOSE get_route_status;
3194: RETURN;
3195: END IF;
3214: WHERE operation_id = c_operation_id;
3215: l_operation_status_code VARCHAR2(30);
3216:
3217: BEGIN
3218: x_return_status := FND_API.G_RET_STS_SUCCESS;
3219:
3220: IF ( p_operation_id IS NULL OR
3221: p_operation_id = FND_API.G_MISS_NUM ) THEN
3222: x_return_status := FND_API.G_RET_STS_ERROR;
3217: BEGIN
3218: x_return_status := FND_API.G_RET_STS_SUCCESS;
3219:
3220: IF ( p_operation_id IS NULL OR
3221: p_operation_id = FND_API.G_MISS_NUM ) THEN
3222: x_return_status := FND_API.G_RET_STS_ERROR;
3223: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3224: RETURN;
3225: END IF;
3218: x_return_status := FND_API.G_RET_STS_SUCCESS;
3219:
3220: IF ( p_operation_id IS NULL OR
3221: p_operation_id = FND_API.G_MISS_NUM ) THEN
3222: x_return_status := FND_API.G_RET_STS_ERROR;
3223: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3224: RETURN;
3225: END IF;
3226:
3228:
3229: FETCH get_operation_status INTO l_operation_status_code;
3230:
3231: IF get_operation_status%NOTFOUND THEN
3232: x_return_status := FND_API.G_RET_STS_ERROR;
3233: x_msg_data := 'AHL_RM_INVALID_OPERATION';
3234: CLOSE get_operation_status;
3235: RETURN;
3236: END IF;
3236: END IF;
3237:
3238: IF ( l_operation_status_code <> 'DRAFT' AND
3239: l_operation_status_code <> 'APPROVAL_REJECTED' ) THEN
3240: x_return_status := FND_API.G_RET_STS_ERROR;
3241: x_msg_data := 'AHL_RM_INVALID_OPER_STATUS';
3242: CLOSE get_operation_status;
3243: RETURN;
3244: END IF;
3305: GROUP BY RES.object_id,RES.schedule_seq ) ;
3306: -- Bug # 7644260 (FP for ER # 6998882) -- end
3307:
3308: BEGIN
3309: x_return_status := FND_API.G_RET_STS_SUCCESS;
3310:
3311: IF ( p_route_id IS NULL OR
3312: p_route_id= FND_API.G_MISS_NUM OR
3313: p_time_span IS NULL OR
3308: BEGIN
3309: x_return_status := FND_API.G_RET_STS_SUCCESS;
3310:
3311: IF ( p_route_id IS NULL OR
3312: p_route_id= FND_API.G_MISS_NUM OR
3313: p_time_span IS NULL OR
3314: p_time_span = FND_API.G_MISS_NUM ) THEN
3315: x_return_status := FND_API.G_RET_STS_ERROR;
3316: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3310:
3311: IF ( p_route_id IS NULL OR
3312: p_route_id= FND_API.G_MISS_NUM OR
3313: p_time_span IS NULL OR
3314: p_time_span = FND_API.G_MISS_NUM ) THEN
3315: x_return_status := FND_API.G_RET_STS_ERROR;
3316: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3317: RETURN;
3318: END IF;
3311: IF ( p_route_id IS NULL OR
3312: p_route_id= FND_API.G_MISS_NUM OR
3313: p_time_span IS NULL OR
3314: p_time_span = FND_API.G_MISS_NUM ) THEN
3315: x_return_status := FND_API.G_RET_STS_ERROR;
3316: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3317: RETURN;
3318: END IF;
3319:
3322: FETCH get_max_rt_resource_duration INTO x_res_max_duration;
3323:
3324: IF get_max_rt_resource_duration%FOUND THEN
3325: IF ( x_res_max_duration > p_time_span ) THEN
3326: x_return_status := FND_API.G_RET_STS_ERROR;
3327: x_msg_data := 'AHL_RM_RT_RES_TIME_LONGER';
3328: CLOSE get_max_rt_resource_duration;
3329: RETURN;
3330: END IF;
3337: FETCH get_max_op_resource_duration INTO x_res_max_duration;
3338:
3339: IF get_max_op_resource_duration%FOUND THEN
3340: IF ( x_res_max_duration > p_time_span ) THEN
3341: x_return_status := FND_API.G_RET_STS_ERROR;
3342: x_msg_data := 'AHL_RM_OP_RES_TIME_LONGER';
3343: END IF;
3344: END IF;
3345:
3373: AND RT.route_id = ASS.route_id
3374: AND ASS.operation_id = c_operation_id;
3375:
3376: BEGIN
3377: x_return_status := FND_API.G_RET_STS_SUCCESS;
3378:
3379: IF ( p_object_id IS NULL OR
3380: p_object_id= FND_API.G_MISS_NUM OR
3381: p_association_type_code IS NULL OR
3376: BEGIN
3377: x_return_status := FND_API.G_RET_STS_SUCCESS;
3378:
3379: IF ( p_object_id IS NULL OR
3380: p_object_id= FND_API.G_MISS_NUM OR
3381: p_association_type_code IS NULL OR
3382: p_association_type_code = FND_API.G_MISS_CHAR OR
3383: p_duration IS NULL OR
3384: p_duration = FND_API.G_MISS_NUM ) THEN
3378:
3379: IF ( p_object_id IS NULL OR
3380: p_object_id= FND_API.G_MISS_NUM OR
3381: p_association_type_code IS NULL OR
3382: p_association_type_code = FND_API.G_MISS_CHAR OR
3383: p_duration IS NULL OR
3384: p_duration = FND_API.G_MISS_NUM ) THEN
3385: x_return_status := FND_API.G_RET_STS_ERROR;
3386: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3380: p_object_id= FND_API.G_MISS_NUM OR
3381: p_association_type_code IS NULL OR
3382: p_association_type_code = FND_API.G_MISS_CHAR OR
3383: p_duration IS NULL OR
3384: p_duration = FND_API.G_MISS_NUM ) THEN
3385: x_return_status := FND_API.G_RET_STS_ERROR;
3386: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3387: RETURN;
3388: END IF;
3381: p_association_type_code IS NULL OR
3382: p_association_type_code = FND_API.G_MISS_CHAR OR
3383: p_duration IS NULL OR
3384: p_duration = FND_API.G_MISS_NUM ) THEN
3385: x_return_status := FND_API.G_RET_STS_ERROR;
3386: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3387: RETURN;
3388: END IF;
3389:
3394: FETCH get_route_time_span INTO x_max_rt_time_span;
3395:
3396: IF get_route_time_span%FOUND THEN
3397: IF ( x_max_rt_time_span < p_duration ) THEN
3398: x_return_status := FND_API.G_RET_STS_ERROR;
3399: x_msg_data := 'AHL_RM_RT_RES_DURATION_LONGER';
3400: END IF;
3401: END IF;
3402:
3409: FETCH get_op_route_time_span INTO x_max_rt_time_span;
3410:
3411: IF get_op_route_time_span%FOUND THEN
3412: IF ( x_max_rt_time_span < p_duration ) THEN
3413: x_return_status := FND_API.G_RET_STS_ERROR;
3414: x_msg_data := 'AHL_RM_OP_RES_DURATION_LONGER';
3415: END IF;
3416: END IF;
3417:
3447: AND scheduled_type_id = 1
3448: AND object_id = c_operation_id;
3449:
3450: BEGIN
3451: x_return_status := FND_API.G_RET_STS_SUCCESS;
3452:
3453: IF ( p_route_id IS NULL OR
3454: p_route_id = FND_API.G_MISS_NUM OR
3455: p_operation_id IS NULL OR
3450: BEGIN
3451: x_return_status := FND_API.G_RET_STS_SUCCESS;
3452:
3453: IF ( p_route_id IS NULL OR
3454: p_route_id = FND_API.G_MISS_NUM OR
3455: p_operation_id IS NULL OR
3456: p_operation_id = FND_API.G_MISS_NUM ) THEN
3457: x_return_status := FND_API.G_RET_STS_ERROR;
3458: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3452:
3453: IF ( p_route_id IS NULL OR
3454: p_route_id = FND_API.G_MISS_NUM OR
3455: p_operation_id IS NULL OR
3456: p_operation_id = FND_API.G_MISS_NUM ) THEN
3457: x_return_status := FND_API.G_RET_STS_ERROR;
3458: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3459: RETURN;
3460: END IF;
3453: IF ( p_route_id IS NULL OR
3454: p_route_id = FND_API.G_MISS_NUM OR
3455: p_operation_id IS NULL OR
3456: p_operation_id = FND_API.G_MISS_NUM ) THEN
3457: x_return_status := FND_API.G_RET_STS_ERROR;
3458: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3459: RETURN;
3460: END IF;
3461:
3467:
3468: IF ( get_route_time_span%FOUND AND
3469: get_op_max_duration%FOUND ) THEN
3470: IF ( x_rt_time_span < x_op_max_res_duration ) THEN
3471: x_return_status := FND_API.G_RET_STS_ERROR;
3472: x_msg_data := 'AHL_RM_RES_DURATION_LONGER';
3473: END IF;
3474: END IF;
3475:
3506: AND A.operation_id <> c_operation_id
3507: AND B.operation_id = c_operation_id;
3508:
3509: BEGIN
3510: x_return_status := FND_API.G_RET_STS_SUCCESS;
3511:
3512: IF ( p_start_date IS NULL OR
3513: p_start_date = FND_API.G_MISS_DATE ) THEN
3514: x_return_status := FND_API.G_RET_STS_ERROR;
3509: BEGIN
3510: x_return_status := FND_API.G_RET_STS_SUCCESS;
3511:
3512: IF ( p_start_date IS NULL OR
3513: p_start_date = FND_API.G_MISS_DATE ) THEN
3514: x_return_status := FND_API.G_RET_STS_ERROR;
3515: x_msg_data := 'AHL_RM_ST_DATE_NULL';
3516: RETURN;
3517: END IF;
3510: x_return_status := FND_API.G_RET_STS_SUCCESS;
3511:
3512: IF ( p_start_date IS NULL OR
3513: p_start_date = FND_API.G_MISS_DATE ) THEN
3514: x_return_status := FND_API.G_RET_STS_ERROR;
3515: x_msg_data := 'AHL_RM_ST_DATE_NULL';
3516: RETURN;
3517: END IF;
3518:
3516: RETURN;
3517: END IF;
3518:
3519: IF ( p_association_type IS NOT NULL AND
3520: p_association_type <> FND_API.G_MISS_CHAR AND
3521: p_association_type = 'ROUTE' ) THEN
3522:
3523: OPEN get_rt_latest_start_date( p_object_id );
3524:
3525: FETCH get_rt_latest_start_date INTO x_start_date;
3526:
3527: IF ( get_rt_latest_start_date%FOUND ) THEN
3528: IF ( TRUNC( x_start_date ) > TRUNC( p_start_date ) ) THEN
3529: x_return_status := FND_API.G_RET_STS_ERROR;
3530: x_msg_data := 'AHL_RM_ST_DATE_LESSER';
3531: END IF;
3532: END IF;
3533:
3532: END IF;
3533:
3534: CLOSE get_rt_latest_start_date;
3535: ELSIF ( p_association_type IS NOT NULL AND
3536: p_association_type <> FND_API.G_MISS_CHAR AND
3537: p_association_type = 'OPERATION' ) THEN
3538:
3539: OPEN get_op_latest_start_date( p_object_id );
3540:
3541: FETCH get_op_latest_start_date INTO x_start_date;
3542:
3543: IF ( get_op_latest_start_date%FOUND ) THEN
3544: IF ( TRUNC( x_start_date ) > TRUNC( p_start_date ) ) THEN
3545: x_return_status := FND_API.G_RET_STS_ERROR;
3546: x_msg_data := 'AHL_RM_ST_DATE_LESSER';
3547: END IF;
3548: END IF;
3549:
3571: WHERE r.route_id = c_route_id
3572: ;
3573:
3574: BEGIN
3575: x_return_status := FND_API.G_RET_STS_SUCCESS;
3576:
3577: IF ( (p_object_id IS NULL OR p_object_id = FND_API.G_MISS_NUM ) OR
3578: ( p_association_type IS NULL OR p_association_type = FND_API.G_MISS_CHAR ))
3579: THEN
3573:
3574: BEGIN
3575: x_return_status := FND_API.G_RET_STS_SUCCESS;
3576:
3577: IF ( (p_object_id IS NULL OR p_object_id = FND_API.G_MISS_NUM ) OR
3578: ( p_association_type IS NULL OR p_association_type = FND_API.G_MISS_CHAR ))
3579: THEN
3580: x_return_status := FND_API.G_RET_STS_ERROR;
3581: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3574: BEGIN
3575: x_return_status := FND_API.G_RET_STS_SUCCESS;
3576:
3577: IF ( (p_object_id IS NULL OR p_object_id = FND_API.G_MISS_NUM ) OR
3578: ( p_association_type IS NULL OR p_association_type = FND_API.G_MISS_CHAR ))
3579: THEN
3580: x_return_status := FND_API.G_RET_STS_ERROR;
3581: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3582: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
3576:
3577: IF ( (p_object_id IS NULL OR p_object_id = FND_API.G_MISS_NUM ) OR
3578: ( p_association_type IS NULL OR p_association_type = FND_API.G_MISS_CHAR ))
3579: THEN
3580: x_return_status := FND_API.G_RET_STS_ERROR;
3581: x_msg_data := 'AHL_COM_INVALID_PROCEDURE_CALL';
3582: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
3583: FND_MSG_PUB.add;
3584: RETURN;
3590: x_return_status => x_return_status
3591: );
3592:
3593: -- Application code is mandatory .
3594: IF x_return_status = FND_API.G_RET_STS_ERROR
3595: THEN
3596: x_msg_data := 'AHL_COM_APPLN_CODE_NOTNULL';
3597: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_APPLN_CODE_NOTNULL' );
3598: FND_MSG_PUB.add;
3607: FETCH get_rt_ApplnUsage INTO l_object_appln_code;
3608:
3609: IF get_rt_ApplnUsage%NOTFOUND
3610: THEN
3611: x_return_status := FND_API.G_RET_STS_ERROR;
3612: x_msg_data := 'AHL_RM_INVALID_ROUTE';
3613: -- Balaji added code to push error data into fnd stack as a part of public API cleanup in 11510+
3614: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_ROUTE' );
3615: FND_MSG_PUB.add;
3622: END IF;
3623:
3624: IF (l_object_appln_code<> l_appln_code)
3625: THEN
3626: x_return_status := FND_API.G_RET_STS_ERROR;
3627: x_msg_data := 'AHL_COM_INVALID_APPLN';
3628: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_APPLN' );
3629: FND_MSG_PUB.add;
3630: END IF;
3667: BEGIN
3668:
3669:
3670: IF (
3671: ((p_position_path_id IS NOT NULL) AND (p_position_path_id <> FND_API.G_MISS_NUM ))
3672: AND
3673: ((p_item_comp_detail_id IS NULL ) OR (p_item_comp_detail_id = FND_API.G_MISS_NUM ))
3674: )
3675: THEN
3669:
3670: IF (
3671: ((p_position_path_id IS NOT NULL) AND (p_position_path_id <> FND_API.G_MISS_NUM ))
3672: AND
3673: ((p_item_comp_detail_id IS NULL ) OR (p_item_comp_detail_id = FND_API.G_MISS_NUM ))
3674: )
3675: THEN
3676: l_position_path := AHL_MC_PATH_POSITION_PVT.GET_POSREF_BY_ID(p_position_path_id);
3677: END IF ;
3806:
3807:
3808: BEGIN
3809: IF (
3810: ((p_position_path_id IS NOT NULL) AND (p_position_path_id <> FND_API.G_MISS_NUM ))
3811: AND
3812: ((p_item_comp_detail_id IS NULL ) OR (p_item_comp_detail_id = FND_API.G_MISS_NUM ))
3813: )
3814: THEN
3808: BEGIN
3809: IF (
3810: ((p_position_path_id IS NOT NULL) AND (p_position_path_id <> FND_API.G_MISS_NUM ))
3811: AND
3812: ((p_item_comp_detail_id IS NULL ) OR (p_item_comp_detail_id = FND_API.G_MISS_NUM ))
3813: )
3814: THEN
3815: -- l_source_composition := AHL_MC_PATH_POSITION_PVT.GET_POSREF_BY_ID(p_position_path_id);
3816: l_source_composition := ' ';
3816: l_source_composition := ' ';
3817: END IF;
3818:
3819: IF (
3820: ((p_position_path_id IS NULL) OR (p_position_path_id = FND_API.G_MISS_NUM ))
3821: AND
3822: ((p_item_comp_detail_id IS NOT NULL ) AND (p_item_comp_detail_id <> FND_API.G_MISS_NUM ))
3823: )
3824: THEN
3818:
3819: IF (
3820: ((p_position_path_id IS NULL) OR (p_position_path_id = FND_API.G_MISS_NUM ))
3821: AND
3822: ((p_item_comp_detail_id IS NOT NULL ) AND (p_item_comp_detail_id <> FND_API.G_MISS_NUM ))
3823: )
3824: THEN
3825:
3826: OPEN get_item_comp( p_item_comp_detail_id );
3832: CLOSE get_item_comp;
3833: END IF ;
3834:
3835: IF (
3836: ((p_position_path_id IS NOT NULL) AND (p_position_path_id <> FND_API.G_MISS_NUM ))
3837: AND
3838: ((p_item_comp_detail_id IS NOT NULL ) AND (p_item_comp_detail_id <> FND_API.G_MISS_NUM ))
3839: )
3840: THEN
3834:
3835: IF (
3836: ((p_position_path_id IS NOT NULL) AND (p_position_path_id <> FND_API.G_MISS_NUM ))
3837: AND
3838: ((p_item_comp_detail_id IS NOT NULL ) AND (p_item_comp_detail_id <> FND_API.G_MISS_NUM ))
3839: )
3840: THEN
3841:
3842: OPEN get_item_comp( p_item_comp_detail_id );
3890: l_api_name CONSTANT VARCHAR2(30) := 'OPERATION_NUMBER_TO_ID';
3891:
3892: BEGIN
3893:
3894: x_return_status := FND_API.G_RET_STS_SUCCESS;
3895: OPEN oper_name_rev_csr_type(p_operation_number, p_operation_revision);
3896: FETCH oper_name_rev_csr_type INTO l_operation_id;
3897: CLOSE oper_name_rev_csr_type;
3898:
3896: FETCH oper_name_rev_csr_type INTO l_operation_id;
3897: CLOSE oper_name_rev_csr_type;
3898:
3899: IF l_operation_id IS NULL THEN
3900: x_return_status := FND_API.G_RET_STS_ERROR;
3901: FND_MESSAGE.SET_NAME('AHL','AHL_RM_INV_OPER_NO_REV');
3902: FND_MESSAGE.SET_TOKEN('NUMBER', p_operation_number);
3903: FND_MESSAGE.SET_TOKEN('REVISION', p_operation_revision);
3904: FND_MSG_PUB.ADD;
3939: l_route_id NUMBER;
3940: l_api_name CONSTANT VARCHAR2(30) := 'ROUTE_NUMBER_TO_ID';
3941:
3942: BEGIN
3943: x_return_status := FND_API.G_RET_STS_SUCCESS;
3944:
3945: OPEN route_name_rev_csr_type(p_route_number, p_route_revision);
3946: FETCH route_name_rev_csr_type INTO l_route_id;
3947: CLOSE route_name_rev_csr_type;
3946: FETCH route_name_rev_csr_type INTO l_route_id;
3947: CLOSE route_name_rev_csr_type;
3948:
3949: IF l_route_id IS NULL THEN
3950: x_return_status := FND_API.G_RET_STS_ERROR;
3951: FND_MESSAGE.SET_NAME('AHL','AHL_RM_INV_ROUTE_NO_REV');
3952: FND_MESSAGE.SET_TOKEN('NUMBER', p_route_number);
3953: FND_MESSAGE.SET_TOKEN('REVISION', p_route_revision);
3954: FND_MSG_PUB.ADD;