[Home] [Help]
54: l_api_name VARCHAR2(100) := 'CSE_IFA_TRANS_PKG.transfer_fa_distribution';
55: l_msg_index NUMBER ;
56: BEGIN
57:
58: cse_util_pkg.write_log('Performing FA distribution transfer.');
59:
60: l_from_units := -p_units;
61:
62: -- Select sequence number
65: from dual;
66:
67: -- Insert the FROM record into the FA_MASS_EXTERNAL_TRANSFERS interface table
68:
69: cse_util_pkg.write_log('Inserting record with MASS_EXTERNAL_TRANSFER_ID ' ||
70: l_seq_num);
71:
72: INSERT INTO fa_mass_external_transfers(batch_name,
73: mass_external_transfer_id,
110: from dual;
111:
112: -- Insert the TO record into the FA_MASS_EXTERNAL_TRANSFERS interface table
113:
114: cse_util_pkg.write_log('Inserting record with MASS_EXTERNAL_TRANSFER_ID ' ||
115: l_seq_num);
116:
117: INSERT INTO fa_mass_external_transfers(batch_name,
118: mass_external_transfer_id,
160: x_return_status => l_status,
161: x_msg_count => l_msg_count,
162: x_msg_data => l_msg_data);
163:
164: cse_util_pkg.write_log('Status from MODIFY_DISTRIBUTIONS: ' || l_status);
165: if (l_status <> FND_API.G_RET_STS_SUCCESS)
166: then
167: if (l_msg_count > 0)
168: then
179:
180: x_return_status := FND_API.G_RET_STS_ERROR;
181: x_new_from_dist_id := NULL;
182: x_new_to_dist_id := NULL;
183: cse_util_pkg.write_log('Error : '||x_error_msg);
184: raise MOD_DIST_FAIL;
185: else
186: -- Find out the new from distribution id
187: cse_util_pkg.write_log(' Find OUT NOCOPY the new from distribution id...');
183: cse_util_pkg.write_log('Error : '||x_error_msg);
184: raise MOD_DIST_FAIL;
185: else
186: -- Find out the new from distribution id
187: cse_util_pkg.write_log(' Find OUT NOCOPY the new from distribution id...');
188:
189: begin
190: SELECT distribution_id
191: INTO l_new_from_dist_id
200: when NO_DATA_FOUND then
201: l_new_from_dist_id := NULL;
202: end;
203:
204: cse_util_pkg.write_log(' new from distribution id: ' || l_new_from_dist_id);
205:
206: -- Find out the new to distribution id
207:
208: cse_util_pkg.write_log(' Find OUT NOCOPY the new to distribution id...');
204: cse_util_pkg.write_log(' new from distribution id: ' || l_new_from_dist_id);
205:
206: -- Find out the new to distribution id
207:
208: cse_util_pkg.write_log(' Find OUT NOCOPY the new to distribution id...');
209:
210: SELECT distribution_id
211: INTO l_new_to_dist_id
212: FROM fa_distribution_history
221: x_error_msg := NULL;
222: x_new_from_dist_id := l_new_from_dist_id;
223: x_new_to_dist_id := l_new_to_dist_id;
224:
225: cse_util_pkg.write_log(' new to distribution id: ' || l_new_to_dist_id);
226:
227: end if;
228:
229: EXCEPTION
317: book_type_code = p_book_type_code AND
318: date_ineffective is null;
319: BEGIN
320:
321: cse_util_pkg.write_log('Performing FA distribution unit adjustment.');
322:
323: -- Determine if the distribution exists or not
324:
325: open c_dist1;
327:
328: if (c_dist1%NOTFOUND) then -- Distribution does not exist
329: close c_dist1;
330: if (p_units < 0) then
331: cse_util_pkg.write_log('FA distribution does not exist for negative unit adjustment.');
332: raise NO_DIST_EXISTS;
333: end if;
334:
335: -- Pick an existing distribution to do an adjustment first and then a transfer
337: fetch c_dist2 into l_temp_dist_id;
338: if (c_dist2%NOTFOUND) then -- No valid distribution for the asset
339:
340: close c_dist2;
341: cse_util_pkg.write_log('No FA distribution exists for the asset to do unit adjustment.');
342: raise NO_DIST_EXISTS;
343:
344: else
345:
344: else
345:
346: close c_dist2;
347:
348: cse_util_pkg.write_log('Need to create a new distribution during unit adjustment.');
349: cse_util_pkg.write_log('A unit adjustment will first be done followed by a transfer.');
350:
351: -- First perform a unit adjustment
352:
345:
346: close c_dist2;
347:
348: cse_util_pkg.write_log('Need to create a new distribution during unit adjustment.');
349: cse_util_pkg.write_log('A unit adjustment will first be done followed by a transfer.');
350:
351: -- First perform a unit adjustment
352:
353: select location_id,
362: select fa_mass_external_transfers_s.nextval
363: into l_seq_num
364: from dual;
365:
366: cse_util_pkg.write_log('Inserting record with MASS_EXTERNAL_TRANSFER_ID ' ||
367: l_seq_num);
368:
369: INSERT INTO fa_mass_external_transfers(batch_name,
370: mass_external_transfer_id,
411: from dual;
412:
413: -- Insert the FROM record into the FA_MASS_EXTERNAL_TRANSFERS interface table
414:
415: cse_util_pkg.write_log('Inserting record with MASS_EXTERNAL_TRANSFER_ID ' ||
416: l_seq_num);
417:
418: INSERT INTO fa_mass_external_transfers(batch_name,
419: mass_external_transfer_id,
456: from dual;
457:
458: -- Insert the TO record into the FA_MASS_EXTERNAL_TRANSFERS interface table
459:
460: cse_util_pkg.write_log('Inserting record with MASS_EXTERNAL_TRANSFER_ID ' ||
461: l_seq_num);
462:
463: INSERT INTO fa_mass_external_transfers(batch_name,
464: mass_external_transfer_id,
506: x_return_status => l_status,
507: x_msg_count => l_msg_count,
508: x_msg_data => l_msg_data);
509:
510: cse_util_pkg.write_log('Status from MODIFY_DISTRIBUTIONS: ' || l_status);
511:
512: if (l_status <> FND_API.G_RET_STS_SUCCESS)
513: then
514: if (l_msg_count > 0)
525: end if ;
526:
527: x_return_status := FND_API.G_RET_STS_ERROR;
528: x_new_dist_id := NULL;
529: cse_util_pkg.write_log('Error : '||x_error_msg);
530: raise MOD_DIST_FAIL;
531:
532: else
533: -- Find out the new id for the temp distribution
573: from dual;
574:
575: -- Insert the record into the FA_MASS_EXTERNAL_TRANSFERS interface table
576:
577: cse_util_pkg.write_log('Distribution exists. Inserting record with MASS_EXTERNAL_TRANSFER_ID ' || l_seq_num);
578:
579: if (p_units < 0) then -- Subtracting
580:
581: INSERT INTO fa_mass_external_transfers(batch_name,
663: x_return_status => l_status,
664: x_msg_count => l_msg_count,
665: x_msg_data => l_msg_data);
666:
667: cse_util_pkg.write_log('Status from MODIFY_DISTRIBUTIONS: ' || l_status);
668:
669: if (l_status <> FND_API.G_RET_STS_SUCCESS)
670: then
671: if (l_msg_count > 0)
681: END LOOP;
682: end if ;
683: x_return_status := FND_API.G_RET_STS_ERROR;
684: x_new_dist_id := NULL;
685: cse_util_pkg.write_log('Error : '||x_error_msg);
686: raise MOD_DIST_FAIL;
687:
688: else
689: -- Find out the new distribution id