[Home] [Help]
55: END IF;
56:
57: IF FND_API.TO_BOOLEAN(p_init_msg_list)
58: THEN
59: FND_MSG_PUB.initialize;
60: END IF;
61:
62: -- Initialize API return status to success
63: x_return_status := FND_API.G_RET_STS_SUCCESS;
68: or p_inventory_item_id is null
69: or p_organization_id is null then
70: FND_MESSAGE.SET_NAME('INV', 'INV_FIELD_INVALID');
71: FND_MESSAGE.SET_TOKEN('ENTITY1', 'p_serial_number');
72: FND_MSG_PUB.ADD;
73: l_return_status := 'E';
74: RAISE FND_API.G_EXC_ERROR;
75: else
76: l_serial_number := p_serial_number;
100: or p_parent_inventory_item_id is null
101: or p_parent_organization_id is null then
102: FND_MESSAGE.SET_NAME('INV', 'INV_FIELD_INVALID');
103: FND_MESSAGE.SET_TOKEN('ENTITY1', 'p_serial_number');
104: FND_MSG_PUB.ADD;
105: l_return_status := 'E';
106: RAISE FND_API.G_EXC_ERROR;
107: else
108: select gen_object_id into l_parent_object_id
130: and wdj.status_type in (1,3,6);
131:
132: if l_charge_object_id <> l_parent_object_id then
133: FND_MESSAGE.SET_NAME('EAM', 'EAM_CURRENT_WO_WITH_CHARGE_ASSET');
134: FND_MSG_PUB.ADD;
135: l_return_status := 'E';
136: RAISE FND_API.G_EXC_ERROR;
137: end if;
138: exception
149:
150: exception
151: when no_data_found then
152: FND_MESSAGE.SET_NAME('EAM', 'EAM_INVALID_CURRENT_STATUS');
153: FND_MSG_PUB.ADD;
154: l_return_status := 'E';
155: RAISE FND_API.G_EXC_ERROR;
156: end;
157:
192: if p_start_date_active > sysdate OR (p_end_date_active is not null
193: and p_end_date_active > sysdate) then
194: l_return_status := 'E';
195: FND_MESSAGE.SET_NAME('EAM', 'EAM_REBUILD_FUTURE_TXN');
196: FND_MSG_PUB.ADD;
197: RAISE FND_API.G_EXC_ERROR;
198: elsif (p_start_date_active < sysdate and
199: (p_end_date_active is not null and p_end_date_active < sysdate)) then
200: l_txn_id := null;
209:
210: exception
211: when others then
212: FND_MESSAGE.SET_NAME('EAM', 'EAM_NO_OFFSET_ACCOUNT');
213: FND_MSG_PUB.ADD;
214: RAISE FND_API.G_EXC_ERROR;
215: end;
216:
217: -- Transaction processing API is called
250: l_txn_id := null;
251: l_return_status := 'S';
252: else
253: FND_MESSAGE.SET_NAME('EAM', 'EAM_INVALID_CURRENT_STATUS');
254: FND_MSG_PUB.ADD;
255: l_return_status := 'E';
256: RAISE FND_API.G_EXC_ERROR;
257: end if;
258:
257: end if;
258:
259: if l_return_status = 'S' then
260:
261: FND_MSG_PUB.initialize;
262: inv_genealogy_pub.insert_genealogy(
263: p_api_version => l_api_version
264: , p_object_type => 2
265: , p_parent_object_type => 2
294: exception
295: WHEN FND_API.G_EXC_ERROR THEN
296: ROLLBACK TO eam_rebuild_genealogy;
297: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
298: FND_MSG_PUB.Count_And_Get
299: ( p_encoded => FND_API.G_FALSE,
300: p_count => x_msg_count ,
301: p_data => x_msg_data
302: );
303:
304: WHEN OTHERS THEN
305: ROLLBACK TO eam_rebuild_genealogy;
306: x_return_status := FND_API.G_RET_STS_ERROR;
307: FND_MSG_PUB.Count_And_Get
308: ( p_encoded => FND_API.G_FALSE,
309: p_count => x_msg_count ,
310: p_data => x_msg_data
311: );
367: END IF;
368:
369: IF FND_API.TO_BOOLEAN(p_init_msg_list)
370: THEN
371: FND_MSG_PUB.initialize;
372: END IF;
373:
374: -- Initialize API return status to success
375: x_return_status := FND_API.G_RET_STS_SUCCESS;
381: or p_inventory_item_id is null
382: or p_organization_id is null then
383: FND_MESSAGE.SET_NAME('INV', 'INV_FIELD_INVALID');
384: FND_MESSAGE.SET_TOKEN('ENTITY1', 'p_serial_number');
385: FND_MSG_PUB.ADD;
386: l_return_status := 'E';
387: RAISE FND_API.G_EXC_ERROR;
388: else
389: l_serial_number := p_serial_number;
398: and current_organization_id = p_organization_id;
399: exception
400: when others then
401: FND_MESSAGE.SET_NAME('INV', 'INV_EAM_GEN_INVALID_OBJECT');
402: FND_MSG_PUB.ADD;
403: l_return_status := 'E';
404: RAISE FND_API.G_EXC_ERROR;
405: end;
406: end if;
418:
419: exception
420: when others then
421: FND_MESSAGE.SET_NAME('INV', 'INV_EAM_GEN_INVALID_OBJECT');
422: FND_MSG_PUB.ADD;
423: l_return_status := 'E';
424: RAISE FND_API.G_EXC_ERROR;
425: end;
426: else
444: exception
445: when others then
446: l_return_status := 'E';
447: FND_MESSAGE.SET_NAME('EAM', 'EAM_NO_SUBINV_SPECIFIED');
448: FND_MSG_PUB.ADD;
449: RAISE FND_API.G_EXC_ERROR;
450: end;
451: else
452: l_subinventory := p_subinventory;
475:
476: if p_end_date_active is not null and p_end_date_active > sysdate then
477: l_return_status := 'E';
478: FND_MESSAGE.SET_NAME('EAM', 'EAM_REBUILD_FUTURE_TXN');
479: FND_MSG_PUB.ADD;
480: RAISE FND_API.G_EXC_ERROR;
481: else
482:
483: -- obtain the offset account id from user-defined EAM parameters
488:
489: exception
490: when others then
491: FND_MESSAGE.SET_NAME('EAM', 'EAM_NO_OFFSET_ACCOUNT');
492: FND_MSG_PUB.ADD;
493: RAISE FND_API.G_EXC_ERROR;
494: end;
495:
496: -- call the Transaction processing API
524: end if;
525:
526: if l_return_status = 'S' then
527: --dbms_output.put_line('got here 4');
528: FND_MSG_PUB.initialize;
529: inv_genealogy_pub.update_genealogy(
530: p_api_version => l_api_version
531: , p_object_type => 2
532: , p_object_number => l_serial_number
555: exception
556: WHEN FND_API.G_EXC_ERROR THEN
557: ROLLBACK TO eam_rebuild_genealogy;
558: x_return_status := l_RETURN_STATUS;
559: FND_MSG_PUB.Count_And_Get
560: ( p_encoded => FND_API.G_FALSE,
561: p_count => x_msg_count ,
562: p_data => x_msg_data
563: );
563: );
564: WHEN OTHERS THEN
565: ROLLBACK TO eam_rebuild_genealogy;
566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
567: FND_MSG_PUB.Count_And_Get
568: ( p_encoded => FND_API.G_FALSE,
569: p_count => x_msg_count ,
570: p_data => x_msg_data
571: );