[Home] [Help]
20: BEGIN
21:
22:
23: IF ( p_material_req_rec.item_group_name IS NOT NULL AND
24: p_material_req_rec.item_group_name <> FND_API.G_MISS_CHAR ) THEN
25: l_record_identifier := l_record_identifier || p_material_req_rec.item_group_name;
26: l_put_comma := 'Y';
27: ELSE
28: l_put_comma := 'N';
30:
31: l_record_identifier := l_record_identifier || ' ';
32:
33: IF ( p_material_req_rec.item_number IS NOT NULL AND
34: p_material_req_rec.item_number <> FND_API.G_MISS_CHAR ) THEN
35:
36: IF(l_put_comma = 'Y')
37: THEN
38: l_record_identifier := l_record_identifier || ',';
44:
45: l_record_identifier := l_record_identifier || ' ';
46:
47: IF ( p_material_req_rec.POSITION_PATH IS NOT NULL AND
48: p_material_req_rec.POSITION_PATH <> FND_API.G_MISS_CHAR ) THEN
49:
50: IF(l_put_comma = 'Y')
51: THEN
52: l_record_identifier := l_record_identifier || ',';
69: l_record_identifier VARCHAR2(2000) := '';
70:
71: BEGIN
72: IF ( p_route_req_rec.ITEM_NUMBER IS NOT NULL AND
73: p_route_req_rec.ITEM_NUMBER <> FND_API.G_MISS_CHAR ) THEN
74: l_record_identifier := l_record_identifier || p_route_req_rec.ITEM_NUMBER ;
75: l_record_identifier := l_record_identifier || ' ';
76: END IF;
77:
78:
79:
80:
81: IF ( p_route_req_rec.ORGANIZATION_CODE IS NOT NULL AND
82: p_route_req_rec.ORGANIZATION_CODE <> FND_API.G_MISS_CHAR ) THEN
83:
84: l_record_identifier := l_record_identifier || p_route_req_rec.ORGANIZATION_CODE;
85: l_record_identifier := l_record_identifier || ' ';
86: END IF;
87:
88:
89:
90: IF ( p_route_req_rec.MC_NAME IS NOT NULL AND
91: p_route_req_rec.MC_NAME <> FND_API.G_MISS_CHAR ) THEN
92:
93: l_record_identifier := l_record_identifier || p_route_req_rec.MC_NAME;
94: l_record_identifier := l_record_identifier || ' ';
95: END IF;
96:
97:
98:
99: IF ( p_route_req_rec.MC_REVISION IS NOT NULL AND
100: p_route_req_rec.MC_REVISION <> FND_API.G_MISS_CHAR ) THEN
101:
102: l_record_identifier := l_record_identifier || p_route_req_rec.MC_REVISION;
103: END IF;
104:
119: l_return_status VARCHAR2(1);
120: l_msg_data VARCHAR2(2000);
121:
122: BEGIN
123: x_return_status := FND_API.G_RET_STS_SUCCESS;
124:
125: -- Check if a value is passed in p_object_id
126: IF ( p_object_id = FND_API.G_MISS_NUM OR
127: p_object_id IS NULL ) THEN
122: BEGIN
123: x_return_status := FND_API.G_RET_STS_SUCCESS;
124:
125: -- Check if a value is passed in p_object_id
126: IF ( p_object_id = FND_API.G_MISS_NUM OR
127: p_object_id IS NULL ) THEN
128: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OBJECT_ID_NULL' );
129: FND_MSG_PUB.add;
130: x_return_status := FND_API.G_RET_STS_ERROR;
126: IF ( p_object_id = FND_API.G_MISS_NUM OR
127: p_object_id IS NULL ) THEN
128: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OBJECT_ID_NULL' );
129: FND_MSG_PUB.add;
130: x_return_status := FND_API.G_RET_STS_ERROR;
131: RETURN;
132: END IF;
133:
134: -- Check if a value is passed in p_association_type
131: RETURN;
132: END IF;
133:
134: -- Check if a value is passed in p_association_type
135: IF ( p_association_type = FND_API.G_MISS_CHAR OR
136: p_association_type IS NULL ) THEN
137: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ASSOC_TYPE_NULL' );
138: FND_MSG_PUB.add;
139: x_return_status := FND_API.G_RET_STS_ERROR;
135: IF ( p_association_type = FND_API.G_MISS_CHAR OR
136: p_association_type IS NULL ) THEN
137: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ASSOC_TYPE_NULL' );
138: FND_MSG_PUB.add;
139: x_return_status := FND_API.G_RET_STS_ERROR;
140: RETURN;
141: END IF;
142:
143: -- Check if a valid value is passed in p_association_type
146: p_association_type <> 'DISPOSITION' ) THEN
147: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ASSOC_TYPE_INVALID' );
148: FND_MESSAGE.set_token( 'FIELD', p_association_type );
149: FND_MSG_PUB.add;
150: x_return_status := FND_API.G_RET_STS_ERROR;
151: RETURN;
152: END IF;
153:
154: -- Check if the Route / Operation is in Updatable status
174: p_efct_id => p_object_id
175: );
176: END IF;
177:
178: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
179: FND_MESSAGE.set_name( 'AHL', l_msg_data );
180: FND_MSG_PUB.add;
181: x_return_status := l_return_status;
182: RETURN;
186: IF ( p_material_req_tbl.count < 1 ) THEN
187: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
188: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME );
189: FND_MSG_PUB.add;
190: x_return_status := FND_API.G_RET_STS_ERROR;
191: RETURN;
192: END IF;
193:
194: -- Validate DML Operation
199: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
200: FND_MESSAGE.set_token( 'FIELD', p_material_req_tbl(i).dml_operation );
201: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_tbl(i) ) );
202: FND_MSG_PUB.add;
203: x_return_status := FND_API.G_RET_STS_ERROR;
204: RETURN;
205: END IF;
206: END LOOP;
207:
219: l_return_status VARCHAR2(1);
220: l_msg_data VARCHAR2(2000);
221:
222: BEGIN
223: x_return_status := FND_API.G_RET_STS_SUCCESS;
224:
225: -- Check if a valid value is passed in p_rt_oper_resource_id
226: IF ( p_object_id = FND_API.G_MISS_NUM OR
227: p_object_id IS NULL ) THEN
222: BEGIN
223: x_return_status := FND_API.G_RET_STS_SUCCESS;
224:
225: -- Check if a valid value is passed in p_rt_oper_resource_id
226: IF ( p_object_id = FND_API.G_MISS_NUM OR
227: p_object_id IS NULL ) THEN
228: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_efct_OBJECT_NULL' );
229: FND_MSG_PUB.add;
230: x_return_status := FND_API.G_RET_STS_ERROR;
226: IF ( p_object_id = FND_API.G_MISS_NUM OR
227: p_object_id IS NULL ) THEN
228: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_efct_OBJECT_NULL' );
229: FND_MSG_PUB.add;
230: x_return_status := FND_API.G_RET_STS_ERROR;
231: RAISE FND_API.G_EXC_ERROR;
232: END IF;
233:
234: AHL_RM_ROUTE_UTIL.validate_route_status
227: p_object_id IS NULL ) THEN
228: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_efct_OBJECT_NULL' );
229: FND_MSG_PUB.add;
230: x_return_status := FND_API.G_RET_STS_ERROR;
231: RAISE FND_API.G_EXC_ERROR;
232: END IF;
233:
234: AHL_RM_ROUTE_UTIL.validate_route_status
235: (
236: p_route_id => p_object_id,
237: x_return_status => l_return_status,
238: x_msg_data => l_msg_data
239: );
240: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
241: FND_MESSAGE.set_name( 'AHL', l_msg_data );
242: FND_MSG_PUB.add;
243: x_return_status := FND_API.G_RET_STS_ERROR;
244: RETURN;
239: );
240: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
241: FND_MESSAGE.set_name( 'AHL', l_msg_data );
242: FND_MSG_PUB.add;
243: x_return_status := FND_API.G_RET_STS_ERROR;
244: RETURN;
245: END IF;
246:
247:
249: IF ( p_route_efct_tbl.count < 1 ) THEN
250: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
251: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME1 );
252: FND_MSG_PUB.add;
253: x_return_status := FND_API.G_RET_STS_ERROR;
254: RETURN;
255: END IF;
256:
257: -- Validate DML Operation
262: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
263: FND_MESSAGE.set_token( 'FIELD', p_route_efct_tbl(i).dml_operation );
264: -- FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_efct_tbl(i) ) );
265: FND_MSG_PUB.add;
266: x_return_status := FND_API.G_RET_STS_ERROR;
267: RETURN;
268: END IF;
269: END LOOP;
270:
282:
283:
284: IF ( p_x_material_req_rec.position_path IS NULL ) THEN
285: p_x_material_req_rec.position_path_id := NULL;
286: ELSIF ( p_x_material_req_rec.position_path = FND_API.G_MISS_CHAR ) THEN
287: p_x_material_req_rec.position_path_id := FND_API.G_MISS_NUM;
288: END IF;
289:
290: IF ( p_x_material_req_rec.item_group_name IS NULL ) THEN
283:
284: IF ( p_x_material_req_rec.position_path IS NULL ) THEN
285: p_x_material_req_rec.position_path_id := NULL;
286: ELSIF ( p_x_material_req_rec.position_path = FND_API.G_MISS_CHAR ) THEN
287: p_x_material_req_rec.position_path_id := FND_API.G_MISS_NUM;
288: END IF;
289:
290: IF ( p_x_material_req_rec.item_group_name IS NULL ) THEN
291: p_x_material_req_rec.item_group_id := NULL;
288: END IF;
289:
290: IF ( p_x_material_req_rec.item_group_name IS NULL ) THEN
291: p_x_material_req_rec.item_group_id := NULL;
292: ELSIF ( p_x_material_req_rec.item_group_name = FND_API.G_MISS_CHAR ) THEN
293: p_x_material_req_rec.item_group_id := FND_API.G_MISS_NUM;
294: END IF;
295:
296: IF ( p_x_material_req_rec.item_number IS NULL ) THEN
289:
290: IF ( p_x_material_req_rec.item_group_name IS NULL ) THEN
291: p_x_material_req_rec.item_group_id := NULL;
292: ELSIF ( p_x_material_req_rec.item_group_name = FND_API.G_MISS_CHAR ) THEN
293: p_x_material_req_rec.item_group_id := FND_API.G_MISS_NUM;
294: END IF;
295:
296: IF ( p_x_material_req_rec.item_number IS NULL ) THEN
297: p_x_material_req_rec.inventory_item_id := NULL;
295:
296: IF ( p_x_material_req_rec.item_number IS NULL ) THEN
297: p_x_material_req_rec.inventory_item_id := NULL;
298: p_x_material_req_rec.inventory_org_id := NULL;
299: ELSIF ( p_x_material_req_rec.item_number = FND_API.G_MISS_CHAR ) THEN
300: p_x_material_req_rec.inventory_item_id := FND_API.G_MISS_NUM;
301: p_x_material_req_rec.inventory_org_id := FND_API.G_MISS_NUM;
302: END IF;
303:
296: IF ( p_x_material_req_rec.item_number IS NULL ) THEN
297: p_x_material_req_rec.inventory_item_id := NULL;
298: p_x_material_req_rec.inventory_org_id := NULL;
299: ELSIF ( p_x_material_req_rec.item_number = FND_API.G_MISS_CHAR ) THEN
300: p_x_material_req_rec.inventory_item_id := FND_API.G_MISS_NUM;
301: p_x_material_req_rec.inventory_org_id := FND_API.G_MISS_NUM;
302: END IF;
303:
304: IF ( p_x_material_req_rec.uom IS NULL ) THEN
297: p_x_material_req_rec.inventory_item_id := NULL;
298: p_x_material_req_rec.inventory_org_id := NULL;
299: ELSIF ( p_x_material_req_rec.item_number = FND_API.G_MISS_CHAR ) THEN
300: p_x_material_req_rec.inventory_item_id := FND_API.G_MISS_NUM;
301: p_x_material_req_rec.inventory_org_id := FND_API.G_MISS_NUM;
302: END IF;
303:
304: IF ( p_x_material_req_rec.uom IS NULL ) THEN
305: p_x_material_req_rec.uom_code := NULL;
302: END IF;
303:
304: IF ( p_x_material_req_rec.uom IS NULL ) THEN
305: p_x_material_req_rec.uom_code := NULL;
306: ELSIF ( p_x_material_req_rec.uom = FND_API.G_MISS_CHAR ) THEN
307: p_x_material_req_rec.uom_code := FND_API.G_MISS_CHAR;
308: END IF;
309:
310: END clear_lov_attribute_ids;
303:
304: IF ( p_x_material_req_rec.uom IS NULL ) THEN
305: p_x_material_req_rec.uom_code := NULL;
306: ELSIF ( p_x_material_req_rec.uom = FND_API.G_MISS_CHAR ) THEN
307: p_x_material_req_rec.uom_code := FND_API.G_MISS_CHAR;
308: END IF;
309:
310: END clear_lov_attribute_ids;
311:
320:
321: IF ( p_x_route_efct_rec.mc_name IS NULL ) THEN
322: p_x_route_efct_rec.mc_id := NULL;
323: p_x_route_efct_rec.mc_header_id := NULL;
324: ELSIF ( p_x_route_efct_rec.mc_name = FND_API.G_MISS_CHAR ) THEN
325: p_x_route_efct_rec.mc_header_id := FND_API.G_MISS_NUM;
326: p_x_route_efct_rec.mc_id := FND_API.G_MISS_NUM;
327: END IF;
328:
321: IF ( p_x_route_efct_rec.mc_name IS NULL ) THEN
322: p_x_route_efct_rec.mc_id := NULL;
323: p_x_route_efct_rec.mc_header_id := NULL;
324: ELSIF ( p_x_route_efct_rec.mc_name = FND_API.G_MISS_CHAR ) THEN
325: p_x_route_efct_rec.mc_header_id := FND_API.G_MISS_NUM;
326: p_x_route_efct_rec.mc_id := FND_API.G_MISS_NUM;
327: END IF;
328:
329: IF ( p_x_route_efct_rec.MC_REVISION IS NULL ) THEN
322: p_x_route_efct_rec.mc_id := NULL;
323: p_x_route_efct_rec.mc_header_id := NULL;
324: ELSIF ( p_x_route_efct_rec.mc_name = FND_API.G_MISS_CHAR ) THEN
325: p_x_route_efct_rec.mc_header_id := FND_API.G_MISS_NUM;
326: p_x_route_efct_rec.mc_id := FND_API.G_MISS_NUM;
327: END IF;
328:
329: IF ( p_x_route_efct_rec.MC_REVISION IS NULL ) THEN
330: p_x_route_efct_rec.mc_header_id := NULL;
327: END IF;
328:
329: IF ( p_x_route_efct_rec.MC_REVISION IS NULL ) THEN
330: p_x_route_efct_rec.mc_header_id := NULL;
331: ELSIF ( p_x_route_efct_rec.MC_REVISION = FND_API.G_MISS_CHAR ) THEN
332: p_x_route_efct_rec.mc_header_id := FND_API.G_MISS_NUM;
333: END IF;
334:
335: IF ( p_x_route_efct_rec.item_number IS NULL OR p_x_route_efct_rec.ORGANIZATION_CODE IS NULL ) THEN
328:
329: IF ( p_x_route_efct_rec.MC_REVISION IS NULL ) THEN
330: p_x_route_efct_rec.mc_header_id := NULL;
331: ELSIF ( p_x_route_efct_rec.MC_REVISION = FND_API.G_MISS_CHAR ) THEN
332: p_x_route_efct_rec.mc_header_id := FND_API.G_MISS_NUM;
333: END IF;
334:
335: IF ( p_x_route_efct_rec.item_number IS NULL OR p_x_route_efct_rec.ORGANIZATION_CODE IS NULL ) THEN
336: p_x_route_efct_rec.inventory_item_id := NULL;
334:
335: IF ( p_x_route_efct_rec.item_number IS NULL OR p_x_route_efct_rec.ORGANIZATION_CODE IS NULL ) THEN
336: p_x_route_efct_rec.inventory_item_id := NULL;
337: p_x_route_efct_rec.inventory_master_org_id := NULL;
338: ELSIF ( p_x_route_efct_rec.item_number = FND_API.G_MISS_CHAR OR p_x_route_efct_rec.ORGANIZATION_CODE = FND_API.G_MISS_CHAR ) THEN
339: p_x_route_efct_rec.inventory_item_id := FND_API.G_MISS_NUM;
340: p_x_route_efct_rec.inventory_master_org_id := FND_API.G_MISS_NUM;
341: END IF;
342:
335: IF ( p_x_route_efct_rec.item_number IS NULL OR p_x_route_efct_rec.ORGANIZATION_CODE IS NULL ) THEN
336: p_x_route_efct_rec.inventory_item_id := NULL;
337: p_x_route_efct_rec.inventory_master_org_id := NULL;
338: ELSIF ( p_x_route_efct_rec.item_number = FND_API.G_MISS_CHAR OR p_x_route_efct_rec.ORGANIZATION_CODE = FND_API.G_MISS_CHAR ) THEN
339: p_x_route_efct_rec.inventory_item_id := FND_API.G_MISS_NUM;
340: p_x_route_efct_rec.inventory_master_org_id := FND_API.G_MISS_NUM;
341: END IF;
342:
343:
336: p_x_route_efct_rec.inventory_item_id := NULL;
337: p_x_route_efct_rec.inventory_master_org_id := NULL;
338: ELSIF ( p_x_route_efct_rec.item_number = FND_API.G_MISS_CHAR OR p_x_route_efct_rec.ORGANIZATION_CODE = FND_API.G_MISS_CHAR ) THEN
339: p_x_route_efct_rec.inventory_item_id := FND_API.G_MISS_NUM;
340: p_x_route_efct_rec.inventory_master_org_id := FND_API.G_MISS_NUM;
341: END IF;
342:
343:
344: END clear_efct_attribute_ids;
388: l_msg_data VARCHAR2(2000);
389: l_item_comp_detail_id NUMBER;
390:
391: BEGIN
392: x_return_status := FND_API.G_RET_STS_SUCCESS;
393:
394: -- Convert / Validate Item Composition
395: IF ( p_association_type = 'DISPOSITION' AND
396: p_x_material_req_rec.item_comp_detail_id IS NOT NULL AND
393:
394: -- Convert / Validate Item Composition
395: IF ( p_association_type = 'DISPOSITION' AND
396: p_x_material_req_rec.item_comp_detail_id IS NOT NULL AND
397: p_x_material_req_rec.item_comp_detail_id <> FND_API.G_MISS_NUM ) THEN
398:
399: AHL_RM_ROUTE_UTIL.validate_item_comp
400: (
401: x_return_status => l_return_status,
403: p_x_item_comp_detail_id => p_x_material_req_rec.item_comp_detail_id
404: );
405:
406:
407: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
408: FND_MESSAGE.set_name( 'AHL', l_msg_data );
409: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_material_req_rec.item_comp_detail_id ) );
410: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_rec ) );
411: FND_MSG_PUB.add;
416:
417: -- Convert / Validate Position path
418: IF ( p_association_type = 'DISPOSITION' AND
419: ( p_x_material_req_rec.position_path_id IS NOT NULL AND
420: p_x_material_req_rec.position_path_id <> FND_API.G_MISS_NUM ) OR
421: ( p_x_material_req_rec.position_path IS NOT NULL AND
422: p_x_material_req_rec.position_path <> FND_API.G_MISS_CHAR ) ) THEN
423:
424: AHL_RM_ROUTE_UTIL.validate_position_path
418: IF ( p_association_type = 'DISPOSITION' AND
419: ( p_x_material_req_rec.position_path_id IS NOT NULL AND
420: p_x_material_req_rec.position_path_id <> FND_API.G_MISS_NUM ) OR
421: ( p_x_material_req_rec.position_path IS NOT NULL AND
422: p_x_material_req_rec.position_path <> FND_API.G_MISS_CHAR ) ) THEN
423:
424: AHL_RM_ROUTE_UTIL.validate_position_path
425: (
426: x_return_status => l_return_status,
428: p_position_path => p_x_material_req_rec.position_path,
429: p_x_position_path_id => p_x_material_req_rec.position_path_id
430: );
431:
432: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
433: FND_MESSAGE.set_name( 'AHL', l_msg_data );
434:
435: IF ( p_x_material_req_rec.position_path IS NULL OR
436: p_x_material_req_rec.position_path = FND_API.G_MISS_CHAR ) THEN
432: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
433: FND_MESSAGE.set_name( 'AHL', l_msg_data );
434:
435: IF ( p_x_material_req_rec.position_path IS NULL OR
436: p_x_material_req_rec.position_path = FND_API.G_MISS_CHAR ) THEN
437: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_material_req_rec.position_path_id ) );
438: ELSE
439: FND_MESSAGE.set_token( 'FIELD', p_x_material_req_rec.position_path );
440: END IF;
447: END IF;
448:
449: -- Convert / Validate Item Group
450: IF ( ( p_x_material_req_rec.item_group_id IS NOT NULL AND
451: p_x_material_req_rec.item_group_id <> FND_API.G_MISS_NUM ) OR
452: ( p_x_material_req_rec.item_group_name IS NOT NULL AND
453: p_x_material_req_rec.item_group_name <> FND_API.G_MISS_CHAR ) ) THEN
454:
455:
449: -- Convert / Validate Item Group
450: IF ( ( p_x_material_req_rec.item_group_id IS NOT NULL AND
451: p_x_material_req_rec.item_group_id <> FND_API.G_MISS_NUM ) OR
452: ( p_x_material_req_rec.item_group_name IS NOT NULL AND
453: p_x_material_req_rec.item_group_name <> FND_API.G_MISS_CHAR ) ) THEN
454:
455:
456: AHL_RM_ROUTE_UTIL.validate_item_group
457: (
461: p_item_group_name => p_x_material_req_rec.item_group_name,
462: p_x_item_group_id => p_x_material_req_rec.item_group_id
463: );
464:
465: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
466: FND_MESSAGE.set_name( 'AHL', l_msg_data );
467:
468: IF ( p_x_material_req_rec.item_group_name IS NULL OR
469: p_x_material_req_rec.item_group_name = FND_API.G_MISS_CHAR ) THEN
465: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
466: FND_MESSAGE.set_name( 'AHL', l_msg_data );
467:
468: IF ( p_x_material_req_rec.item_group_name IS NULL OR
469: p_x_material_req_rec.item_group_name = FND_API.G_MISS_CHAR ) THEN
470: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_material_req_rec.item_group_id ) );
471: ELSE
472: FND_MESSAGE.set_token( 'FIELD', p_x_material_req_rec.item_group_name );
473: END IF;
482: IF p_x_material_req_rec.COMP_MATERIAL_FLAG = 'Y' OR p_x_material_req_rec.COMP_MATERIAL_FLAG = 'y'
483: THEN
484: -- Find if it a MC-Route Association or Item-Route Association
485: IF ( p_x_material_req_rec.position_path_id IS NULL OR
486: p_x_material_req_rec.position_path_id = FND_API.G_MISS_NUM ) AND
487: ( p_x_material_req_rec.item_comp_detail_id IS NULL OR
488: p_x_material_req_rec.item_comp_detail_id = FND_API.G_MISS_NUM )
489: THEN
490: OPEN get_item_comp_detail_id(p_object_id,
484: -- Find if it a MC-Route Association or Item-Route Association
485: IF ( p_x_material_req_rec.position_path_id IS NULL OR
486: p_x_material_req_rec.position_path_id = FND_API.G_MISS_NUM ) AND
487: ( p_x_material_req_rec.item_comp_detail_id IS NULL OR
488: p_x_material_req_rec.item_comp_detail_id = FND_API.G_MISS_NUM )
489: THEN
490: OPEN get_item_comp_detail_id(p_object_id,
491: p_x_material_req_rec.item_group_id);
492: FETCH get_item_comp_detail_id INTO l_item_comp_detail_id;
498: ELSE
499: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INV_ITEM_COMP_MAT' );
500: FND_MESSAGE.set_token( 'FIELD',p_x_material_req_rec.item_group_name);
501: FND_MSG_PUB.add;
502: x_return_status := FND_API.G_RET_STS_ERROR;
503: END IF; -- l_item_comp_detail_id is null
504: END IF; -- which association if
505: END IF;-- comp_material_flag check if
506:
508:
509: -- Convert / Validate Item
510:
511: IF ( ( p_x_material_req_rec.inventory_item_id IS NOT NULL AND
512: p_x_material_req_rec.inventory_item_id <> FND_API.G_MISS_NUM AND
513: p_x_material_req_rec.inventory_org_id IS NOT NULL AND
514: p_x_material_req_rec.inventory_org_id <> FND_API.G_MISS_NUM ) OR
515: ( p_x_material_req_rec.item_number IS NOT NULL AND
516: p_x_material_req_rec.item_number <> FND_API.G_MISS_CHAR ) ) THEN
510:
511: IF ( ( p_x_material_req_rec.inventory_item_id IS NOT NULL AND
512: p_x_material_req_rec.inventory_item_id <> FND_API.G_MISS_NUM AND
513: p_x_material_req_rec.inventory_org_id IS NOT NULL AND
514: p_x_material_req_rec.inventory_org_id <> FND_API.G_MISS_NUM ) OR
515: ( p_x_material_req_rec.item_number IS NOT NULL AND
516: p_x_material_req_rec.item_number <> FND_API.G_MISS_CHAR ) ) THEN
517: IF ( p_association_type <> 'DISPOSITION' )
518: THEN
512: p_x_material_req_rec.inventory_item_id <> FND_API.G_MISS_NUM AND
513: p_x_material_req_rec.inventory_org_id IS NOT NULL AND
514: p_x_material_req_rec.inventory_org_id <> FND_API.G_MISS_NUM ) OR
515: ( p_x_material_req_rec.item_number IS NOT NULL AND
516: p_x_material_req_rec.item_number <> FND_API.G_MISS_CHAR ) ) THEN
517: IF ( p_association_type <> 'DISPOSITION' )
518: THEN
519: AHL_RM_ROUTE_UTIL.validate_item
520: (
534: p_x_inventory_org_id => p_x_material_req_rec.inventory_org_id
535: );
536: END IF;
537:
538: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
539: IF ( l_msg_data = 'AHL_COM_INVALID_ITEM' ) THEN
540: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_ITEM' );
541: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_ITEMS' ) THEN
542: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_ITEMS' );
546: FND_MESSAGE.set_name( 'AHL', l_msg_data );
547: END IF;
548:
549: IF ( p_x_material_req_rec.item_number IS NULL OR
550: p_x_material_req_rec.item_number = FND_API.G_MISS_CHAR ) THEN
551: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_material_req_rec.inventory_item_id ) || '-' || TO_CHAR( p_x_material_req_rec.inventory_org_id ) );
552: ELSE
553: FND_MESSAGE.set_token( 'FIELD', p_x_material_req_rec.item_number );
554: END IF;
561: END IF;
562:
563: -- Convert / Validate UOM
564: IF ( ( p_x_material_req_rec.uom_code IS NOT NULL AND
565: p_x_material_req_rec.uom_code <> FND_API.G_MISS_CHAR ) OR
566: ( p_x_material_req_rec.uom IS NOT NULL AND
567: p_x_material_req_rec.uom <> FND_API.G_MISS_CHAR ) )
568: THEN
569: AHL_RM_ROUTE_UTIL.validate_uom
563: -- Convert / Validate UOM
564: IF ( ( p_x_material_req_rec.uom_code IS NOT NULL AND
565: p_x_material_req_rec.uom_code <> FND_API.G_MISS_CHAR ) OR
566: ( p_x_material_req_rec.uom IS NOT NULL AND
567: p_x_material_req_rec.uom <> FND_API.G_MISS_CHAR ) )
568: THEN
569: AHL_RM_ROUTE_UTIL.validate_uom
570: (
571: x_return_status => l_return_status,
573: p_uom => p_x_material_req_rec.uom,
574: p_x_uom_code => p_x_material_req_rec.uom_code
575: );
576:
577: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
578: FND_MESSAGE.set_name( 'AHL', l_msg_data );
579:
580: IF ( p_x_material_req_rec.uom IS NULL OR
581: p_x_material_req_rec.uom = FND_API.G_MISS_CHAR ) THEN
577: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
578: FND_MESSAGE.set_name( 'AHL', l_msg_data );
579:
580: IF ( p_x_material_req_rec.uom IS NULL OR
581: p_x_material_req_rec.uom = FND_API.G_MISS_CHAR ) THEN
582: FND_MESSAGE.set_token( 'FIELD', p_x_material_req_rec.uom_code );
583: ELSE
584: FND_MESSAGE.set_token( 'FIELD', p_x_material_req_rec.uom );
585: END IF;
605: l_return_status VARCHAR2(1);
606: l_msg_data VARCHAR2(2000);
607:
608: BEGIN
609: x_return_status := FND_API.G_RET_STS_SUCCESS;
610:
611: -- Convert / Validate MC
612: IF ( ( p_x_route_efct_rec.MC_ID IS NOT NULL AND
613: p_x_route_efct_rec.MC_ID <> FND_API.G_MISS_NUM ) OR
609: x_return_status := FND_API.G_RET_STS_SUCCESS;
610:
611: -- Convert / Validate MC
612: IF ( ( p_x_route_efct_rec.MC_ID IS NOT NULL AND
613: p_x_route_efct_rec.MC_ID <> FND_API.G_MISS_NUM ) OR
614: ( p_x_route_efct_rec.MC_NAME IS NOT NULL AND
615: p_x_route_efct_rec.MC_NAME <> FND_API.G_MISS_CHAR ) ) THEN
616:
617: AHL_RM_ROUTE_UTIL.validate_master_configuration
611: -- Convert / Validate MC
612: IF ( ( p_x_route_efct_rec.MC_ID IS NOT NULL AND
613: p_x_route_efct_rec.MC_ID <> FND_API.G_MISS_NUM ) OR
614: ( p_x_route_efct_rec.MC_NAME IS NOT NULL AND
615: p_x_route_efct_rec.MC_NAME <> FND_API.G_MISS_CHAR ) ) THEN
616:
617: AHL_RM_ROUTE_UTIL.validate_master_configuration
618: (
619: x_return_status => l_return_status,
623: p_mc_revision_number => p_x_route_efct_rec.MC_REVISION,
624: p_x_mc_header_id => p_x_route_efct_rec.MC_HEADER_ID
625: );
626:
627: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
628: FND_MESSAGE.set_name( 'AHL', l_msg_data );
629:
630: IF ( p_x_route_efct_rec.MC_NAME IS NULL OR
631: p_x_route_efct_rec.MC_NAME = FND_API.G_MISS_CHAR ) THEN
627: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
628: FND_MESSAGE.set_name( 'AHL', l_msg_data );
629:
630: IF ( p_x_route_efct_rec.MC_NAME IS NULL OR
631: p_x_route_efct_rec.MC_NAME = FND_API.G_MISS_CHAR ) THEN
632: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_route_efct_rec.MC_HEADER_ID ) );
633: ELSE
634: FND_MESSAGE.set_token( 'FIELD', p_x_route_efct_rec.MC_NAME );
635: END IF;
642: END IF;
643:
644: -- Convert / Validate Item
645: IF ( ( p_x_route_efct_rec.inventory_item_id IS NOT NULL AND
646: p_x_route_efct_rec.inventory_item_id <> FND_API.G_MISS_NUM AND
647: p_x_route_efct_rec.inventory_master_org_id IS NOT NULL AND
648: p_x_route_efct_rec.inventory_master_org_id <> FND_API.G_MISS_NUM ) OR
649: ( (p_x_route_efct_rec.ORGANIZATION_CODE IS NOT NULL AND p_x_route_efct_rec.ORGANIZATION_CODE <> FND_API.G_MISS_CHAR )
650: AND(p_x_route_efct_rec.item_number IS NOT NULL AND p_x_route_efct_rec.item_number <> FND_API.G_MISS_CHAR )
644: -- Convert / Validate Item
645: IF ( ( p_x_route_efct_rec.inventory_item_id IS NOT NULL AND
646: p_x_route_efct_rec.inventory_item_id <> FND_API.G_MISS_NUM AND
647: p_x_route_efct_rec.inventory_master_org_id IS NOT NULL AND
648: p_x_route_efct_rec.inventory_master_org_id <> FND_API.G_MISS_NUM ) OR
649: ( (p_x_route_efct_rec.ORGANIZATION_CODE IS NOT NULL AND p_x_route_efct_rec.ORGANIZATION_CODE <> FND_API.G_MISS_CHAR )
650: AND(p_x_route_efct_rec.item_number IS NOT NULL AND p_x_route_efct_rec.item_number <> FND_API.G_MISS_CHAR )
651: )
652: )THEN
645: IF ( ( p_x_route_efct_rec.inventory_item_id IS NOT NULL AND
646: p_x_route_efct_rec.inventory_item_id <> FND_API.G_MISS_NUM AND
647: p_x_route_efct_rec.inventory_master_org_id IS NOT NULL AND
648: p_x_route_efct_rec.inventory_master_org_id <> FND_API.G_MISS_NUM ) OR
649: ( (p_x_route_efct_rec.ORGANIZATION_CODE IS NOT NULL AND p_x_route_efct_rec.ORGANIZATION_CODE <> FND_API.G_MISS_CHAR )
650: AND(p_x_route_efct_rec.item_number IS NOT NULL AND p_x_route_efct_rec.item_number <> FND_API.G_MISS_CHAR )
651: )
652: )THEN
653:
646: p_x_route_efct_rec.inventory_item_id <> FND_API.G_MISS_NUM AND
647: p_x_route_efct_rec.inventory_master_org_id IS NOT NULL AND
648: p_x_route_efct_rec.inventory_master_org_id <> FND_API.G_MISS_NUM ) OR
649: ( (p_x_route_efct_rec.ORGANIZATION_CODE IS NOT NULL AND p_x_route_efct_rec.ORGANIZATION_CODE <> FND_API.G_MISS_CHAR )
650: AND(p_x_route_efct_rec.item_number IS NOT NULL AND p_x_route_efct_rec.item_number <> FND_API.G_MISS_CHAR )
651: )
652: )THEN
653:
654: AHL_RM_ROUTE_UTIL.validate_effectivity_item
660: p_x_inventory_item_id => p_x_route_efct_rec.inventory_item_id,
661: p_x_inventory_org_id => p_x_route_efct_rec.inventory_master_org_id
662: );
663:
664: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
665: IF ( l_msg_data = 'AHL_COM_INVALID_ITEM' ) THEN
666: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_ITEM' );
667: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_ITEMS' ) THEN
668: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_ITEMS' );
672: FND_MESSAGE.set_name( 'AHL', l_msg_data );
673: END IF;
674:
675: IF ( p_x_route_efct_rec.item_number IS NULL OR
676: p_x_route_efct_rec.item_number = FND_API.G_MISS_CHAR ) THEN
677: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_route_efct_rec.inventory_item_id ) || '-' || TO_CHAR( p_x_route_efct_rec.inventory_master_org_id ) );
678: ELSE
679: FND_MESSAGE.set_token( 'FIELD', p_x_route_efct_rec.item_number );
680: END IF;
699: BEGIN
700:
701: -- Convert G_MISS values to NULL
702:
703: IF ( p_x_material_req_rec.item_comp_detail_id = FND_API.G_MISS_NUM ) THEN
704: p_x_material_req_rec.item_comp_detail_id := null;
705: END IF;
706:
707: IF ( p_x_material_req_rec.position_path_id = FND_API.G_MISS_NUM ) THEN
703: IF ( p_x_material_req_rec.item_comp_detail_id = FND_API.G_MISS_NUM ) THEN
704: p_x_material_req_rec.item_comp_detail_id := null;
705: END IF;
706:
707: IF ( p_x_material_req_rec.position_path_id = FND_API.G_MISS_NUM ) THEN
708: p_x_material_req_rec.position_path_id := null;
709: END IF;
710:
711: IF ( p_x_material_req_rec.position_path = FND_API.G_MISS_CHAR ) THEN
707: IF ( p_x_material_req_rec.position_path_id = FND_API.G_MISS_NUM ) THEN
708: p_x_material_req_rec.position_path_id := null;
709: END IF;
710:
711: IF ( p_x_material_req_rec.position_path = FND_API.G_MISS_CHAR ) THEN
712: p_x_material_req_rec.position_path := null;
713: END IF;
714:
715: IF ( p_x_material_req_rec.item_group_id = FND_API.G_MISS_NUM ) THEN
711: IF ( p_x_material_req_rec.position_path = FND_API.G_MISS_CHAR ) THEN
712: p_x_material_req_rec.position_path := null;
713: END IF;
714:
715: IF ( p_x_material_req_rec.item_group_id = FND_API.G_MISS_NUM ) THEN
716: p_x_material_req_rec.item_group_id := null;
717: END IF;
718:
719: IF ( p_x_material_req_rec.item_group_name = FND_API.G_MISS_CHAR ) THEN
715: IF ( p_x_material_req_rec.item_group_id = FND_API.G_MISS_NUM ) THEN
716: p_x_material_req_rec.item_group_id := null;
717: END IF;
718:
719: IF ( p_x_material_req_rec.item_group_name = FND_API.G_MISS_CHAR ) THEN
720: p_x_material_req_rec.item_group_name := null;
721: END IF;
722:
723: IF ( p_x_material_req_rec.inventory_item_id = FND_API.G_MISS_NUM ) THEN
719: IF ( p_x_material_req_rec.item_group_name = FND_API.G_MISS_CHAR ) THEN
720: p_x_material_req_rec.item_group_name := null;
721: END IF;
722:
723: IF ( p_x_material_req_rec.inventory_item_id = FND_API.G_MISS_NUM ) THEN
724: p_x_material_req_rec.inventory_item_id := null;
725: END IF;
726:
727: IF ( p_x_material_req_rec.inventory_org_id = FND_API.G_MISS_NUM ) THEN
723: IF ( p_x_material_req_rec.inventory_item_id = FND_API.G_MISS_NUM ) THEN
724: p_x_material_req_rec.inventory_item_id := null;
725: END IF;
726:
727: IF ( p_x_material_req_rec.inventory_org_id = FND_API.G_MISS_NUM ) THEN
728: p_x_material_req_rec.inventory_org_id := null;
729: END IF;
730:
731: IF ( p_x_material_req_rec.item_number = FND_API.G_MISS_CHAR ) THEN
727: IF ( p_x_material_req_rec.inventory_org_id = FND_API.G_MISS_NUM ) THEN
728: p_x_material_req_rec.inventory_org_id := null;
729: END IF;
730:
731: IF ( p_x_material_req_rec.item_number = FND_API.G_MISS_CHAR ) THEN
732: p_x_material_req_rec.item_number := null;
733: END IF;
734:
735: IF ( p_x_material_req_rec.uom_code = FND_API.G_MISS_CHAR ) THEN
731: IF ( p_x_material_req_rec.item_number = FND_API.G_MISS_CHAR ) THEN
732: p_x_material_req_rec.item_number := null;
733: END IF;
734:
735: IF ( p_x_material_req_rec.uom_code = FND_API.G_MISS_CHAR ) THEN
736: p_x_material_req_rec.uom_code := null;
737: END IF;
738:
739: IF ( p_x_material_req_rec.uom = FND_API.G_MISS_CHAR ) THEN
735: IF ( p_x_material_req_rec.uom_code = FND_API.G_MISS_CHAR ) THEN
736: p_x_material_req_rec.uom_code := null;
737: END IF;
738:
739: IF ( p_x_material_req_rec.uom = FND_API.G_MISS_CHAR ) THEN
740: p_x_material_req_rec.uom := null;
741: END IF;
742:
743: IF ( p_x_material_req_rec.quantity = FND_API.G_MISS_NUM ) THEN
739: IF ( p_x_material_req_rec.uom = FND_API.G_MISS_CHAR ) THEN
740: p_x_material_req_rec.uom := null;
741: END IF;
742:
743: IF ( p_x_material_req_rec.quantity = FND_API.G_MISS_NUM ) THEN
744: p_x_material_req_rec.quantity := null;
745: END IF;
746:
747: IF ( p_x_material_req_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
743: IF ( p_x_material_req_rec.quantity = FND_API.G_MISS_NUM ) THEN
744: p_x_material_req_rec.quantity := null;
745: END IF;
746:
747: IF ( p_x_material_req_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
748: p_x_material_req_rec.attribute_category := null;
749: END IF;
750:
751: IF ( p_x_material_req_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
747: IF ( p_x_material_req_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
748: p_x_material_req_rec.attribute_category := null;
749: END IF;
750:
751: IF ( p_x_material_req_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
752: p_x_material_req_rec.attribute1 := null;
753: END IF;
754:
755: IF ( p_x_material_req_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
751: IF ( p_x_material_req_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
752: p_x_material_req_rec.attribute1 := null;
753: END IF;
754:
755: IF ( p_x_material_req_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
756: p_x_material_req_rec.attribute2 := null;
757: END IF;
758:
759: IF ( p_x_material_req_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
755: IF ( p_x_material_req_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
756: p_x_material_req_rec.attribute2 := null;
757: END IF;
758:
759: IF ( p_x_material_req_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
760: p_x_material_req_rec.attribute3 := null;
761: END IF;
762:
763: IF ( p_x_material_req_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
759: IF ( p_x_material_req_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
760: p_x_material_req_rec.attribute3 := null;
761: END IF;
762:
763: IF ( p_x_material_req_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
764: p_x_material_req_rec.attribute4 := null;
765: END IF;
766:
767: IF ( p_x_material_req_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
763: IF ( p_x_material_req_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
764: p_x_material_req_rec.attribute4 := null;
765: END IF;
766:
767: IF ( p_x_material_req_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
768: p_x_material_req_rec.attribute5 := null;
769: END IF;
770:
771: IF ( p_x_material_req_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
767: IF ( p_x_material_req_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
768: p_x_material_req_rec.attribute5 := null;
769: END IF;
770:
771: IF ( p_x_material_req_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
772: p_x_material_req_rec.attribute6 := null;
773: END IF;
774:
775: IF ( p_x_material_req_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
771: IF ( p_x_material_req_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
772: p_x_material_req_rec.attribute6 := null;
773: END IF;
774:
775: IF ( p_x_material_req_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
776: p_x_material_req_rec.attribute7 := null;
777: END IF;
778:
779: IF ( p_x_material_req_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
775: IF ( p_x_material_req_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
776: p_x_material_req_rec.attribute7 := null;
777: END IF;
778:
779: IF ( p_x_material_req_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
780: p_x_material_req_rec.attribute8 := null;
781: END IF;
782:
783: IF ( p_x_material_req_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
779: IF ( p_x_material_req_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
780: p_x_material_req_rec.attribute8 := null;
781: END IF;
782:
783: IF ( p_x_material_req_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
784: p_x_material_req_rec.attribute9 := null;
785: END IF;
786:
787: IF ( p_x_material_req_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
783: IF ( p_x_material_req_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
784: p_x_material_req_rec.attribute9 := null;
785: END IF;
786:
787: IF ( p_x_material_req_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
788: p_x_material_req_rec.attribute10 := null;
789: END IF;
790:
791: IF ( p_x_material_req_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
787: IF ( p_x_material_req_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
788: p_x_material_req_rec.attribute10 := null;
789: END IF;
790:
791: IF ( p_x_material_req_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
792: p_x_material_req_rec.attribute11 := null;
793: END IF;
794:
795: IF ( p_x_material_req_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
791: IF ( p_x_material_req_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
792: p_x_material_req_rec.attribute11 := null;
793: END IF;
794:
795: IF ( p_x_material_req_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
796: p_x_material_req_rec.attribute12 := null;
797: END IF;
798:
799: IF ( p_x_material_req_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
795: IF ( p_x_material_req_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
796: p_x_material_req_rec.attribute12 := null;
797: END IF;
798:
799: IF ( p_x_material_req_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
800: p_x_material_req_rec.attribute13 := null;
801: END IF;
802:
803: IF ( p_x_material_req_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
799: IF ( p_x_material_req_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
800: p_x_material_req_rec.attribute13 := null;
801: END IF;
802:
803: IF ( p_x_material_req_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
804: p_x_material_req_rec.attribute14 := null;
805: END IF;
806:
807: IF ( p_x_material_req_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
803: IF ( p_x_material_req_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
804: p_x_material_req_rec.attribute14 := null;
805: END IF;
806:
807: IF ( p_x_material_req_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
808: p_x_material_req_rec.attribute15 := null;
809: END IF;
810:
811: IF ( p_x_material_req_rec.replace_percent = FND_API.G_MISS_NUM ) THEN
807: IF ( p_x_material_req_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
808: p_x_material_req_rec.attribute15 := null;
809: END IF;
810:
811: IF ( p_x_material_req_rec.replace_percent = FND_API.G_MISS_NUM ) THEN
812: p_x_material_req_rec.replace_percent := null;
813: END IF;
814:
815: IF ( p_x_material_req_rec.rework_percent = FND_API.G_MISS_NUM ) THEN
811: IF ( p_x_material_req_rec.replace_percent = FND_API.G_MISS_NUM ) THEN
812: p_x_material_req_rec.replace_percent := null;
813: END IF;
814:
815: IF ( p_x_material_req_rec.rework_percent = FND_API.G_MISS_NUM ) THEN
816: p_x_material_req_rec.rework_percent := null;
817: END IF;
818:
819: IF ( p_x_material_req_rec.exclude_flag = FND_API.G_MISS_CHAR ) THEN
815: IF ( p_x_material_req_rec.rework_percent = FND_API.G_MISS_NUM ) THEN
816: p_x_material_req_rec.rework_percent := null;
817: END IF;
818:
819: IF ( p_x_material_req_rec.exclude_flag = FND_API.G_MISS_CHAR ) THEN
820: p_x_material_req_rec.exclude_flag := null;
821: END IF;
822:
823: --pdoki added for OGMA 105 issue
820: p_x_material_req_rec.exclude_flag := null;
821: END IF;
822:
823: --pdoki added for OGMA 105 issue
824: IF ( p_x_material_req_rec.in_service = FND_API.G_MISS_CHAR ) THEN
825: p_x_material_req_rec.in_service := null;
826: END IF;
827:
828: END default_missing_attributes;
837:
838: BEGIN
839:
840: -- Convert G_MISS values to NULL
841: IF ( p_x_route_efct_rec.mc_id = FND_API.G_MISS_NUM ) THEN
842: p_x_route_efct_rec.mc_id := null;
843: END IF;
844:
845: IF ( p_x_route_efct_rec.mc_header_id = FND_API.G_MISS_NUM ) THEN
841: IF ( p_x_route_efct_rec.mc_id = FND_API.G_MISS_NUM ) THEN
842: p_x_route_efct_rec.mc_id := null;
843: END IF;
844:
845: IF ( p_x_route_efct_rec.mc_header_id = FND_API.G_MISS_NUM ) THEN
846: p_x_route_efct_rec.mc_header_id := null;
847: END IF;
848:
849: IF ( p_x_route_efct_rec.mc_name = FND_API.G_MISS_CHAR ) THEN
845: IF ( p_x_route_efct_rec.mc_header_id = FND_API.G_MISS_NUM ) THEN
846: p_x_route_efct_rec.mc_header_id := null;
847: END IF;
848:
849: IF ( p_x_route_efct_rec.mc_name = FND_API.G_MISS_CHAR ) THEN
850: p_x_route_efct_rec.mc_name := null;
851: END IF;
852:
853: IF ( p_x_route_efct_rec.inventory_item_id = FND_API.G_MISS_NUM ) THEN
849: IF ( p_x_route_efct_rec.mc_name = FND_API.G_MISS_CHAR ) THEN
850: p_x_route_efct_rec.mc_name := null;
851: END IF;
852:
853: IF ( p_x_route_efct_rec.inventory_item_id = FND_API.G_MISS_NUM ) THEN
854: p_x_route_efct_rec.inventory_item_id := null;
855: END IF;
856:
857: IF ( p_x_route_efct_rec.inventory_master_org_id = FND_API.G_MISS_NUM ) THEN
853: IF ( p_x_route_efct_rec.inventory_item_id = FND_API.G_MISS_NUM ) THEN
854: p_x_route_efct_rec.inventory_item_id := null;
855: END IF;
856:
857: IF ( p_x_route_efct_rec.inventory_master_org_id = FND_API.G_MISS_NUM ) THEN
858: p_x_route_efct_rec.inventory_master_org_id := null;
859: END IF;
860:
861: IF ( p_x_route_efct_rec.item_number = FND_API.G_MISS_CHAR ) THEN
857: IF ( p_x_route_efct_rec.inventory_master_org_id = FND_API.G_MISS_NUM ) THEN
858: p_x_route_efct_rec.inventory_master_org_id := null;
859: END IF;
860:
861: IF ( p_x_route_efct_rec.item_number = FND_API.G_MISS_CHAR ) THEN
862: p_x_route_efct_rec.item_number := null;
863: END IF;
864:
865: IF ( p_x_route_efct_rec.ORGANIZATION_CODE = FND_API.G_MISS_CHAR ) THEN
861: IF ( p_x_route_efct_rec.item_number = FND_API.G_MISS_CHAR ) THEN
862: p_x_route_efct_rec.item_number := null;
863: END IF;
864:
865: IF ( p_x_route_efct_rec.ORGANIZATION_CODE = FND_API.G_MISS_CHAR ) THEN
866: p_x_route_efct_rec.ORGANIZATION_CODE := null;
867: END IF;
868:
869: IF ( p_x_route_efct_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
865: IF ( p_x_route_efct_rec.ORGANIZATION_CODE = FND_API.G_MISS_CHAR ) THEN
866: p_x_route_efct_rec.ORGANIZATION_CODE := null;
867: END IF;
868:
869: IF ( p_x_route_efct_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
870: p_x_route_efct_rec.attribute_category := null;
871: END IF;
872:
873: IF ( p_x_route_efct_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
869: IF ( p_x_route_efct_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
870: p_x_route_efct_rec.attribute_category := null;
871: END IF;
872:
873: IF ( p_x_route_efct_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
874: p_x_route_efct_rec.attribute1 := null;
875: END IF;
876:
877: IF ( p_x_route_efct_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
873: IF ( p_x_route_efct_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
874: p_x_route_efct_rec.attribute1 := null;
875: END IF;
876:
877: IF ( p_x_route_efct_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
878: p_x_route_efct_rec.attribute2 := null;
879: END IF;
880:
881: IF ( p_x_route_efct_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
877: IF ( p_x_route_efct_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
878: p_x_route_efct_rec.attribute2 := null;
879: END IF;
880:
881: IF ( p_x_route_efct_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
882: p_x_route_efct_rec.attribute3 := null;
883: END IF;
884:
885: IF ( p_x_route_efct_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
881: IF ( p_x_route_efct_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
882: p_x_route_efct_rec.attribute3 := null;
883: END IF;
884:
885: IF ( p_x_route_efct_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
886: p_x_route_efct_rec.attribute4 := null;
887: END IF;
888:
889: IF ( p_x_route_efct_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
885: IF ( p_x_route_efct_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
886: p_x_route_efct_rec.attribute4 := null;
887: END IF;
888:
889: IF ( p_x_route_efct_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
890: p_x_route_efct_rec.attribute5 := null;
891: END IF;
892:
893: IF ( p_x_route_efct_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
889: IF ( p_x_route_efct_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
890: p_x_route_efct_rec.attribute5 := null;
891: END IF;
892:
893: IF ( p_x_route_efct_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
894: p_x_route_efct_rec.attribute6 := null;
895: END IF;
896:
897: IF ( p_x_route_efct_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
893: IF ( p_x_route_efct_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
894: p_x_route_efct_rec.attribute6 := null;
895: END IF;
896:
897: IF ( p_x_route_efct_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
898: p_x_route_efct_rec.attribute7 := null;
899: END IF;
900:
901: IF ( p_x_route_efct_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
897: IF ( p_x_route_efct_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
898: p_x_route_efct_rec.attribute7 := null;
899: END IF;
900:
901: IF ( p_x_route_efct_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
902: p_x_route_efct_rec.attribute8 := null;
903: END IF;
904:
905: IF ( p_x_route_efct_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
901: IF ( p_x_route_efct_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
902: p_x_route_efct_rec.attribute8 := null;
903: END IF;
904:
905: IF ( p_x_route_efct_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
906: p_x_route_efct_rec.attribute9 := null;
907: END IF;
908:
909: IF ( p_x_route_efct_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
905: IF ( p_x_route_efct_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
906: p_x_route_efct_rec.attribute9 := null;
907: END IF;
908:
909: IF ( p_x_route_efct_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
910: p_x_route_efct_rec.attribute10 := null;
911: END IF;
912:
913: IF ( p_x_route_efct_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
909: IF ( p_x_route_efct_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
910: p_x_route_efct_rec.attribute10 := null;
911: END IF;
912:
913: IF ( p_x_route_efct_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
914: p_x_route_efct_rec.attribute11 := null;
915: END IF;
916:
917: IF ( p_x_route_efct_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
913: IF ( p_x_route_efct_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
914: p_x_route_efct_rec.attribute11 := null;
915: END IF;
916:
917: IF ( p_x_route_efct_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
918: p_x_route_efct_rec.attribute12 := null;
919: END IF;
920:
921: IF ( p_x_route_efct_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
917: IF ( p_x_route_efct_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
918: p_x_route_efct_rec.attribute12 := null;
919: END IF;
920:
921: IF ( p_x_route_efct_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
922: p_x_route_efct_rec.attribute13 := null;
923: END IF;
924:
925: IF ( p_x_route_efct_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
921: IF ( p_x_route_efct_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
922: p_x_route_efct_rec.attribute13 := null;
923: END IF;
924:
925: IF ( p_x_route_efct_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
926: p_x_route_efct_rec.attribute14 := null;
927: END IF;
928:
929: IF ( p_x_route_efct_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
925: IF ( p_x_route_efct_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
926: p_x_route_efct_rec.attribute14 := null;
927: END IF;
928:
929: IF ( p_x_route_efct_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
930: p_x_route_efct_rec.attribute15 := null;
931: END IF;
932:
933: END default_efct_miss_attributes;
1021: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_MTL_REC' );
1022: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_rec ) );
1023: FND_MSG_PUB.add;
1024: CLOSE get_old_rec;
1025: RAISE FND_API.G_EXC_ERROR;
1026: END IF;
1027:
1028: CLOSE get_old_rec;
1029:
1028: CLOSE get_old_rec;
1029:
1030: -- Convert G_MISS values to NULL and NULL values to Old values
1031:
1032: IF ( p_x_material_req_rec.item_comp_detail_id = FND_API.G_MISS_NUM ) THEN
1033: p_x_material_req_rec.item_comp_detail_id := null;
1034: ELSIF ( p_x_material_req_rec.item_comp_detail_id IS NULL ) THEN
1035: p_x_material_req_rec.item_comp_detail_id := l_old_material_req_rec.item_comp_detail_id;
1036: END IF;
1034: ELSIF ( p_x_material_req_rec.item_comp_detail_id IS NULL ) THEN
1035: p_x_material_req_rec.item_comp_detail_id := l_old_material_req_rec.item_comp_detail_id;
1036: END IF;
1037:
1038: IF ( p_x_material_req_rec.position_path_id = FND_API.G_MISS_NUM ) THEN
1039: p_x_material_req_rec.position_path_id := null;
1040: ELSIF ( p_x_material_req_rec.position_path_id IS NULL ) THEN
1041: p_x_material_req_rec.position_path_id := l_old_material_req_rec.position_path_id;
1042: END IF;
1040: ELSIF ( p_x_material_req_rec.position_path_id IS NULL ) THEN
1041: p_x_material_req_rec.position_path_id := l_old_material_req_rec.position_path_id;
1042: END IF;
1043:
1044: IF ( p_x_material_req_rec.position_path = FND_API.G_MISS_CHAR ) THEN
1045: p_x_material_req_rec.position_path := null;
1046: ELSIF ( p_x_material_req_rec.position_path IS NULL ) THEN
1047: p_x_material_req_rec.position_path := l_old_material_req_rec.position_path;
1048: END IF;
1046: ELSIF ( p_x_material_req_rec.position_path IS NULL ) THEN
1047: p_x_material_req_rec.position_path := l_old_material_req_rec.position_path;
1048: END IF;
1049:
1050: IF ( p_x_material_req_rec.item_group_id = FND_API.G_MISS_NUM ) THEN
1051: p_x_material_req_rec.item_group_id := null;
1052: ELSIF ( p_x_material_req_rec.item_group_id IS NULL ) THEN
1053: p_x_material_req_rec.item_group_id := l_old_material_req_rec.item_group_id;
1054: END IF;
1052: ELSIF ( p_x_material_req_rec.item_group_id IS NULL ) THEN
1053: p_x_material_req_rec.item_group_id := l_old_material_req_rec.item_group_id;
1054: END IF;
1055:
1056: IF ( p_x_material_req_rec.item_group_name = FND_API.G_MISS_CHAR ) THEN
1057: p_x_material_req_rec.item_group_name := null;
1058: ELSIF ( p_x_material_req_rec.item_group_name IS NULL ) THEN
1059: p_x_material_req_rec.item_group_name := l_old_material_req_rec.item_group_name;
1060: END IF;
1058: ELSIF ( p_x_material_req_rec.item_group_name IS NULL ) THEN
1059: p_x_material_req_rec.item_group_name := l_old_material_req_rec.item_group_name;
1060: END IF;
1061:
1062: IF ( p_x_material_req_rec.inventory_item_id = FND_API.G_MISS_NUM ) THEN
1063: p_x_material_req_rec.inventory_item_id := null;
1064: ELSIF ( p_x_material_req_rec.inventory_item_id IS NULL ) THEN
1065: p_x_material_req_rec.inventory_item_id := l_old_material_req_rec.inventory_item_id;
1066: END IF;
1064: ELSIF ( p_x_material_req_rec.inventory_item_id IS NULL ) THEN
1065: p_x_material_req_rec.inventory_item_id := l_old_material_req_rec.inventory_item_id;
1066: END IF;
1067:
1068: IF ( p_x_material_req_rec.inventory_org_id = FND_API.G_MISS_NUM ) THEN
1069: p_x_material_req_rec.inventory_org_id := null;
1070: ELSIF ( p_x_material_req_rec.inventory_org_id IS NULL ) THEN
1071: p_x_material_req_rec.inventory_org_id := l_old_material_req_rec.inventory_org_id;
1072: END IF;
1070: ELSIF ( p_x_material_req_rec.inventory_org_id IS NULL ) THEN
1071: p_x_material_req_rec.inventory_org_id := l_old_material_req_rec.inventory_org_id;
1072: END IF;
1073:
1074: IF ( p_x_material_req_rec.item_number = FND_API.G_MISS_CHAR ) THEN
1075: p_x_material_req_rec.item_number := null;
1076: ELSIF ( p_x_material_req_rec.item_number IS NULL ) THEN
1077: p_x_material_req_rec.item_number := l_old_material_req_rec.item_number;
1078: END IF;
1076: ELSIF ( p_x_material_req_rec.item_number IS NULL ) THEN
1077: p_x_material_req_rec.item_number := l_old_material_req_rec.item_number;
1078: END IF;
1079:
1080: IF ( p_x_material_req_rec.uom_code = FND_API.G_MISS_CHAR ) THEN
1081: p_x_material_req_rec.uom_code := null;
1082: ELSIF ( p_x_material_req_rec.uom_code IS NULL ) THEN
1083: p_x_material_req_rec.uom_code := l_old_material_req_rec.uom_code;
1084: END IF;
1082: ELSIF ( p_x_material_req_rec.uom_code IS NULL ) THEN
1083: p_x_material_req_rec.uom_code := l_old_material_req_rec.uom_code;
1084: END IF;
1085:
1086: IF ( p_x_material_req_rec.uom = FND_API.G_MISS_CHAR ) THEN
1087: p_x_material_req_rec.uom := null;
1088: ELSIF ( p_x_material_req_rec.uom IS NULL ) THEN
1089: p_x_material_req_rec.uom := l_old_material_req_rec.uom;
1090: END IF;
1088: ELSIF ( p_x_material_req_rec.uom IS NULL ) THEN
1089: p_x_material_req_rec.uom := l_old_material_req_rec.uom;
1090: END IF;
1091:
1092: IF ( p_x_material_req_rec.quantity = FND_API.G_MISS_NUM ) THEN
1093: p_x_material_req_rec.quantity := null;
1094: ELSIF ( p_x_material_req_rec.quantity IS NULL ) THEN
1095: p_x_material_req_rec.quantity := l_old_material_req_rec.quantity;
1096: END IF;
1094: ELSIF ( p_x_material_req_rec.quantity IS NULL ) THEN
1095: p_x_material_req_rec.quantity := l_old_material_req_rec.quantity;
1096: END IF;
1097:
1098: IF ( p_x_material_req_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
1099: p_x_material_req_rec.attribute_category := null;
1100: ELSIF ( p_x_material_req_rec.attribute_category IS NULL ) THEN
1101: p_x_material_req_rec.attribute_category := l_old_material_req_rec.attribute_category;
1102: END IF;
1100: ELSIF ( p_x_material_req_rec.attribute_category IS NULL ) THEN
1101: p_x_material_req_rec.attribute_category := l_old_material_req_rec.attribute_category;
1102: END IF;
1103:
1104: IF ( p_x_material_req_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
1105: p_x_material_req_rec.attribute1 := null;
1106: ELSIF ( p_x_material_req_rec.attribute1 IS NULL ) THEN
1107: p_x_material_req_rec.attribute1 := l_old_material_req_rec.attribute1;
1108: END IF;
1106: ELSIF ( p_x_material_req_rec.attribute1 IS NULL ) THEN
1107: p_x_material_req_rec.attribute1 := l_old_material_req_rec.attribute1;
1108: END IF;
1109:
1110: IF ( p_x_material_req_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
1111: p_x_material_req_rec.attribute2 := null;
1112: ELSIF ( p_x_material_req_rec.attribute2 IS NULL ) THEN
1113: p_x_material_req_rec.attribute2 := l_old_material_req_rec.attribute2;
1114: END IF;
1112: ELSIF ( p_x_material_req_rec.attribute2 IS NULL ) THEN
1113: p_x_material_req_rec.attribute2 := l_old_material_req_rec.attribute2;
1114: END IF;
1115:
1116: IF ( p_x_material_req_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
1117: p_x_material_req_rec.attribute3 := null;
1118: ELSIF ( p_x_material_req_rec.attribute3 IS NULL ) THEN
1119: p_x_material_req_rec.attribute3 := l_old_material_req_rec.attribute3;
1120: END IF;
1118: ELSIF ( p_x_material_req_rec.attribute3 IS NULL ) THEN
1119: p_x_material_req_rec.attribute3 := l_old_material_req_rec.attribute3;
1120: END IF;
1121:
1122: IF ( p_x_material_req_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
1123: p_x_material_req_rec.attribute4 := null;
1124: ELSIF ( p_x_material_req_rec.attribute4 IS NULL ) THEN
1125: p_x_material_req_rec.attribute4 := l_old_material_req_rec.attribute4;
1126: END IF;
1124: ELSIF ( p_x_material_req_rec.attribute4 IS NULL ) THEN
1125: p_x_material_req_rec.attribute4 := l_old_material_req_rec.attribute4;
1126: END IF;
1127:
1128: IF ( p_x_material_req_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
1129: p_x_material_req_rec.attribute5 := null;
1130: ELSIF ( p_x_material_req_rec.attribute5 IS NULL ) THEN
1131: p_x_material_req_rec.attribute5 := l_old_material_req_rec.attribute5;
1132: END IF;
1130: ELSIF ( p_x_material_req_rec.attribute5 IS NULL ) THEN
1131: p_x_material_req_rec.attribute5 := l_old_material_req_rec.attribute5;
1132: END IF;
1133:
1134: IF ( p_x_material_req_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
1135: p_x_material_req_rec.attribute6 := null;
1136: ELSIF ( p_x_material_req_rec.attribute6 IS NULL ) THEN
1137: p_x_material_req_rec.attribute6 := l_old_material_req_rec.attribute6;
1138: END IF;
1136: ELSIF ( p_x_material_req_rec.attribute6 IS NULL ) THEN
1137: p_x_material_req_rec.attribute6 := l_old_material_req_rec.attribute6;
1138: END IF;
1139:
1140: IF ( p_x_material_req_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
1141: p_x_material_req_rec.attribute7 := null;
1142: ELSIF ( p_x_material_req_rec.attribute7 IS NULL ) THEN
1143: p_x_material_req_rec.attribute7 := l_old_material_req_rec.attribute7;
1144: END IF;
1142: ELSIF ( p_x_material_req_rec.attribute7 IS NULL ) THEN
1143: p_x_material_req_rec.attribute7 := l_old_material_req_rec.attribute7;
1144: END IF;
1145:
1146: IF ( p_x_material_req_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
1147: p_x_material_req_rec.attribute8 := null;
1148: ELSIF ( p_x_material_req_rec.attribute8 IS NULL ) THEN
1149: p_x_material_req_rec.attribute8 := l_old_material_req_rec.attribute8;
1150: END IF;
1148: ELSIF ( p_x_material_req_rec.attribute8 IS NULL ) THEN
1149: p_x_material_req_rec.attribute8 := l_old_material_req_rec.attribute8;
1150: END IF;
1151:
1152: IF ( p_x_material_req_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
1153: p_x_material_req_rec.attribute9 := null;
1154: ELSIF ( p_x_material_req_rec.attribute9 IS NULL ) THEN
1155: p_x_material_req_rec.attribute9 := l_old_material_req_rec.attribute9;
1156: END IF;
1154: ELSIF ( p_x_material_req_rec.attribute9 IS NULL ) THEN
1155: p_x_material_req_rec.attribute9 := l_old_material_req_rec.attribute9;
1156: END IF;
1157:
1158: IF ( p_x_material_req_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
1159: p_x_material_req_rec.attribute10 := null;
1160: ELSIF ( p_x_material_req_rec.attribute10 IS NULL ) THEN
1161: p_x_material_req_rec.attribute10 := l_old_material_req_rec.attribute10;
1162: END IF;
1160: ELSIF ( p_x_material_req_rec.attribute10 IS NULL ) THEN
1161: p_x_material_req_rec.attribute10 := l_old_material_req_rec.attribute10;
1162: END IF;
1163:
1164: IF ( p_x_material_req_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
1165: p_x_material_req_rec.attribute11 := null;
1166: ELSIF ( p_x_material_req_rec.attribute11 IS NULL ) THEN
1167: p_x_material_req_rec.attribute11 := l_old_material_req_rec.attribute11;
1168: END IF;
1166: ELSIF ( p_x_material_req_rec.attribute11 IS NULL ) THEN
1167: p_x_material_req_rec.attribute11 := l_old_material_req_rec.attribute11;
1168: END IF;
1169:
1170: IF ( p_x_material_req_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
1171: p_x_material_req_rec.attribute12 := null;
1172: ELSIF ( p_x_material_req_rec.attribute12 IS NULL ) THEN
1173: p_x_material_req_rec.attribute12 := l_old_material_req_rec.attribute12;
1174: END IF;
1172: ELSIF ( p_x_material_req_rec.attribute12 IS NULL ) THEN
1173: p_x_material_req_rec.attribute12 := l_old_material_req_rec.attribute12;
1174: END IF;
1175:
1176: IF ( p_x_material_req_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
1177: p_x_material_req_rec.attribute13 := null;
1178: ELSIF ( p_x_material_req_rec.attribute13 IS NULL ) THEN
1179: p_x_material_req_rec.attribute13 := l_old_material_req_rec.attribute13;
1180: END IF;
1178: ELSIF ( p_x_material_req_rec.attribute13 IS NULL ) THEN
1179: p_x_material_req_rec.attribute13 := l_old_material_req_rec.attribute13;
1180: END IF;
1181:
1182: IF ( p_x_material_req_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
1183: p_x_material_req_rec.attribute14 := null;
1184: ELSIF ( p_x_material_req_rec.attribute14 IS NULL ) THEN
1185: p_x_material_req_rec.attribute14 := l_old_material_req_rec.attribute14;
1186: END IF;
1184: ELSIF ( p_x_material_req_rec.attribute14 IS NULL ) THEN
1185: p_x_material_req_rec.attribute14 := l_old_material_req_rec.attribute14;
1186: END IF;
1187:
1188: IF ( p_x_material_req_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
1189: p_x_material_req_rec.attribute15 := null;
1190: ELSIF ( p_x_material_req_rec.attribute15 IS NULL ) THEN
1191: p_x_material_req_rec.attribute15 := l_old_material_req_rec.attribute15;
1192: END IF;
1190: ELSIF ( p_x_material_req_rec.attribute15 IS NULL ) THEN
1191: p_x_material_req_rec.attribute15 := l_old_material_req_rec.attribute15;
1192: END IF;
1193:
1194: IF ( p_x_material_req_rec.exclude_flag = FND_API.G_MISS_CHAR ) THEN
1195: p_x_material_req_rec.exclude_flag := null;
1196: ELSIF ( p_x_material_req_rec.exclude_flag IS NULL ) THEN
1197: p_x_material_req_rec.exclude_flag := l_old_material_req_rec.exclude_flag;
1198: END IF;
1197: p_x_material_req_rec.exclude_flag := l_old_material_req_rec.exclude_flag;
1198: END IF;
1199:
1200: --pdoki added for OGMA 105 issue
1201: IF ( p_x_material_req_rec.in_service = FND_API.G_MISS_CHAR ) THEN
1202: p_x_material_req_rec.in_service := null;
1203: ELSIF ( p_x_material_req_rec.in_service IS NULL ) THEN
1204: p_x_material_req_rec.in_service := l_old_material_req_rec.in_service;
1205: END IF;
1203: ELSIF ( p_x_material_req_rec.in_service IS NULL ) THEN
1204: p_x_material_req_rec.in_service := l_old_material_req_rec.in_service;
1205: END IF;
1206:
1207: IF ( p_x_material_req_rec.rework_percent = FND_API.G_MISS_NUM ) THEN
1208: p_x_material_req_rec.rework_percent := null;
1209: ELSIF ( p_x_material_req_rec.rework_percent IS NULL ) THEN
1210: p_x_material_req_rec.rework_percent := l_old_material_req_rec.rework_percent;
1211: END IF;
1209: ELSIF ( p_x_material_req_rec.rework_percent IS NULL ) THEN
1210: p_x_material_req_rec.rework_percent := l_old_material_req_rec.rework_percent;
1211: END IF;
1212:
1213: IF ( p_x_material_req_rec.replace_percent = FND_API.G_MISS_NUM ) THEN
1214: p_x_material_req_rec.replace_percent := null;
1215: ELSIF ( p_x_material_req_rec.replace_percent IS NULL ) THEN
1216: p_x_material_req_rec.replace_percent := l_old_material_req_rec.replace_percent;
1217: END IF;
1295: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_efct_REC' );
1296: -- FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_route_efct_rec ) );
1297: FND_MSG_PUB.add;
1298: CLOSE get_old_rec;
1299: RAISE FND_API.G_EXC_ERROR;
1300: END IF;
1301:
1302: CLOSE get_old_rec;
1303:
1301:
1302: CLOSE get_old_rec;
1303:
1304: -- Convert G_MISS values to NULL and NULL values to Old values
1305: IF ( p_x_route_efct_rec.mc_header_id = FND_API.G_MISS_NUM ) THEN
1306: p_x_route_efct_rec.mc_header_id := null;
1307: ELSIF ( p_x_route_efct_rec.mc_header_id IS NULL ) THEN
1308: p_x_route_efct_rec.mc_header_id := l_old_route_efct_rec.mc_header_id;
1309: END IF;
1307: ELSIF ( p_x_route_efct_rec.mc_header_id IS NULL ) THEN
1308: p_x_route_efct_rec.mc_header_id := l_old_route_efct_rec.mc_header_id;
1309: END IF;
1310:
1311: IF ( p_x_route_efct_rec.mc_id = FND_API.G_MISS_NUM ) THEN
1312: p_x_route_efct_rec.mc_id := null;
1313: ELSIF ( p_x_route_efct_rec.mc_id IS NULL ) THEN
1314: p_x_route_efct_rec.mc_id := l_old_route_efct_rec.mc_id;
1315: END IF;
1313: ELSIF ( p_x_route_efct_rec.mc_id IS NULL ) THEN
1314: p_x_route_efct_rec.mc_id := l_old_route_efct_rec.mc_id;
1315: END IF;
1316:
1317: IF ( p_x_route_efct_rec.mc_name = FND_API.G_MISS_CHAR ) THEN
1318: p_x_route_efct_rec.mc_name := null;
1319: ELSIF ( p_x_route_efct_rec.mc_name IS NULL ) THEN
1320: p_x_route_efct_rec.mc_name := l_old_route_efct_rec.mc_name;
1321: END IF;
1319: ELSIF ( p_x_route_efct_rec.mc_name IS NULL ) THEN
1320: p_x_route_efct_rec.mc_name := l_old_route_efct_rec.mc_name;
1321: END IF;
1322:
1323: IF ( p_x_route_efct_rec.MC_REVISION = FND_API.G_MISS_CHAR ) THEN
1324: p_x_route_efct_rec.MC_REVISION := null;
1325: ELSIF ( p_x_route_efct_rec.MC_REVISION IS NULL ) THEN
1326: p_x_route_efct_rec.MC_REVISION := l_old_route_efct_rec.MC_REVISION;
1327: END IF;
1325: ELSIF ( p_x_route_efct_rec.MC_REVISION IS NULL ) THEN
1326: p_x_route_efct_rec.MC_REVISION := l_old_route_efct_rec.MC_REVISION;
1327: END IF;
1328:
1329: IF ( p_x_route_efct_rec.inventory_item_id = FND_API.G_MISS_NUM ) THEN
1330: p_x_route_efct_rec.inventory_item_id := null;
1331: ELSIF ( p_x_route_efct_rec.inventory_item_id IS NULL ) THEN
1332: p_x_route_efct_rec.inventory_item_id := l_old_route_efct_rec.inventory_item_id;
1333: END IF;
1331: ELSIF ( p_x_route_efct_rec.inventory_item_id IS NULL ) THEN
1332: p_x_route_efct_rec.inventory_item_id := l_old_route_efct_rec.inventory_item_id;
1333: END IF;
1334:
1335: IF ( p_x_route_efct_rec.inventory_master_org_id = FND_API.G_MISS_NUM ) THEN
1336: p_x_route_efct_rec.inventory_master_org_id := null;
1337: ELSIF ( p_x_route_efct_rec.inventory_master_org_id IS NULL ) THEN
1338: p_x_route_efct_rec.inventory_master_org_id := l_old_route_efct_rec.inventory_master_org_id;
1339: END IF;
1337: ELSIF ( p_x_route_efct_rec.inventory_master_org_id IS NULL ) THEN
1338: p_x_route_efct_rec.inventory_master_org_id := l_old_route_efct_rec.inventory_master_org_id;
1339: END IF;
1340:
1341: IF ( p_x_route_efct_rec.item_number = FND_API.G_MISS_CHAR ) THEN
1342: p_x_route_efct_rec.item_number := null;
1343: ELSIF ( p_x_route_efct_rec.item_number IS NULL ) THEN
1344: p_x_route_efct_rec.item_number := l_old_route_efct_rec.item_number;
1345: END IF;
1344: p_x_route_efct_rec.item_number := l_old_route_efct_rec.item_number;
1345: END IF;
1346:
1347:
1348: IF ( p_x_route_efct_rec.organization_code = FND_API.G_MISS_CHAR ) THEN
1349: p_x_route_efct_rec.organization_code := null;
1350: ELSIF ( p_x_route_efct_rec.organization_code IS NULL ) THEN
1351: p_x_route_efct_rec.organization_code := l_old_route_efct_rec.organization_code;
1352: END IF;
1350: ELSIF ( p_x_route_efct_rec.organization_code IS NULL ) THEN
1351: p_x_route_efct_rec.organization_code := l_old_route_efct_rec.organization_code;
1352: END IF;
1353:
1354: IF ( p_x_route_efct_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
1355: p_x_route_efct_rec.attribute_category := null;
1356: ELSIF ( p_x_route_efct_rec.attribute_category IS NULL ) THEN
1357: p_x_route_efct_rec.attribute_category := l_old_route_efct_rec.attribute_category;
1358: END IF;
1356: ELSIF ( p_x_route_efct_rec.attribute_category IS NULL ) THEN
1357: p_x_route_efct_rec.attribute_category := l_old_route_efct_rec.attribute_category;
1358: END IF;
1359:
1360: IF ( p_x_route_efct_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
1361: p_x_route_efct_rec.attribute1 := null;
1362: ELSIF ( p_x_route_efct_rec.attribute1 IS NULL ) THEN
1363: p_x_route_efct_rec.attribute1 := l_old_route_efct_rec.attribute1;
1364: END IF;
1362: ELSIF ( p_x_route_efct_rec.attribute1 IS NULL ) THEN
1363: p_x_route_efct_rec.attribute1 := l_old_route_efct_rec.attribute1;
1364: END IF;
1365:
1366: IF ( p_x_route_efct_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
1367: p_x_route_efct_rec.attribute2 := null;
1368: ELSIF ( p_x_route_efct_rec.attribute2 IS NULL ) THEN
1369: p_x_route_efct_rec.attribute2 := l_old_route_efct_rec.attribute2;
1370: END IF;
1368: ELSIF ( p_x_route_efct_rec.attribute2 IS NULL ) THEN
1369: p_x_route_efct_rec.attribute2 := l_old_route_efct_rec.attribute2;
1370: END IF;
1371:
1372: IF ( p_x_route_efct_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
1373: p_x_route_efct_rec.attribute3 := null;
1374: ELSIF ( p_x_route_efct_rec.attribute3 IS NULL ) THEN
1375: p_x_route_efct_rec.attribute3 := l_old_route_efct_rec.attribute3;
1376: END IF;
1374: ELSIF ( p_x_route_efct_rec.attribute3 IS NULL ) THEN
1375: p_x_route_efct_rec.attribute3 := l_old_route_efct_rec.attribute3;
1376: END IF;
1377:
1378: IF ( p_x_route_efct_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
1379: p_x_route_efct_rec.attribute4 := null;
1380: ELSIF ( p_x_route_efct_rec.attribute4 IS NULL ) THEN
1381: p_x_route_efct_rec.attribute4 := l_old_route_efct_rec.attribute4;
1382: END IF;
1380: ELSIF ( p_x_route_efct_rec.attribute4 IS NULL ) THEN
1381: p_x_route_efct_rec.attribute4 := l_old_route_efct_rec.attribute4;
1382: END IF;
1383:
1384: IF ( p_x_route_efct_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
1385: p_x_route_efct_rec.attribute5 := null;
1386: ELSIF ( p_x_route_efct_rec.attribute5 IS NULL ) THEN
1387: p_x_route_efct_rec.attribute5 := l_old_route_efct_rec.attribute5;
1388: END IF;
1386: ELSIF ( p_x_route_efct_rec.attribute5 IS NULL ) THEN
1387: p_x_route_efct_rec.attribute5 := l_old_route_efct_rec.attribute5;
1388: END IF;
1389:
1390: IF ( p_x_route_efct_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
1391: p_x_route_efct_rec.attribute6 := null;
1392: ELSIF ( p_x_route_efct_rec.attribute6 IS NULL ) THEN
1393: p_x_route_efct_rec.attribute6 := l_old_route_efct_rec.attribute6;
1394: END IF;
1392: ELSIF ( p_x_route_efct_rec.attribute6 IS NULL ) THEN
1393: p_x_route_efct_rec.attribute6 := l_old_route_efct_rec.attribute6;
1394: END IF;
1395:
1396: IF ( p_x_route_efct_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
1397: p_x_route_efct_rec.attribute7 := null;
1398: ELSIF ( p_x_route_efct_rec.attribute7 IS NULL ) THEN
1399: p_x_route_efct_rec.attribute7 := l_old_route_efct_rec.attribute7;
1400: END IF;
1398: ELSIF ( p_x_route_efct_rec.attribute7 IS NULL ) THEN
1399: p_x_route_efct_rec.attribute7 := l_old_route_efct_rec.attribute7;
1400: END IF;
1401:
1402: IF ( p_x_route_efct_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
1403: p_x_route_efct_rec.attribute8 := null;
1404: ELSIF ( p_x_route_efct_rec.attribute8 IS NULL ) THEN
1405: p_x_route_efct_rec.attribute8 := l_old_route_efct_rec.attribute8;
1406: END IF;
1404: ELSIF ( p_x_route_efct_rec.attribute8 IS NULL ) THEN
1405: p_x_route_efct_rec.attribute8 := l_old_route_efct_rec.attribute8;
1406: END IF;
1407:
1408: IF ( p_x_route_efct_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
1409: p_x_route_efct_rec.attribute9 := null;
1410: ELSIF ( p_x_route_efct_rec.attribute9 IS NULL ) THEN
1411: p_x_route_efct_rec.attribute9 := l_old_route_efct_rec.attribute9;
1412: END IF;
1410: ELSIF ( p_x_route_efct_rec.attribute9 IS NULL ) THEN
1411: p_x_route_efct_rec.attribute9 := l_old_route_efct_rec.attribute9;
1412: END IF;
1413:
1414: IF ( p_x_route_efct_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
1415: p_x_route_efct_rec.attribute10 := null;
1416: ELSIF ( p_x_route_efct_rec.attribute10 IS NULL ) THEN
1417: p_x_route_efct_rec.attribute10 := l_old_route_efct_rec.attribute10;
1418: END IF;
1416: ELSIF ( p_x_route_efct_rec.attribute10 IS NULL ) THEN
1417: p_x_route_efct_rec.attribute10 := l_old_route_efct_rec.attribute10;
1418: END IF;
1419:
1420: IF ( p_x_route_efct_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
1421: p_x_route_efct_rec.attribute11 := null;
1422: ELSIF ( p_x_route_efct_rec.attribute11 IS NULL ) THEN
1423: p_x_route_efct_rec.attribute11 := l_old_route_efct_rec.attribute11;
1424: END IF;
1422: ELSIF ( p_x_route_efct_rec.attribute11 IS NULL ) THEN
1423: p_x_route_efct_rec.attribute11 := l_old_route_efct_rec.attribute11;
1424: END IF;
1425:
1426: IF ( p_x_route_efct_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
1427: p_x_route_efct_rec.attribute12 := null;
1428: ELSIF ( p_x_route_efct_rec.attribute12 IS NULL ) THEN
1429: p_x_route_efct_rec.attribute12 := l_old_route_efct_rec.attribute12;
1430: END IF;
1428: ELSIF ( p_x_route_efct_rec.attribute12 IS NULL ) THEN
1429: p_x_route_efct_rec.attribute12 := l_old_route_efct_rec.attribute12;
1430: END IF;
1431:
1432: IF ( p_x_route_efct_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
1433: p_x_route_efct_rec.attribute13 := null;
1434: ELSIF ( p_x_route_efct_rec.attribute13 IS NULL ) THEN
1435: p_x_route_efct_rec.attribute13 := l_old_route_efct_rec.attribute13;
1436: END IF;
1434: ELSIF ( p_x_route_efct_rec.attribute13 IS NULL ) THEN
1435: p_x_route_efct_rec.attribute13 := l_old_route_efct_rec.attribute13;
1436: END IF;
1437:
1438: IF ( p_x_route_efct_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
1439: p_x_route_efct_rec.attribute14 := null;
1440: ELSIF ( p_x_route_efct_rec.attribute14 IS NULL ) THEN
1441: p_x_route_efct_rec.attribute14 := l_old_route_efct_rec.attribute14;
1442: END IF;
1440: ELSIF ( p_x_route_efct_rec.attribute14 IS NULL ) THEN
1441: p_x_route_efct_rec.attribute14 := l_old_route_efct_rec.attribute14;
1442: END IF;
1443:
1444: IF ( p_x_route_efct_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
1445: p_x_route_efct_rec.attribute15 := null;
1446: ELSIF ( p_x_route_efct_rec.attribute15 IS NULL ) THEN
1447: p_x_route_efct_rec.attribute15 := l_old_route_efct_rec.attribute15;
1448: END IF;
1471: AND NVL( MI.end_date_active, SYSDATE );
1472:
1473: l_comms_nl_trackable_flag MTL_SYSTEM_ITEMS.COMMS_NL_TRACKABLE_FLAG%TYPE;
1474: BEGIN
1475: x_return_status := FND_API.G_RET_STS_SUCCESS;
1476:
1477: IF ( p_material_req_rec.dml_operation <> 'D' ) THEN
1478:
1479: -- Check if the Quantity does not column contains a null value.
1479: -- Check if the Quantity does not column contains a null value.
1480: -- Check if the Quantity does not column a value less than or equal to zero.
1481: IF ( p_material_req_rec.dml_operation = 'C' AND
1482: -- p_association_type <> 'DISPOSITION' AND
1483: (p_material_req_rec.quantity IS NULL OR p_material_req_rec.quantity = FND_API.G_MISS_NUM)
1484: ) THEN
1485: IF (p_association_type = 'DISPOSITION')
1486: THEN
1487: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_ITEM_QTY_NULL' );
1489: FND_MESSAGE.set_name( 'AHL','AHL_RM_MTL_QTY_NULL' );
1490: END IF;
1491: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1492: FND_MSG_PUB.add;
1493: x_return_status := FND_API.G_RET_STS_ERROR;
1494: ELSIF ( p_material_req_rec.dml_operation <> 'D' AND
1495: p_material_req_rec.quantity <= 0 ) THEN
1496: FND_MESSAGE.set_name( 'AHL','AHL_RM_MTL_QTY_LESS_ZERO' );
1497: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1495: p_material_req_rec.quantity <= 0 ) THEN
1496: FND_MESSAGE.set_name( 'AHL','AHL_RM_MTL_QTY_LESS_ZERO' );
1497: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1498: FND_MSG_PUB.add;
1499: x_return_status := FND_API.G_RET_STS_ERROR;
1500: ELSIF ( p_material_req_rec.dml_operation <> 'D' AND
1501: p_association_type = 'DISPOSITION'
1502: AND
1503: (p_material_req_rec.INVENTORY_ITEM_ID IS NOT NULL OR p_material_req_rec.INVENTORY_ITEM_ID <> FND_API.G_MISS_NUM )
1499: x_return_status := FND_API.G_RET_STS_ERROR;
1500: ELSIF ( p_material_req_rec.dml_operation <> 'D' AND
1501: p_association_type = 'DISPOSITION'
1502: AND
1503: (p_material_req_rec.INVENTORY_ITEM_ID IS NOT NULL OR p_material_req_rec.INVENTORY_ITEM_ID <> FND_API.G_MISS_NUM )
1504: AND
1505: (p_material_req_rec.quantity IS NULL OR p_material_req_rec.quantity = FND_API.G_MISS_NUM) ) THEN
1506: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_ITEM_QTY_NULL' );
1507: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1501: p_association_type = 'DISPOSITION'
1502: AND
1503: (p_material_req_rec.INVENTORY_ITEM_ID IS NOT NULL OR p_material_req_rec.INVENTORY_ITEM_ID <> FND_API.G_MISS_NUM )
1504: AND
1505: (p_material_req_rec.quantity IS NULL OR p_material_req_rec.quantity = FND_API.G_MISS_NUM) ) THEN
1506: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_ITEM_QTY_NULL' );
1507: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1508: FND_MSG_PUB.add;
1509: x_return_status := FND_API.G_RET_STS_ERROR;
1505: (p_material_req_rec.quantity IS NULL OR p_material_req_rec.quantity = FND_API.G_MISS_NUM) ) THEN
1506: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_ITEM_QTY_NULL' );
1507: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1508: FND_MSG_PUB.add;
1509: x_return_status := FND_API.G_RET_STS_ERROR;
1510: END IF;
1511:
1512: -- Check if the UOM not column contains a null value.
1513: IF ( ( p_material_req_rec.dml_operation <> 'D' AND
1513: IF ( ( p_material_req_rec.dml_operation <> 'D' AND
1514: -- p_association_type <> 'DISPOSITION' AND
1515: p_material_req_rec.uom IS NULL AND
1516: p_material_req_rec.uom_code IS NULL ) OR
1517: ( p_material_req_rec.uom = FND_API.G_MISS_CHAR AND
1518: p_material_req_rec.uom_code = FND_API.G_MISS_CHAR ) )
1519: THEN
1520: FND_MESSAGE.set_name( 'AHL','AHL_RM_UOM_NULL' );
1521: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1514: -- p_association_type <> 'DISPOSITION' AND
1515: p_material_req_rec.uom IS NULL AND
1516: p_material_req_rec.uom_code IS NULL ) OR
1517: ( p_material_req_rec.uom = FND_API.G_MISS_CHAR AND
1518: p_material_req_rec.uom_code = FND_API.G_MISS_CHAR ) )
1519: THEN
1520: FND_MESSAGE.set_name( 'AHL','AHL_RM_UOM_NULL' );
1521: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1522: FND_MSG_PUB.add;
1519: THEN
1520: FND_MESSAGE.set_name( 'AHL','AHL_RM_UOM_NULL' );
1521: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1522: FND_MSG_PUB.add;
1523: x_return_status := FND_API.G_RET_STS_ERROR;
1524: /*
1525: ELSIF
1526: p_material_req_rec.dml_operation <> 'D'
1527: AND p_association_type = 'DISPOSITION'
1526: p_material_req_rec.dml_operation <> 'D'
1527: AND p_association_type = 'DISPOSITION'
1528: AND (
1529: p_material_req_rec.quantity IS NOT NULL
1530: OR p_material_req_rec.quantity <> FND_API.G_MISS_NUM
1531: )
1532: AND (
1533: (p_material_req_rec.uom IS NULL AND p_material_req_rec.uom_code IS NULL )
1534: OR
1531: )
1532: AND (
1533: (p_material_req_rec.uom IS NULL AND p_material_req_rec.uom_code IS NULL )
1534: OR
1535: (p_material_req_rec.uom = FND_API.G_MISS_CHAR AND p_material_req_rec.uom_code = FND_API.G_MISS_CHAR)
1536: )
1537: THEN
1538: FND_MESSAGE.set_name( 'AHL','AHL_RM_UOM_NULL' );
1539: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1537: THEN
1538: FND_MESSAGE.set_name( 'AHL','AHL_RM_UOM_NULL' );
1539: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1540: FND_MSG_PUB.add;
1541: x_return_status := FND_API.G_RET_STS_ERROR;
1542: */
1543: END IF;
1544:
1545: END IF;
1546:
1547: IF ( p_association_type = 'DISPOSITION' AND
1548: p_material_req_rec.dml_operation <> 'D' AND
1549: (
1550: (p_material_req_rec.REPLACE_PERCENT IS NOT NULL OR p_material_req_rec.REPLACE_PERCENT <> FND_API.G_MISS_NUM )
1551: OR (p_material_req_rec.REWORK_PERCENT IS NOT NULL OR p_material_req_rec.REWORK_PERCENT <> FND_API.G_MISS_NUM )
1552: )
1553: AND
1554: (
1547: IF ( p_association_type = 'DISPOSITION' AND
1548: p_material_req_rec.dml_operation <> 'D' AND
1549: (
1550: (p_material_req_rec.REPLACE_PERCENT IS NOT NULL OR p_material_req_rec.REPLACE_PERCENT <> FND_API.G_MISS_NUM )
1551: OR (p_material_req_rec.REWORK_PERCENT IS NOT NULL OR p_material_req_rec.REWORK_PERCENT <> FND_API.G_MISS_NUM )
1552: )
1553: AND
1554: (
1555: (p_material_req_rec.POSITION_PATH_ID IS NULL OR p_material_req_rec.POSITION_PATH_ID = FND_API.G_MISS_NUM )
1551: OR (p_material_req_rec.REWORK_PERCENT IS NOT NULL OR p_material_req_rec.REWORK_PERCENT <> FND_API.G_MISS_NUM )
1552: )
1553: AND
1554: (
1555: (p_material_req_rec.POSITION_PATH_ID IS NULL OR p_material_req_rec.POSITION_PATH_ID = FND_API.G_MISS_NUM )
1556: AND (p_material_req_rec.ITEM_GROUP_ID IS NULL OR p_material_req_rec.ITEM_GROUP_ID = FND_API.G_MISS_NUM )
1557: AND (p_material_req_rec.INVENTORY_ITEM_ID IS NULL OR p_material_req_rec.INVENTORY_ITEM_ID = FND_API.G_MISS_NUM )
1558: )
1559: )
1552: )
1553: AND
1554: (
1555: (p_material_req_rec.POSITION_PATH_ID IS NULL OR p_material_req_rec.POSITION_PATH_ID = FND_API.G_MISS_NUM )
1556: AND (p_material_req_rec.ITEM_GROUP_ID IS NULL OR p_material_req_rec.ITEM_GROUP_ID = FND_API.G_MISS_NUM )
1557: AND (p_material_req_rec.INVENTORY_ITEM_ID IS NULL OR p_material_req_rec.INVENTORY_ITEM_ID = FND_API.G_MISS_NUM )
1558: )
1559: )
1560: THEN
1553: AND
1554: (
1555: (p_material_req_rec.POSITION_PATH_ID IS NULL OR p_material_req_rec.POSITION_PATH_ID = FND_API.G_MISS_NUM )
1556: AND (p_material_req_rec.ITEM_GROUP_ID IS NULL OR p_material_req_rec.ITEM_GROUP_ID = FND_API.G_MISS_NUM )
1557: AND (p_material_req_rec.INVENTORY_ITEM_ID IS NULL OR p_material_req_rec.INVENTORY_ITEM_ID = FND_API.G_MISS_NUM )
1558: )
1559: )
1560: THEN
1561: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REPLACE_INVALID' );
1561: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REPLACE_INVALID' );
1562: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REWORK_INVALID' );
1563: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1564: FND_MSG_PUB.add;
1565: x_return_status := FND_API.G_RET_STS_ERROR;
1566: END IF ;
1567:
1568: -- Check if the mandatory Replace column contains a null value.
1569: IF ( p_association_type = 'DISPOSITION' AND
1568: -- Check if the mandatory Replace column contains a null value.
1569: IF ( p_association_type = 'DISPOSITION' AND
1570: p_material_req_rec.dml_operation <> 'D' AND
1571: ( p_material_req_rec.REPLACE_PERCENT IS NULL OR
1572: p_material_req_rec.REPLACE_PERCENT = FND_API.G_MISS_NUM )
1573: )
1574: THEN
1575: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REPLACE_NULL' );
1576: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1574: THEN
1575: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REPLACE_NULL' );
1576: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1577: FND_MSG_PUB.add;
1578: x_return_status := FND_API.G_RET_STS_ERROR;
1579:
1580: ELSIF ( p_association_type = 'DISPOSITION' AND
1581: p_material_req_rec.dml_operation <> 'D' AND
1582: NOT ( p_material_req_rec.REPLACE_PERCENT BETWEEN 0 AND 100 )
1584: THEN
1585: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REPLACE_INVALID' );
1586: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1587: FND_MSG_PUB.add;
1588: x_return_status := FND_API.G_RET_STS_ERROR;
1589:
1590: END IF;
1591:
1592:
1599: IF (
1600: p_association_type = 'DISPOSITION' AND p_material_req_rec.dml_operation <> 'D'
1601: AND
1602: (
1603: ( ( p_material_req_rec.POSITION_PATH_ID IS NOT NULL AND p_material_req_rec.POSITION_PATH_ID <> FND_API.G_MISS_NUM )
1604: AND (p_material_req_rec.ITEM_GROUP_ID IS NULL OR p_material_req_rec.ITEM_GROUP_ID = FND_API.G_MISS_NUM )
1605: AND (p_material_req_rec.INVENTORY_ITEM_ID IS NULL OR p_material_req_rec.INVENTORY_ITEM_ID = FND_API.G_MISS_NUM )
1606: )
1607: OR
1600: p_association_type = 'DISPOSITION' AND p_material_req_rec.dml_operation <> 'D'
1601: AND
1602: (
1603: ( ( p_material_req_rec.POSITION_PATH_ID IS NOT NULL AND p_material_req_rec.POSITION_PATH_ID <> FND_API.G_MISS_NUM )
1604: AND (p_material_req_rec.ITEM_GROUP_ID IS NULL OR p_material_req_rec.ITEM_GROUP_ID = FND_API.G_MISS_NUM )
1605: AND (p_material_req_rec.INVENTORY_ITEM_ID IS NULL OR p_material_req_rec.INVENTORY_ITEM_ID = FND_API.G_MISS_NUM )
1606: )
1607: OR
1608: ( (p_material_req_rec.INVENTORY_ITEM_ID IS NOT NULL AND p_material_req_rec.INVENTORY_ITEM_ID <> FND_API.G_MISS_NUM)
1601: AND
1602: (
1603: ( ( p_material_req_rec.POSITION_PATH_ID IS NOT NULL AND p_material_req_rec.POSITION_PATH_ID <> FND_API.G_MISS_NUM )
1604: AND (p_material_req_rec.ITEM_GROUP_ID IS NULL OR p_material_req_rec.ITEM_GROUP_ID = FND_API.G_MISS_NUM )
1605: AND (p_material_req_rec.INVENTORY_ITEM_ID IS NULL OR p_material_req_rec.INVENTORY_ITEM_ID = FND_API.G_MISS_NUM )
1606: )
1607: OR
1608: ( (p_material_req_rec.INVENTORY_ITEM_ID IS NOT NULL AND p_material_req_rec.INVENTORY_ITEM_ID <> FND_API.G_MISS_NUM)
1609: AND (nvl(p_material_req_rec.COMP_MATERIAL_FLAG, 'N') = 'N' AND ((l_comms_nl_trackable_flag IS NOT NULL) AND (l_comms_nl_trackable_flag = 'Y')))
1604: AND (p_material_req_rec.ITEM_GROUP_ID IS NULL OR p_material_req_rec.ITEM_GROUP_ID = FND_API.G_MISS_NUM )
1605: AND (p_material_req_rec.INVENTORY_ITEM_ID IS NULL OR p_material_req_rec.INVENTORY_ITEM_ID = FND_API.G_MISS_NUM )
1606: )
1607: OR
1608: ( (p_material_req_rec.INVENTORY_ITEM_ID IS NOT NULL AND p_material_req_rec.INVENTORY_ITEM_ID <> FND_API.G_MISS_NUM)
1609: AND (nvl(p_material_req_rec.COMP_MATERIAL_FLAG, 'N') = 'N' AND ((l_comms_nl_trackable_flag IS NOT NULL) AND (l_comms_nl_trackable_flag = 'Y')))
1610: -- to throw this error , item has to be an Additional Material and also a trackable item.
1611: -- if the item is from Composition then we do not check whether its trackable or not as its possible to go to Inventory and change the trackable flag.
1612: -- and under any condition COMP_MATERIAL_FLAG = 'Y' this error will never be thrown
1612: -- and under any condition COMP_MATERIAL_FLAG = 'Y' this error will never be thrown
1613: )
1614: )
1615: AND
1616: ( p_material_req_rec.REWORK_PERCENT IS NULL OR p_material_req_rec.REWORK_PERCENT = FND_API.G_MISS_NUM )
1617: )
1618: THEN
1619: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REWORK_NULL' );
1620: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1618: THEN
1619: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REWORK_NULL' );
1620: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1621: FND_MSG_PUB.add;
1622: x_return_status := FND_API.G_RET_STS_ERROR;
1623: ELSIF ( p_association_type = 'DISPOSITION' AND
1624: p_material_req_rec.dml_operation <> 'D'
1625: AND
1626: (
1623: ELSIF ( p_association_type = 'DISPOSITION' AND
1624: p_material_req_rec.dml_operation <> 'D'
1625: AND
1626: (
1627: (p_material_req_rec.POSITION_PATH_ID IS NOT NULL AND p_material_req_rec.POSITION_PATH_ID <> FND_API.G_MISS_NUM )
1628:
1629: OR
1630: ( (p_material_req_rec.INVENTORY_ITEM_ID IS NOT NULL AND p_material_req_rec.INVENTORY_ITEM_ID <> FND_API.G_MISS_NUM)
1631: AND ((l_comms_nl_trackable_flag IS NOT NULL) AND (l_comms_nl_trackable_flag = 'Y'))
1626: (
1627: (p_material_req_rec.POSITION_PATH_ID IS NOT NULL AND p_material_req_rec.POSITION_PATH_ID <> FND_API.G_MISS_NUM )
1628:
1629: OR
1630: ( (p_material_req_rec.INVENTORY_ITEM_ID IS NOT NULL AND p_material_req_rec.INVENTORY_ITEM_ID <> FND_API.G_MISS_NUM)
1631: AND ((l_comms_nl_trackable_flag IS NOT NULL) AND (l_comms_nl_trackable_flag = 'Y'))
1632: )
1633: )
1634: AND NOT ( p_material_req_rec.REWORK_PERCENT BETWEEN 0 AND 100 )
1636: THEN
1637: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REWORK_INVALID' );
1638: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1639: FND_MSG_PUB.add;
1640: x_return_status := FND_API.G_RET_STS_ERROR;
1641:
1642: END IF;
1643: -- if item group then rework percent should not be allowed to be entered.
1644: IF
1647: AND
1648: (
1649: (
1650: (
1651: (p_material_req_rec.ITEM_GROUP_ID <> FND_API.G_MISS_NUM AND p_material_req_rec.ITEM_GROUP_ID IS NOT NULL )
1652: OR
1653: (p_material_req_rec.ITEM_GROUP_NAME <> FND_API.G_MISS_CHAR AND p_material_req_rec.ITEM_GROUP_NAME IS NOT NULL )
1654: )
1655: OR
1649: (
1650: (
1651: (p_material_req_rec.ITEM_GROUP_ID <> FND_API.G_MISS_NUM AND p_material_req_rec.ITEM_GROUP_ID IS NOT NULL )
1652: OR
1653: (p_material_req_rec.ITEM_GROUP_NAME <> FND_API.G_MISS_CHAR AND p_material_req_rec.ITEM_GROUP_NAME IS NOT NULL )
1654: )
1655: OR
1656: (
1657: ( p_material_req_rec.INVENTORY_ITEM_ID <> FND_API.G_MISS_NUM AND p_material_req_rec.INVENTORY_ITEM_ID IS NOT NULL )
1653: (p_material_req_rec.ITEM_GROUP_NAME <> FND_API.G_MISS_CHAR AND p_material_req_rec.ITEM_GROUP_NAME IS NOT NULL )
1654: )
1655: OR
1656: (
1657: ( p_material_req_rec.INVENTORY_ITEM_ID <> FND_API.G_MISS_NUM AND p_material_req_rec.INVENTORY_ITEM_ID IS NOT NULL )
1658: AND
1659: (p_material_req_rec.COMP_MATERIAL_FLAG = 'Y' OR ( nvl(p_material_req_rec.COMP_MATERIAL_FLAG, 'N') <> 'Y' AND l_comms_nl_trackable_flag <> 'Y'))
1660: )
1661: )
1659: (p_material_req_rec.COMP_MATERIAL_FLAG = 'Y' OR ( nvl(p_material_req_rec.COMP_MATERIAL_FLAG, 'N') <> 'Y' AND l_comms_nl_trackable_flag <> 'Y'))
1660: )
1661: )
1662: AND
1663: (p_material_req_rec.REWORK_PERCENT <> FND_API.G_MISS_NUM OR p_material_req_rec.REWORK_PERCENT IS NOT NULL )
1664: --if non trackable item then rework percent should not be allowed to be entered.
1665:
1666: )
1667: )
1668: THEN
1669: FND_MESSAGE.set_name( 'AHL','AHL_RM_DISP_REWORK_NOT_REQ' );
1670: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1671: FND_MSG_PUB.add;
1672: x_return_status := FND_API.G_RET_STS_ERROR;
1673: END IF;
1674:
1675:
1676: IF ( p_material_req_rec.dml_operation = 'C' ) THEN
1678: END IF;
1679:
1680: -- Check if the mandatory Effectivity ID column contains a null value.
1681: IF ( p_material_req_rec.rt_oper_material_id IS NULL OR
1682: p_material_req_rec.rt_oper_material_id = FND_API.G_MISS_NUM ) THEN
1683: FND_MESSAGE.set_name( 'AHL','AHL_RM_MTL_ID_NULL' );
1684: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1685: FND_MSG_PUB.add;
1686: x_return_status := FND_API.G_RET_STS_ERROR;
1682: p_material_req_rec.rt_oper_material_id = FND_API.G_MISS_NUM ) THEN
1683: FND_MESSAGE.set_name( 'AHL','AHL_RM_MTL_ID_NULL' );
1684: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1685: FND_MSG_PUB.add;
1686: x_return_status := FND_API.G_RET_STS_ERROR;
1687: RETURN;
1688: END IF;
1689:
1690: -- Check if the mandatory Object Version Number column contains a null value.
1688: END IF;
1689:
1690: -- Check if the mandatory Object Version Number column contains a null value.
1691: IF ( p_material_req_rec.object_version_number IS NULL OR
1692: p_material_req_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
1693: FND_MESSAGE.set_name( 'AHL','AHL_RM_MTL_OBJ_VERSION_NULL' );
1694: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1695: FND_MSG_PUB.add;
1696: x_return_status := FND_API.G_RET_STS_ERROR;
1692: p_material_req_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
1693: FND_MESSAGE.set_name( 'AHL','AHL_RM_MTL_OBJ_VERSION_NULL' );
1694: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1695: FND_MSG_PUB.add;
1696: x_return_status := FND_API.G_RET_STS_ERROR;
1697: RETURN;
1698: END IF;
1699:
1700:
1709: )
1710: IS
1711:
1712: BEGIN
1713: x_return_status := FND_API.G_RET_STS_SUCCESS;
1714:
1715:
1716: IF ( p_route_efct_rec.dml_operation = 'C' ) THEN
1717: RETURN;
1718: END IF;
1719:
1720: -- Check if the mandatory column contains a null value.
1721: IF ( p_route_efct_rec.ROUTE_EFFECTIVITY_ID IS NULL OR
1722: p_route_efct_rec.ROUTE_EFFECTIVITY_ID = FND_API.G_MISS_NUM ) THEN
1723: FND_MESSAGE.set_name( 'AHL','AHL_RM_efct_ID_NULL' );
1724: -- FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1725: FND_MSG_PUB.add;
1726: x_return_status := FND_API.G_RET_STS_ERROR;
1722: p_route_efct_rec.ROUTE_EFFECTIVITY_ID = FND_API.G_MISS_NUM ) THEN
1723: FND_MESSAGE.set_name( 'AHL','AHL_RM_efct_ID_NULL' );
1724: -- FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1725: FND_MSG_PUB.add;
1726: x_return_status := FND_API.G_RET_STS_ERROR;
1727: RETURN;
1728: END IF;
1729:
1730: -- Check if the mandatory Object Version Number column contains a null value.
1728: END IF;
1729:
1730: -- Check if the mandatory Object Version Number column contains a null value.
1731: IF ( p_route_efct_rec.object_version_number IS NULL OR
1732: p_route_efct_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
1733: FND_MESSAGE.set_name( 'AHL','AHL_RM_efct_OBJ_VERSION_NULL' );
1734: -- FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1735: FND_MSG_PUB.add;
1736: x_return_status := FND_API.G_RET_STS_ERROR;
1732: p_route_efct_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
1733: FND_MESSAGE.set_name( 'AHL','AHL_RM_efct_OBJ_VERSION_NULL' );
1734: -- FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1735: FND_MSG_PUB.add;
1736: x_return_status := FND_API.G_RET_STS_ERROR;
1737: RETURN;
1738: END IF;
1739:
1740: END validate_efct_attributes;
1751: l_return_status VARCHAR2(1);
1752: l_msg_data VARCHAR2(2000);
1753:
1754: BEGIN
1755: x_return_status := FND_API.G_RET_STS_SUCCESS;
1756:
1757: -- Check if both Item Group and Item are NULL
1758: IF ( p_association_type <> 'DISPOSITION' AND
1759: p_material_req_rec.item_group_id IS NULL AND
1763: p_material_req_rec.item_number IS NULL ) THEN
1764: FND_MESSAGE.set_name( 'AHL','AHL_RM_ITEMGRP_ITEM_NULL' );
1765: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1766: FND_MSG_PUB.add;
1767: x_return_status := FND_API.G_RET_STS_ERROR;
1768: END IF;
1769:
1770: -- Check if both Item Group and Item contain values
1771: IF (
1777: p_material_req_rec.item_group_name IS NOT NULL ) ) THEN
1778: FND_MESSAGE.set_name( 'AHL','AHL_RM_ITEMGRP_ITEM_NOTNULL' );
1779: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_material_req_rec ) );
1780: FND_MSG_PUB.add;
1781: x_return_status := FND_API.G_RET_STS_ERROR;
1782: END IF;
1783:
1784: -- Check if the given UOM is valid for the given Item
1785: IF ( p_material_req_rec.uom_code IS NOT NULL AND
1795: p_inventory_org_id => p_material_req_rec.inventory_org_id,
1796: p_uom_code => p_material_req_rec.uom_code
1797: );
1798:
1799: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
1800: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1801: IF ( p_material_req_rec.uom IS NULL ) THEN
1802: FND_MESSAGE.set_token( 'FIELD1', p_material_req_rec.uom_code );
1803: ELSE
1835: l_return_status VARCHAR2(1);
1836: l_msg_data VARCHAR2(2000);
1837:
1838: BEGIN
1839: x_return_status := FND_API.G_RET_STS_SUCCESS;
1840:
1841: -- Check if both MC and Item are NULL
1842: IF ( p_route_efct_rec.mc_id IS NULL AND
1843: p_route_efct_rec.mc_name IS NULL AND
1846: p_route_efct_rec.item_number IS NULL ) THEN
1847: FND_MESSAGE.set_name( 'AHL','AHL_RM_EFCT_ITEM_NULL' );
1848: -- FND_MESSAGE.set_token( 'RECORD', get_effct_identifier( p_route_efct_rec ) );
1849: FND_MSG_PUB.add;
1850: x_return_status := FND_API.G_RET_STS_ERROR;
1851: END IF;
1852:
1853: -- Check if both MC and Item contain values
1854: IF ( ( p_route_efct_rec.inventory_item_id IS NOT NULL OR
1865: THEN
1866: FND_MESSAGE.set_name( 'AHL','AHL_RM_efct_ITEM_NOTNULL' );
1867: FND_MESSAGE.set_token( 'RECORD', get_effct_identifier( p_route_efct_rec ) );
1868: FND_MSG_PUB.add;
1869: x_return_status := FND_API.G_RET_STS_ERROR;
1870: END IF;
1871:
1872: -- Check if both Org and Item contain values
1873: IF ( ( p_route_efct_rec.inventory_item_id IS NOT NULL OR p_route_efct_rec.item_number IS NOT NULL )
1876: THEN
1877: FND_MESSAGE.set_name( 'AHL','AHL_RM_efct_ITEM_ORG_NOTNULL' );
1878: -- FND_MESSAGE.set_token( 'RECORD', get_effct_identifier( p_route_efct_rec ) );
1879: FND_MSG_PUB.add;
1880: x_return_status := FND_API.G_RET_STS_ERROR;
1881: END IF;
1882:
1883:
1884: END validate_efct_record;
1925: HAVING count(*) > 1;
1926:
1927: BEGIN
1928:
1929: x_return_status := FND_API.G_RET_STS_SUCCESS;
1930: /*
1931: IF ( p_association_type = 'DISPOSITION' ) THEN
1932: RETURN ;
1933: END IF;
1960: END LOOP;
1961:
1962: IF ( get_dup_rec%ROWCOUNT > 0 ) THEN
1963: CLOSE get_dup_rec;
1964: x_return_status := FND_API.G_RET_STS_ERROR;
1965: RETURN;
1966: END IF;
1967:
1968: CLOSE get_dup_rec;
2053:
2054: IF G_DEBUG='Y' THEN
2055: AHL_DEBUG_PUB.enable_debug;
2056: END IF;
2057: x_return_status := FND_API.G_RET_STS_SUCCESS;
2058:
2059: -- Check whether any duplicate records for the given OBJECT_ID
2060: OPEN get_dup_rec( p_object_id );
2061:
2096: END LOOP;
2097:
2098: IF ( get_dup_rec%ROWCOUNT > 0 ) THEN
2099: CLOSE get_dup_rec;
2100: x_return_status := FND_API.G_RET_STS_ERROR;
2101: RETURN;
2102: END IF;
2103:
2104: CLOSE get_dup_rec;
2109:
2110: PROCEDURE process_material_req
2111: (
2112: p_api_version IN NUMBER := '1.0',
2113: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2114: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2115: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2116: p_default IN VARCHAR2 := FND_API.G_FALSE,
2117: p_module_type IN VARCHAR2 := NULL,
2110: PROCEDURE process_material_req
2111: (
2112: p_api_version IN NUMBER := '1.0',
2113: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2114: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2115: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2116: p_default IN VARCHAR2 := FND_API.G_FALSE,
2117: p_module_type IN VARCHAR2 := NULL,
2118: x_return_status OUT NOCOPY VARCHAR2,
2111: (
2112: p_api_version IN NUMBER := '1.0',
2113: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2114: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2115: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2116: p_default IN VARCHAR2 := FND_API.G_FALSE,
2117: p_module_type IN VARCHAR2 := NULL,
2118: x_return_status OUT NOCOPY VARCHAR2,
2119: x_msg_count OUT NOCOPY NUMBER,
2112: p_api_version IN NUMBER := '1.0',
2113: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2114: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2115: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2116: p_default IN VARCHAR2 := FND_API.G_FALSE,
2117: p_module_type IN VARCHAR2 := NULL,
2118: x_return_status OUT NOCOPY VARCHAR2,
2119: x_msg_count OUT NOCOPY NUMBER,
2120: x_msg_data OUT NOCOPY VARCHAR2,
2155: l_dummy_number NUMBER;
2156:
2157: BEGIN
2158: -- Initialize API return status to success
2159: x_return_status := FND_API.G_RET_STS_SUCCESS;
2160:
2161: -- Standard Start of API savepoint
2162: SAVEPOINT process_material_req_PVT;
2163:
2161: -- Standard Start of API savepoint
2162: SAVEPOINT process_material_req_PVT;
2163:
2164: -- Standard call to check for call compatibility.
2165: IF NOT FND_API.compatible_api_call
2166: (
2167: l_api_version,
2168: p_api_version,
2169: G_API_NAME,
2169: G_API_NAME,
2170: G_PKG_NAME
2171: )
2172: THEN
2173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2174: END IF;
2175:
2176: -- Initialize message list if p_init_msg_list is set to TRUE.
2177: IF FND_API.to_boolean( p_init_msg_list ) THEN
2173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2174: END IF;
2175:
2176: -- Initialize message list if p_init_msg_list is set to TRUE.
2177: IF FND_API.to_boolean( p_init_msg_list ) THEN
2178: FND_MSG_PUB.initialize;
2179: END IF;
2180:
2181: -- Enable Debug (optional)
2200: x_msg_data => x_msg_data
2201: );
2202:
2203: -- If any severe error occurs, then, abort API.
2204: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2205: RAISE FND_API.G_EXC_ERROR;
2206: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2208: END IF;
2201: );
2202:
2203: -- If any severe error occurs, then, abort API.
2204: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2205: RAISE FND_API.G_EXC_ERROR;
2206: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2208: END IF;
2209:
2202:
2203: -- If any severe error occurs, then, abort API.
2204: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2205: RAISE FND_API.G_EXC_ERROR;
2206: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2208: END IF;
2209:
2210: END IF;
2203: -- If any severe error occurs, then, abort API.
2204: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2205: RAISE FND_API.G_EXC_ERROR;
2206: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2208: END IF;
2209:
2210: END IF;
2211:
2219: l_return_status -- OUT
2220: );
2221:
2222: -- If any severe error occurs, then, abort API.
2223: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2224: RAISE FND_API.G_EXC_ERROR;
2225: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2227: END IF;
2220: );
2221:
2222: -- If any severe error occurs, then, abort API.
2223: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2224: RAISE FND_API.G_EXC_ERROR;
2225: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2227: END IF;
2228:
2221:
2222: -- If any severe error occurs, then, abort API.
2223: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2224: RAISE FND_API.G_EXC_ERROR;
2225: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2227: END IF;
2228:
2229: -- If the module type is JSP, then default values for ID columns of LOV attributes
2222: -- If any severe error occurs, then, abort API.
2223: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2224: RAISE FND_API.G_EXC_ERROR;
2225: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2227: END IF;
2228:
2229: -- If the module type is JSP, then default values for ID columns of LOV attributes
2230: IF ( p_module_type = 'JSP' ) THEN
2249: l_return_status -- OUT
2250: );
2251:
2252: -- If any severe error occurs, then, abort API.
2253: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2254: RAISE FND_API.G_EXC_ERROR;
2255: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2257: END IF;
2250: );
2251:
2252: -- If any severe error occurs, then, abort API.
2253: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2254: RAISE FND_API.G_EXC_ERROR;
2255: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2257: END IF;
2258: END IF;
2251:
2252: -- If any severe error occurs, then, abort API.
2253: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2254: RAISE FND_API.G_EXC_ERROR;
2255: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2257: END IF;
2258: END IF;
2259: END LOOP;
2252: -- If any severe error occurs, then, abort API.
2253: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2254: RAISE FND_API.G_EXC_ERROR;
2255: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2257: END IF;
2258: END IF;
2259: END LOOP;
2260:
2290: l_return_status -- OUT
2291: );
2292:
2293: -- If any severe error occurs, then, abort API.
2294: /* IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2295: RAISE FND_API.G_EXC_ERROR;
2296: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2298: END IF;*/
2291: );
2292:
2293: -- If any severe error occurs, then, abort API.
2294: /* IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2295: RAISE FND_API.G_EXC_ERROR;
2296: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2298: END IF;*/
2299:
2292:
2293: -- If any severe error occurs, then, abort API.
2294: /* IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2295: RAISE FND_API.G_EXC_ERROR;
2296: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2298: END IF;*/
2299:
2300: END LOOP;
2293: -- If any severe error occurs, then, abort API.
2294: /* IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2295: RAISE FND_API.G_EXC_ERROR;
2296: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2298: END IF;*/
2299:
2300: END LOOP;
2301:
2313: l_return_status -- OUT
2314: );
2315:
2316: -- If any severe error occurs, then, abort API.
2317: /* IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2318: RAISE FND_API.G_EXC_ERROR;
2319: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2321: END IF;*/
2314: );
2315:
2316: -- If any severe error occurs, then, abort API.
2317: /* IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2318: RAISE FND_API.G_EXC_ERROR;
2319: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2321: END IF;*/
2322: END IF;
2315:
2316: -- If any severe error occurs, then, abort API.
2317: /* IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2318: RAISE FND_API.G_EXC_ERROR;
2319: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2321: END IF;*/
2322: END IF;
2323: END LOOP;
2316: -- If any severe error occurs, then, abort API.
2317: /* IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2318: RAISE FND_API.G_EXC_ERROR;
2319: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2321: END IF;*/
2322: END IF;
2323: END LOOP;
2324:
2325: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2326: l_msg_count := FND_MSG_PUB.count_msg;
2327: IF l_msg_count > 0 THEN
2328: x_msg_count := l_msg_count;
2329: RAISE FND_API.G_EXC_ERROR;
2330: END IF;
2331:
2332:
2333: IF G_DEBUG = 'Y' THEN
2344: l_msg_data,
2345: l_return_status
2346: );
2347:
2348: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2349: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
2350: FND_MSG_PUB.ADD;
2351: x_return_status := l_return_status;
2352: RETURN;
2371: THEN
2372: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_efct_REC' );
2373: FND_MSG_PUB.add;
2374: CLOSE get_efct_rec;
2375: RAISE FND_API.G_EXC_ERROR;
2376: END IF;
2377: CLOSE get_efct_rec;
2378:
2379: -- Check if the Route is existing and in Draft status
2383: l_msg_data,
2384: l_return_status
2385: );
2386:
2387: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2388: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
2389: FND_MSG_PUB.ADD;
2390: x_return_status := l_return_status;
2391: RETURN;
2411: l_msg_data,
2412: l_return_status
2413: );
2414:
2415: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2416: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
2417: FND_MSG_PUB.ADD;
2418: x_return_status := l_return_status;
2419: RETURN;
2435: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2436: l_msg_count := FND_MSG_PUB.count_msg;
2437: IF l_msg_count > 0 THEN
2438: x_msg_count := l_msg_count;
2439: RAISE FND_API.G_EXC_ERROR;
2440: END IF;
2441:
2442: -- Perform the DML statement directly.
2443: FOR i IN 1..p_x_material_req_tbl.count LOOP
2616: IF ( SQL%ROWCOUNT = 0 ) THEN
2617: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
2618: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_tbl(i) ) );
2619: FND_MSG_PUB.add;
2620: RAISE FND_API.G_EXC_ERROR;
2621: END IF;
2622:
2623: -- Set OUT values
2624: p_x_material_req_tbl(i).object_version_number := p_x_material_req_tbl(i).object_version_number + 1;
2628: IF ( SQLCODE = -1 ) THEN
2629: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MATERIAL_REQ_REC_DUP' );
2630: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_material_req_tbl(i) ) );
2631: FND_MSG_PUB.add;
2632: RAISE FND_API.G_EXC_ERROR;
2633: ELSE
2634: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
2635: THEN
2636: fnd_log.string
2654: IF ( SQL%ROWCOUNT = 0 ) THEN
2655: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
2656: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
2657: FND_MSG_PUB.add;
2658: RAISE FND_API.G_EXC_ERROR;
2659: END IF;
2660:
2661: END IF;
2662: END LOOP;
2669: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2670: l_msg_count := FND_MSG_PUB.count_msg;
2671: IF l_msg_count > 0 THEN
2672: x_msg_count := l_msg_count;
2673: RAISE FND_API.G_EXC_ERROR;
2674: END IF;
2675:
2676: -- Perform cross records validations and duplicate records check
2677: validate_records
2680: p_association_type, -- IN
2681: l_return_status -- OUT
2682: );
2683: -- If any severe error occurs, then, abort API.
2684: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2685: RAISE FND_API.G_EXC_ERROR;
2686: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2688: END IF;
2681: l_return_status -- OUT
2682: );
2683: -- If any severe error occurs, then, abort API.
2684: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2685: RAISE FND_API.G_EXC_ERROR;
2686: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2688: END IF;
2689:
2682: );
2683: -- If any severe error occurs, then, abort API.
2684: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2685: RAISE FND_API.G_EXC_ERROR;
2686: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2688: END IF;
2689:
2690: IF G_DEBUG = 'Y' THEN
2683: -- If any severe error occurs, then, abort API.
2684: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2685: RAISE FND_API.G_EXC_ERROR;
2686: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2688: END IF;
2689:
2690: IF G_DEBUG = 'Y' THEN
2691: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME || ' : after validate_records' );
2691: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME || ' : after validate_records' );
2692: END IF;
2693:
2694: -- Perform the Commit (if requested)
2695: IF FND_API.to_boolean( p_commit ) THEN
2696: COMMIT WORK;
2697: END IF;
2698:
2699: -- Count and Get messages (optional)
2698:
2699: -- Count and Get messages (optional)
2700: FND_MSG_PUB.count_and_get
2701: (
2702: p_encoded => FND_API.G_FALSE,
2703: p_count => x_msg_count,
2704: p_data => x_msg_data
2705: );
2706:
2710: END IF;
2711:
2712: EXCEPTION
2713:
2714: WHEN FND_API.G_EXC_ERROR THEN
2715: ROLLBACK TO process_material_req_PVT;
2716: x_return_status := FND_API.G_RET_STS_ERROR ;
2717: FND_MSG_PUB.count_and_get
2718: (
2712: EXCEPTION
2713:
2714: WHEN FND_API.G_EXC_ERROR THEN
2715: ROLLBACK TO process_material_req_PVT;
2716: x_return_status := FND_API.G_RET_STS_ERROR ;
2717: FND_MSG_PUB.count_and_get
2718: (
2719: p_encoded => FND_API.G_FALSE,
2720: p_count => x_msg_count,
2715: ROLLBACK TO process_material_req_PVT;
2716: x_return_status := FND_API.G_RET_STS_ERROR ;
2717: FND_MSG_PUB.count_and_get
2718: (
2719: p_encoded => FND_API.G_FALSE,
2720: p_count => x_msg_count,
2721: p_data => x_msg_data
2722: );
2723:
2725: IF ( G_DEBUG = 'Y' ) THEN
2726: AHL_DEBUG_PUB.disable_debug;
2727: END IF;
2728:
2729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2730: ROLLBACK TO process_material_req_PVT;
2731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2732: FND_MSG_PUB.count_and_get
2733: (
2727: END IF;
2728:
2729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2730: ROLLBACK TO process_material_req_PVT;
2731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2732: FND_MSG_PUB.count_and_get
2733: (
2734: p_encoded => FND_API.G_FALSE,
2735: p_count => x_msg_count,
2730: ROLLBACK TO process_material_req_PVT;
2731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2732: FND_MSG_PUB.count_and_get
2733: (
2734: p_encoded => FND_API.G_FALSE,
2735: p_count => x_msg_count,
2736: p_data => x_msg_data
2737: );
2738:
2742: END IF;
2743:
2744: WHEN OTHERS THEN
2745: ROLLBACK TO process_material_req_PVT;
2746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2747: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2748: THEN
2749: FND_MSG_PUB.add_exc_msg
2750: (
2754: );
2755: END IF;
2756: FND_MSG_PUB.count_and_get
2757: (
2758: p_encoded => FND_API.G_FALSE,
2759: p_count => x_msg_count,
2760: p_data => x_msg_data
2761: );
2762:
2769:
2770: PROCEDURE process_route_efcts
2771: (
2772: p_api_version IN NUMBER := 1.0,
2773: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2774: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2775: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2776: p_default IN VARCHAR2 := FND_API.G_FALSE,
2777: p_module_type IN VARCHAR2 := NULL,
2770: PROCEDURE process_route_efcts
2771: (
2772: p_api_version IN NUMBER := 1.0,
2773: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2774: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2775: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2776: p_default IN VARCHAR2 := FND_API.G_FALSE,
2777: p_module_type IN VARCHAR2 := NULL,
2778: p_object_id IN NUMBER,
2771: (
2772: p_api_version IN NUMBER := 1.0,
2773: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2774: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2775: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2776: p_default IN VARCHAR2 := FND_API.G_FALSE,
2777: p_module_type IN VARCHAR2 := NULL,
2778: p_object_id IN NUMBER,
2779: x_return_status OUT NOCOPY VARCHAR2,
2772: p_api_version IN NUMBER := 1.0,
2773: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2774: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2775: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2776: p_default IN VARCHAR2 := FND_API.G_FALSE,
2777: p_module_type IN VARCHAR2 := NULL,
2778: p_object_id IN NUMBER,
2779: x_return_status OUT NOCOPY VARCHAR2,
2780: x_msg_count OUT NOCOPY NUMBER,
2799: l_x_operation_rec AHL_RM_OPERATION_PVT.operation_rec_type ;
2800: l_x_route_rec AHL_RM_ROUTE_PVT.route_rec_type ;
2801: BEGIN
2802: -- Initialize API return status to success
2803: x_return_status := FND_API.G_RET_STS_SUCCESS;
2804:
2805: -- Standard Start of API savepoint
2806: SAVEPOINT process_route_efcts;
2807:
2805: -- Standard Start of API savepoint
2806: SAVEPOINT process_route_efcts;
2807:
2808: -- Standard call to check for call compatibility.
2809: IF NOT FND_API.compatible_api_call
2810: (
2811: l_api_version,
2812: p_api_version,
2813: G_API_NAME1,
2813: G_API_NAME1,
2814: G_PKG_NAME
2815: )
2816: THEN
2817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2818: END IF;
2819:
2820: -- Initialize message list if p_init_msg_list is set to TRUE.
2821: IF FND_API.to_boolean( p_init_msg_list ) THEN
2817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2818: END IF;
2819:
2820: -- Initialize message list if p_init_msg_list is set to TRUE.
2821: IF FND_API.to_boolean( p_init_msg_list ) THEN
2822: FND_MSG_PUB.initialize;
2823: END IF;
2824:
2825: IF G_DEBUG = 'Y' THEN
2837: x_msg_data => x_msg_data
2838: );
2839:
2840: -- If any severe error occurs, then, abort API.
2841: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2842: RAISE FND_API.G_EXC_ERROR;
2843: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2845: END IF;
2838: );
2839:
2840: -- If any severe error occurs, then, abort API.
2841: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2842: RAISE FND_API.G_EXC_ERROR;
2843: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2845: END IF;
2846:
2839:
2840: -- If any severe error occurs, then, abort API.
2841: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2842: RAISE FND_API.G_EXC_ERROR;
2843: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2845: END IF;
2846:
2847: -- Validate all the inputs of the API
2840: -- If any severe error occurs, then, abort API.
2841: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2842: RAISE FND_API.G_EXC_ERROR;
2843: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2845: END IF;
2846:
2847: -- Validate all the inputs of the API
2848: validate_efct_api_inputs
2852: l_return_status
2853: );
2854:
2855: -- If any severe error occurs, then, abort API.
2856: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2857: RAISE FND_API.G_EXC_ERROR;
2858: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2860: END IF;
2853: );
2854:
2855: -- If any severe error occurs, then, abort API.
2856: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2857: RAISE FND_API.G_EXC_ERROR;
2858: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2860: END IF;
2861:
2854:
2855: -- If any severe error occurs, then, abort API.
2856: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2857: RAISE FND_API.G_EXC_ERROR;
2858: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2860: END IF;
2861:
2862: -- If the module type is JSP, then default values for ID columns of LOV attributes
2855: -- If any severe error occurs, then, abort API.
2856: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2857: RAISE FND_API.G_EXC_ERROR;
2858: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2860: END IF;
2861:
2862: -- If the module type is JSP, then default values for ID columns of LOV attributes
2863: IF ( p_module_type = 'JSP' ) THEN
2880: l_return_status
2881: );
2882:
2883: -- If any severe error occurs, then, abort API.
2884: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2885: RAISE FND_API.G_EXC_ERROR;
2886: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2887: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2888: END IF;
2881: );
2882:
2883: -- If any severe error occurs, then, abort API.
2884: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2885: RAISE FND_API.G_EXC_ERROR;
2886: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2887: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2888: END IF;
2889: END IF;
2882:
2883: -- If any severe error occurs, then, abort API.
2884: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2885: RAISE FND_API.G_EXC_ERROR;
2886: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2887: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2888: END IF;
2889: END IF;
2890: END LOOP;
2883: -- If any severe error occurs, then, abort API.
2884: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2885: RAISE FND_API.G_EXC_ERROR;
2886: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2887: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2888: END IF;
2889: END IF;
2890: END LOOP;
2891:
2901: l_return_status
2902: );
2903:
2904: -- If any severe error occurs, then, abort API.
2905: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2906: RAISE FND_API.G_EXC_ERROR;
2907: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2909: END IF;
2902: );
2903:
2904: -- If any severe error occurs, then, abort API.
2905: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2906: RAISE FND_API.G_EXC_ERROR;
2907: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2909: END IF;
2910: END LOOP;
2903:
2904: -- If any severe error occurs, then, abort API.
2905: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2906: RAISE FND_API.G_EXC_ERROR;
2907: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2909: END IF;
2910: END LOOP;
2911:
2904: -- If any severe error occurs, then, abort API.
2905: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2906: RAISE FND_API.G_EXC_ERROR;
2907: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2909: END IF;
2910: END LOOP;
2911:
2912: IF G_DEBUG = 'Y' THEN
2941: l_return_status
2942: );
2943:
2944: -- If any severe error occurs, then, abort API.
2945: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2946: RAISE FND_API.G_EXC_ERROR;
2947: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2949: END IF;
2942: );
2943:
2944: -- If any severe error occurs, then, abort API.
2945: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2946: RAISE FND_API.G_EXC_ERROR;
2947: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2949: END IF;
2950: END IF;
2943:
2944: -- If any severe error occurs, then, abort API.
2945: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2946: RAISE FND_API.G_EXC_ERROR;
2947: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2949: END IF;
2950: END IF;
2951: END LOOP;
2944: -- If any severe error occurs, then, abort API.
2945: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2946: RAISE FND_API.G_EXC_ERROR;
2947: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2949: END IF;
2950: END IF;
2951: END LOOP;
2952:
2968: l_msg_data,
2969: l_return_status
2970: );
2971:
2972: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2973: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
2974: FND_MSG_PUB.ADD;
2975: x_return_status := l_return_status;
2976: RETURN;
3153: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3154: l_msg_count := FND_MSG_PUB.count_msg;
3155: IF l_msg_count > 0 THEN
3156: x_msg_count := l_msg_count;
3157: RAISE FND_API.G_EXC_ERROR;
3158: END IF;
3159:
3160: -- Perform cross records validations and duplicate records check
3161:
3165: l_return_status
3166: );
3167:
3168: -- If any severe error occurs, then, abort API.
3169: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3170: RAISE FND_API.G_EXC_ERROR;
3171: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3173: END IF;
3166: );
3167:
3168: -- If any severe error occurs, then, abort API.
3169: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3170: RAISE FND_API.G_EXC_ERROR;
3171: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3173: END IF;
3174:
3167:
3168: -- If any severe error occurs, then, abort API.
3169: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3170: RAISE FND_API.G_EXC_ERROR;
3171: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3173: END IF;
3174:
3175: IF G_DEBUG = 'Y' THEN
3168: -- If any severe error occurs, then, abort API.
3169: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3170: RAISE FND_API.G_EXC_ERROR;
3171: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3173: END IF;
3174:
3175: IF G_DEBUG = 'Y' THEN
3176: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME1 || ' : after validate_records' );
3176: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME1 || ' : after validate_records' );
3177: END IF;
3178:
3179: -- Perform the Commit (if requested)
3180: IF FND_API.to_boolean( p_commit ) THEN
3181: COMMIT WORK;
3182: END IF;
3183:
3184: -- Count and Get messages (optional)
3183:
3184: -- Count and Get messages (optional)
3185: FND_MSG_PUB.count_and_get
3186: (
3187: p_encoded => FND_API.G_FALSE,
3188: p_count => x_msg_count,
3189: p_data => x_msg_data
3190: );
3191:
3194: AHL_DEBUG_PUB.disable_debug;
3195: END IF;
3196:
3197: EXCEPTION
3198: WHEN FND_API.G_EXC_ERROR THEN
3199: ROLLBACK TO process_route_efcts;
3200: x_return_status := FND_API.G_RET_STS_ERROR ;
3201: FND_MSG_PUB.count_and_get
3202: (
3196:
3197: EXCEPTION
3198: WHEN FND_API.G_EXC_ERROR THEN
3199: ROLLBACK TO process_route_efcts;
3200: x_return_status := FND_API.G_RET_STS_ERROR ;
3201: FND_MSG_PUB.count_and_get
3202: (
3203: p_encoded => FND_API.G_FALSE,
3204: p_count => x_msg_count,
3199: ROLLBACK TO process_route_efcts;
3200: x_return_status := FND_API.G_RET_STS_ERROR ;
3201: FND_MSG_PUB.count_and_get
3202: (
3203: p_encoded => FND_API.G_FALSE,
3204: p_count => x_msg_count,
3205: p_data => x_msg_data
3206: );
3207:
3209: IF G_DEBUG = 'Y' THEN
3210: AHL_DEBUG_PUB.disable_debug;
3211: END IF;
3212:
3213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3214: ROLLBACK TO process_route_efcts;
3215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3216: FND_MSG_PUB.count_and_get
3217: (
3211: END IF;
3212:
3213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3214: ROLLBACK TO process_route_efcts;
3215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3216: FND_MSG_PUB.count_and_get
3217: (
3218: p_encoded => FND_API.G_FALSE,
3219: p_count => x_msg_count,
3214: ROLLBACK TO process_route_efcts;
3215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3216: FND_MSG_PUB.count_and_get
3217: (
3218: p_encoded => FND_API.G_FALSE,
3219: p_count => x_msg_count,
3220: p_data => x_msg_data
3221: );
3222:
3226: END IF;
3227:
3228: WHEN OTHERS THEN
3229: ROLLBACK TO process_route_efcts;
3230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3231: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3232: THEN
3233: FND_MSG_PUB.add_exc_msg
3234: (
3238: );
3239: END IF;
3240: FND_MSG_PUB.count_and_get
3241: (
3242: p_encoded => FND_API.G_FALSE,
3243: p_count => x_msg_count,
3244: p_data => x_msg_data
3245: );
3246: