61:
62: IF p_batch_name IS NULL OR p_org_id IS NULL THEN
63: FND_MESSAGE.Set_Name('RRS','RRS_INV_PARAMETER_PASSED');
64: FND_MSG_PUB.Add;
65: RAISE FND_API.G_EXC_ERROR;
66: END IF ;
67:
68: FOR rec IN UPDATE_ADDRESS_CUR LOOP
69: UPDATE PN_LOCATIONS_ITF
129: DELETE FROM PN_LOCATIONS_ITF WHERE BATCH_NAME = p_batch_name ;
130: COMMIT ;
131: END IF ;
132: EXCEPTION
133: WHEN FND_API.G_EXC_ERROR THEN
134: retcode := '2';
135: errbuf := FND_MSG_PUB.GET;
136: RETURN ;
137: WHEN OTHERS THEN
154: l_retcode VARCHAR2(2000);
155: BEGIN
156:
157: x_msg_count := 0;
158: x_return_status := FND_API.G_RET_STS_SUCCESS;
159: l_conc_or_online := nvl(FND_PROFILE.VALUE('RRS_LOCATION_CREATION_MODE'),'ONLINE') ;
160:
161: IF l_conc_or_online = 'ONLINE' THEN
162: CREATE_PROPERTY_LOCATIONS
165: ,p_batch_name => p_batch_name
166: ,p_org_id => p_org_id
167: ) ;
168: IF l_retcode <> '0' THEN
169: Raise FND_API.G_EXC_ERROR;
170: END IF;
171: ELSE
172: CREATE_PROPERTY_LOCATIONS_CONC
173: (p_batch_name => p_batch_name
176: ,x_return_status => x_return_status
177: ,x_msg_count => x_msg_count
178: ,x_msg_data => x_msg_data
179: ) ;
180: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
181: Raise FND_API.G_EXC_ERROR;
182: END IF;
183: END IF;
184:
177: ,x_msg_count => x_msg_count
178: ,x_msg_data => x_msg_data
179: ) ;
180: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
181: Raise FND_API.G_EXC_ERROR;
182: END IF;
183: END IF;
184:
185: EXCEPTION
182: END IF;
183: END IF;
184:
185: EXCEPTION
186: WHEN FND_API.G_EXC_ERROR THEN
187: x_msg_count := FND_MSG_PUB.count_msg;
188: x_return_status := FND_API.G_RET_STS_ERROR;
189: WHEN OTHERS THEN
190: x_msg_count := FND_MSG_PUB.count_msg;
184:
185: EXCEPTION
186: WHEN FND_API.G_EXC_ERROR THEN
187: x_msg_count := FND_MSG_PUB.count_msg;
188: x_return_status := FND_API.G_RET_STS_ERROR;
189: WHEN OTHERS THEN
190: x_msg_count := FND_MSG_PUB.count_msg;
191: x_return_status := FND_API.G_RET_STS_ERROR;
192: END CREATE_PROPERTY_LOCATIONS_WRP ;
187: x_msg_count := FND_MSG_PUB.count_msg;
188: x_return_status := FND_API.G_RET_STS_ERROR;
189: WHEN OTHERS THEN
190: x_msg_count := FND_MSG_PUB.count_msg;
191: x_return_status := FND_API.G_RET_STS_ERROR;
192: END CREATE_PROPERTY_LOCATIONS_WRP ;
193:
194: PROCEDURE CREATE_PROPERTY_LOCATIONS_CONC
195: (p_batch_name IN VARCHAR2
203: -- PRAGMA AUTONOMOUS_TRANSACTION;
204: BEGIN
205:
206: x_msg_count := 0 ;
207: x_return_status := FND_API.G_RET_STS_SUCCESS;
208:
209: x_request_id := fnd_request.submit_request
210: (
211: application => 'RRS'
220: -- Throw an error if the request could not be submitted.
221: IF x_request_id = 0 THEN
222: FND_MESSAGE.Set_Name('RRS','RRS_CON_REQUEST_FAILED');
223: FND_MSG_PUB.Add;
224: RAISE FND_API.G_EXC_ERROR;
225: END IF;
226: COMMIT ;
227:
228: EXCEPTION
225: END IF;
226: COMMIT ;
227:
228: EXCEPTION
229: WHEN FND_API.G_EXC_ERROR THEN
230: x_msg_count := FND_MSG_PUB.COUNT_MSG;
231: x_return_status := FND_API.G_RET_STS_ERROR;
232: WHEN OTHERS THEN
233: x_return_status := 'E' ;
227:
228: EXCEPTION
229: WHEN FND_API.G_EXC_ERROR THEN
230: x_msg_count := FND_MSG_PUB.COUNT_MSG;
231: x_return_status := FND_API.G_RET_STS_ERROR;
232: WHEN OTHERS THEN
233: x_return_status := 'E' ;
234: x_msg_count := FND_MSG_PUB.COUNT_MSG;
235: END CREATE_PROPERTY_LOCATIONS_CONC ;