[Home] [Help]
19: -- HISTORY :
20:
21: -- 1998 Naga Vijayapuram o Created
22: -- 1999 Naga Vijayapuram o Modified - Included Validations
23: -- 12-NOV-02 Kiran Hegde o Removed all calls to PNP_DEBUG_PKG.
24: -- enable_file_debug().
25: -- 01-APR-05 piagrawa o Modified the signature to include org_id
26: -- and updated the calls to locations_itf and
27: -- space_allocations_itf to pass org_id as
748: ,x_source => loc.source);
749:
750: IF NOT( l_returnstatus = FND_API.G_RET_STS_SUCCESS) THEN
751: l_error_message := fnd_message.get;
752: pnp_debug_pkg.log(l_error_message);
753: raise INVALID_RECORD;
754: END IF;
755:
756: EXCEPTION
756: EXCEPTION
757:
758: WHEN OTHERS THEN
759: l_error_message := fnd_message.get;
760: pnp_debug_pkg.log(l_error_message);
761: pnp_debug_pkg.log(sqlerrm);
762: raise INVALID_RECORD;
763:
764: END;
757:
758: WHEN OTHERS THEN
759: l_error_message := fnd_message.get;
760: pnp_debug_pkg.log(l_error_message);
761: pnp_debug_pkg.log(sqlerrm);
762: raise INVALID_RECORD;
763:
764: END;
765:
766: put_log('Just after Insert');
767:
768: ELSIF (loc.ENTRY_TYPE IN ('U', 'R')) THEN
769:
770: pnp_debug_pkg.log('change date: ' || loc.change_date);
771: pnp_debug_pkg.log('location: ' || loc.location_id);
772:
773: --------------------------------------
774: -- Get the record to correct/update --
767:
768: ELSIF (loc.ENTRY_TYPE IN ('U', 'R')) THEN
769:
770: pnp_debug_pkg.log('change date: ' || loc.change_date);
771: pnp_debug_pkg.log('location: ' || loc.location_id);
772:
773: --------------------------------------
774: -- Get the record to correct/update --
775: --------------------------------------
793:
794: --------------------------------------
795: -- If building/land, get address --
796: --------------------------------------
797: pnp_debug_pkg.log('Address id = '|| v_loc_rec.address_id);
798: if (loc.location_type_lookup_code IN ( 'BUILDING' , 'LAND' ))
799: and v_loc_rec.address_id IS NOT NULL then
800:
801: BEGIN
864: x_return_message => l_return_message);
865:
866: if NOT ( l_returnStatus = FND_API.G_RET_STS_SUCCESS) then
867: l_error_message := fnd_message.get;
868: pnp_debug_pkg.put_log_msg(l_return_message);
869: raise INVALID_RECORD;
870: end if;
871:
872: put_log('Check for location gaps');
891: END IF;
892:
893: if NOT ( l_returnStatus = FND_API.G_RET_STS_SUCCESS) then
894: l_error_message := fnd_message.get;
895: pnp_debug_pkg.put_log_msg(l_return_message);
896: raise INVALID_RECORD;
897: end if;
898:
899: put_log('Check for active tenancies while bringing in the dates');
1150: put_log( 'U: Just after Correct/Update');
1151:
1152: IF NOT ( l_returnStatus = FND_API.G_RET_STS_SUCCESS) THEN
1153: l_error_message := fnd_message.get;
1154: pnp_debug_pkg.put_log_msg(l_return_message);
1155: RAISE INVALID_RECORD;
1156: END IF;
1157:
1158: EXCEPTION
1424: put_line(fnd_message.get);
1425:
1426: END IF;
1427:
1428: PNP_DEBUG_PKG.disable_file_debug;
1429:
1430: EXCEPTION
1431: WHEN NO_DATA_FOUND THEN
1432: put_line('EXCEPTION: NO_DATA_FOUND');
1434: errbuf := l_error_message;
1435: retcode := '2';
1436: put_line(errbuf);
1437: APP_EXCEPTION.raise_exception;
1438: PNP_DEBUG_PKG.disable_file_debug;
1439:
1440: WHEN OTHERS THEN
1441: put_line('EXCEPTION: OTHERS');
1442: If l_error_message is null then
1441: put_line('EXCEPTION: OTHERS');
1442: If l_error_message is null then
1443: l_error_message := fnd_message.get;
1444: end if;
1445: pnp_debug_pkg.put_log_msg(l_error_message);
1446: errbuf := l_error_message;
1447: retcode := '2';
1448: put_line(errbuf);
1449: APP_EXCEPTION.raise_exception;
1446: errbuf := l_error_message;
1447: retcode := '2';
1448: put_line(errbuf);
1449: APP_EXCEPTION.raise_exception;
1450: PNP_DEBUG_PKG.disable_file_debug;
1451:
1452: END LOCATIONS_ITF;
1453:
1454: -------------------------------------------------------------------------------