90: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Calling enc_batch_begin');
91:
92: enc_batch_begin(p_payroll_action_id, p_payroll_id, p_action_type, l_return_status);
93:
94: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: END IF;
97: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After enc_batch_begin');
98: / ******* No control record found. Exiting from the program successfully ******* /
91:
92: enc_batch_begin(p_payroll_action_id, p_payroll_id, p_action_type, l_return_status);
93:
94: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: END IF;
97: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After enc_batch_begin');
98: / ******* No control record found. Exiting from the program successfully ******* /
99: IF g_control_rec_found = 'FALSE'
100: THEN
101: --insert into psp_Stout values(99, 'no control rec found');
102: fnd_message.set_name('PSP','PSP_ENC_NO_LIQ_REC_FOUND');
103: fnd_msg_pub.add;
104: retcode := FND_API.G_RET_STS_SUCCESS;
105:
106: -- Added code for error message handler by Bijoy , 27-Jul-1999
107:
108: / *psp_message_s.print_error(p_mode => FND_FILE.LOG,
105:
106: -- Added code for error message handler by Bijoy , 27-Jul-1999
107:
108: / *psp_message_s.print_error(p_mode => FND_FILE.LOG,
109: p_print_header => FND_API.G_TRUE);* /
110: if p_action_type IN ('L', 'T') then
111: PSP_MESSAGE_S.Print_success;
112: end if;
113: return;
119: IF p_action_type in ('U','Q') then
120: if fnd_profile.value('PSP_ENC_ENABLE_PQH') ='Y' then
121: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Calling pqh_psp_integration.relieve_budget_commitments');
122: pqh_psp_integration.relieve_budget_commitments('L', l_return_status);
123: If l_return_status <>FND_API.G_RET_STS_SUCCESS THEN
124: fnd_message.set_name('PSP','PSP_ENC_PQH_ERROR');
125: fnd_msg_pub.add;
126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
127:
122: pqh_psp_integration.relieve_budget_commitments('L', l_return_status);
123: If l_return_status <>FND_API.G_RET_STS_SUCCESS THEN
124: fnd_message.set_name('PSP','PSP_ENC_PQH_ERROR');
125: fnd_msg_pub.add;
126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
127:
128:
129: end if;
130: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After pqh_psp_integration.relieve_budget_commitments');
141: p_action_type,
142: l_return_status
143: );
144:
145: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
146: --insert into psp_stout values(11,'unex error in gl_enc');
147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
148: END IF;
149: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After create_gl_enc_liq_lines');
143: );
144:
145: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
146: --insert into psp_stout values(11,'unex error in gl_enc');
147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
148: END IF;
149: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After create_gl_enc_liq_lines');
150: l_phase_status := 11 ; / * gl enc liq lines created in ist run * /
151: -- insert into psp_stout values( 'l_phase '||l_phase_status );
167: p_action_type, -- Added for Restart Update Enh.
168: l_return_status
169: );
170:
171: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
173: END IF;
174: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After tr_to_gl_int
175: Calling create_gms_enc_liq_lines');
168: l_return_status
169: );
170:
171: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
173: END IF;
174: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After tr_to_gl_int
175: Calling create_gms_enc_liq_lines');
176:
183: p_action_type,
184: l_return_status
185: );
186:
187: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
189: END IF;
190: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After create_gms_enc_liq_lines');
191:
184: l_return_status
185: );
186:
187: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
189: END IF;
190: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After create_gms_enc_liq_lines');
191:
192: l_phase_status := 13 ; / * gms enc liq lines created in ist run * /
213: l_return_status
214: );
215:
216:
217: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219: END IF;
220: -- end if;
221: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After tr_to_gms_int');
214: );
215:
216:
217: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219: END IF;
220: -- end if;
221: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After tr_to_gms_int');
222:
233: tr_to_gl_int (p_payroll_id,
234: p_action_type,
235: l_return_status);
236:
237: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
239: END IF;
240: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After tr_to_gl_int');
241:
234: p_action_type,
235: l_return_status);
236:
237: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
239: END IF;
240: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After tr_to_gl_int');
241:
242: l_phase_status := 16 ; / * gl transfer success in 2nd run * /
250: p_action_type,
251: l_return_status
252: );
253:
254: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
256: END IF;
257:
258: l_phase_status := 15 ; / * gl enc liq lines created in 2nd run * /
251: l_return_status
252: );
253:
254: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
256: END IF;
257:
258: l_phase_status := 15 ; / * gl enc liq lines created in 2nd run * /
259: --insert_into_psp_stout( 'l_phase '||l_phase_status );
272: p_action_type, -- Added for Restart Update Enh.
273: l_return_status
274: );
275:
276: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
278: END IF;
279:
280: l_phase_status := 16 ; / * gl transfer success in 2nd run * /
273: l_return_status
274: );
275:
276: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
278: END IF;
279:
280: l_phase_status := 16 ; / * gl transfer success in 2nd run * /
281: --insert_into_psp_stout( 'l_phase '||l_phase_status );
285: p_action_type,
286: l_return_status
287: );
288:
289: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
291: END IF;
292:
293: l_phase_status := 17 ; / * gms enc liq lines created in 2nd run * /
286: l_return_status
287: );
288:
289: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
291: END IF;
292:
293: l_phase_status := 17 ; / * gms enc liq lines created in 2nd run * /
294: --insert_into_psp_stout( 'l_phase '||l_phase_status );
309: p_action_type, -- Added for Restart Update Enh.
310: l_return_status
311: );
312:
313: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
315: END IF;
316: -- end if;
317:
310: l_return_status
311: );
312:
313: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
315: END IF;
316: -- end if;
317:
318: l_phase_status := 18 ; / * gms transfer success 2nd run * /
330: g_sob_id,
331: l_return_status
332: );
333:
334: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
336: END IF;
337: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After enc_batch_end');
338: -- retcode := FND_API.G_RET_STS_SUCCESS;
331: l_return_status
332: );
333:
334: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
336: END IF;
337: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After enc_batch_end');
338: -- retcode := FND_API.G_RET_STS_SUCCESS;
339: -- Replaced default successful return status with warning / success based on failed transactions check
334: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
336: END IF;
337: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After enc_batch_end');
338: -- retcode := FND_API.G_RET_STS_SUCCESS;
339: -- Replaced default successful return status with warning / success based on failed transactions check
340: IF (g_liq_has_failed_transactions) THEN
341: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' g_liq_has_failed_transactions: TRUE');
342: retcode := fnd_api.g_ret_sts_error;
338: -- retcode := FND_API.G_RET_STS_SUCCESS;
339: -- Replaced default successful return status with warning / success based on failed transactions check
340: IF (g_liq_has_failed_transactions) THEN
341: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' g_liq_has_failed_transactions: TRUE');
342: retcode := fnd_api.g_ret_sts_error;
343: fnd_message.set_name('PSP','PSP_ENC_LIQ_TRANS_FAILED');
344: fnd_msg_pub.add;
345: psp_message_s.print_error(p_mode => FND_FILE.LOG,
346: p_print_header => FND_API.G_TRUE);
342: retcode := fnd_api.g_ret_sts_error;
343: fnd_message.set_name('PSP','PSP_ENC_LIQ_TRANS_FAILED');
344: fnd_msg_pub.add;
345: psp_message_s.print_error(p_mode => FND_FILE.LOG,
346: p_print_header => FND_API.G_TRUE);
347: ELSE
348: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' g_liq_has_failed_transactions: FALSE');
349: retcode := FND_API.G_RET_STS_SUCCESS;
350: END IF;
345: psp_message_s.print_error(p_mode => FND_FILE.LOG,
346: p_print_header => FND_API.G_TRUE);
347: ELSE
348: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' g_liq_has_failed_transactions: FALSE');
349: retcode := FND_API.G_RET_STS_SUCCESS;
350: END IF;
351: -- End of changes for Enh. removal of suspense posting in liquidation.
352:
353: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving ENC_LIQ_TRANS');
353: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving ENC_LIQ_TRANS');
354: -- Added code for error message handler by Bijoy , 27-Jul-1999
355:
356: / *psp_message_s.print_error(p_mode => FND_FILE.LOG,
357: p_print_header => FND_API.G_TRUE);* /
358: if p_action_type ='L' then
359: PSP_MESSAGE_S.Print_success;
360: end if;
361: EXCEPTION
358: if p_action_type ='L' then
359: PSP_MESSAGE_S.Print_success;
360: end if;
361: EXCEPTION
362: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
363: / * Bug 20393936: commented call to batch_end proc and introduced ROLLBACK * /
364: ROLLBACK;
365: / *
366: enc_batch_end( p_payroll_id,
367: p_Action_type,
368: l_return_status
369: );
370:
371: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
373: END IF; * /
374:
375: g_error_api_path := 'ENC_LIQ_TRANS:'||g_error_api_path;
368: l_return_status
369: );
370:
371: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
373: END IF; * /
374:
375: g_error_api_path := 'ENC_LIQ_TRANS:'||g_error_api_path;
376: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','ENC_LIQ_TRANS');
378: -- Added code for error message handler by Bijoy , 27-Jul-1999
379:
380: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving ENC_LIQ_TRANS');
381: psp_message_s.print_error(p_mode => FND_FILE.LOG,
382: p_print_header => FND_API.G_TRUE);
383: return;
384: WHEN OTHERS THEN
385: / * Bug 20393936: commented call to batch_end proc and introduced ROLLBACK * /
386: ROLLBACK;
389: p_Action_type,
390: l_return_status
391: );
392:
393: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
395: END IF; * /
396:
397: g_error_api_path := 'ENC_LIQ_TRANS:'||g_error_api_path;
390: l_return_status
391: );
392:
393: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
395: END IF; * /
396:
397: g_error_api_path := 'ENC_LIQ_TRANS:'||g_error_api_path;
398: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','ENC_LIQ_TRANS');
400: -- Added code for error message handler by Bijoy , 27-Jul-1999
401:
402: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving ENC_LIQ_TRANS');
403: psp_message_s.print_error(p_mode => FND_FILE.LOG,
404: p_print_header => FND_API.G_TRUE);
405: return;
406: END enc_liq_trans;
407: End of comment for create and update multi thread enh. *****/
408:
448: g_g_liq_has_failed_transactions: FALSE');
449:
450: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Calling enc_batch_begin');
451: enc_batch_begin(p_payroll_action_id, l_return_status);
452: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
454: END IF;
455: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After enc_batch_begin');
456:
449:
450: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Calling enc_batch_begin');
451: enc_batch_begin(p_payroll_action_id, l_return_status);
452: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
454: END IF;
455: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After enc_batch_begin');
456:
457: IF (g_control_rec_found = 'FALSE') THEN
456:
457: IF (g_control_rec_found = 'FALSE') THEN
458: fnd_message.set_name('PSP','PSP_ENC_NO_LIQ_REC_FOUND');
459: fnd_msg_pub.add;
460: p_return_status := FND_API.G_RET_STS_SUCCESS;
461: RETURN;
462: END IF;
463:
464: IF (fnd_profile.value('PSP_ENC_ENABLE_PQH') ='Y') THEN
464: IF (fnd_profile.value('PSP_ENC_ENABLE_PQH') ='Y') THEN
465: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Calling pqh_psp_integration.relieve_budget_commitments');
466: pqh_psp_integration.relieve_budget_commitments('L', l_return_status);
467:
468: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
469: fnd_message.set_name('PSP','PSP_ENC_PQH_ERROR');
470: fnd_msg_pub.add;
471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
472: END IF;
467:
468: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
469: fnd_message.set_name('PSP','PSP_ENC_PQH_ERROR');
470: fnd_msg_pub.add;
471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
472: END IF;
473: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After pqh_psp_integration.relieve_budget_commitments');
474: END IF;
475:
481:
482: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Calling tr_to_gl_int');
483: tr_to_gl_int(p_payroll_action_id, l_return_status);
484:
485: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
487: END IF;
488: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After tr_to_gl_int');
489:
482: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Calling tr_to_gl_int');
483: tr_to_gl_int(p_payroll_action_id, l_return_status);
484:
485: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
487: END IF;
488: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After tr_to_gl_int');
489:
490: IF FND_PROFILE.VALUE('PSP_ST_EXTENSION_ENABLE') = 'Y' THEN
495:
496: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Calling tr_to_gms_int');
497: tr_to_gms_int(p_payroll_action_id, l_return_status);
498:
499: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
501: END IF;
502: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After tr_to_gms_int');
503:
496: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Calling tr_to_gms_int');
497: tr_to_gms_int(p_payroll_action_id, l_return_status);
498:
499: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
501: END IF;
502: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After tr_to_gms_int');
503:
504: IF (g_gl_run) THEN
504: IF (g_gl_run) THEN
505: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Calling tr_to_gl_int');
506: tr_to_gl_int (p_payroll_action_id, l_return_status);
507:
508: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
510: END IF;
511: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After tr_to_gl_int');
512: END IF;
505: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Calling tr_to_gl_int');
506: tr_to_gl_int (p_payroll_action_id, l_return_status);
507:
508: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
510: END IF;
511: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After tr_to_gl_int');
512: END IF;
513:
514: IF (g_liq_has_failed_transactions) THEN
515: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' g_liq_has_failed_transactions: TRUE');
516: fnd_message.set_name('PSP','PSP_ENC_LIQ_TRANS_FAILED');
517: fnd_msg_pub.add;
518: psp_message_s.print_error(p_mode => FND_FILE.LOG, p_print_header => FND_API.G_TRUE);
519: p_return_status := fnd_api.g_ret_sts_error;
520: ELSE
521: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' g_liq_has_failed_transactions: FALSE');
522: p_return_status := FND_API.G_RET_STS_SUCCESS;
515: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' g_liq_has_failed_transactions: TRUE');
516: fnd_message.set_name('PSP','PSP_ENC_LIQ_TRANS_FAILED');
517: fnd_msg_pub.add;
518: psp_message_s.print_error(p_mode => FND_FILE.LOG, p_print_header => FND_API.G_TRUE);
519: p_return_status := fnd_api.g_ret_sts_error;
520: ELSE
521: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' g_liq_has_failed_transactions: FALSE');
522: p_return_status := FND_API.G_RET_STS_SUCCESS;
523: END IF;
518: psp_message_s.print_error(p_mode => FND_FILE.LOG, p_print_header => FND_API.G_TRUE);
519: p_return_status := fnd_api.g_ret_sts_error;
520: ELSE
521: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' g_liq_has_failed_transactions: FALSE');
522: p_return_status := FND_API.G_RET_STS_SUCCESS;
523: END IF;
524:
525: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Calling enc_batch_end');
526: enc_batch_end(p_payroll_action_id, p_business_group_id, p_set_of_books_id, l_return_status);
523: END IF;
524:
525: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Calling enc_batch_end');
526: enc_batch_end(p_payroll_action_id, p_business_group_id, p_set_of_books_id, l_return_status);
527: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
528: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
529: END IF;
530: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After enc_batch_end');
531: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving LIQ_TRANS');
524:
525: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Calling enc_batch_end');
526: enc_batch_end(p_payroll_action_id, p_business_group_id, p_set_of_books_id, l_return_status);
527: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
528: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
529: END IF;
530: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After enc_batch_end');
531: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving LIQ_TRANS');
532: EXCEPTION
529: END IF;
530: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After enc_batch_end');
531: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving LIQ_TRANS');
532: EXCEPTION
533: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
534: g_error_api_path := 'ENC_LIQ_TRANS:'||g_error_api_path;
535: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','ENC_LIQ_TRANS');
536: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving ENC_LIQ_TRANS');
537: psp_message_s.print_error(p_mode => FND_FILE.LOG, p_print_header => FND_API.G_TRUE);
533: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
534: g_error_api_path := 'ENC_LIQ_TRANS:'||g_error_api_path;
535: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','ENC_LIQ_TRANS');
536: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving ENC_LIQ_TRANS');
537: psp_message_s.print_error(p_mode => FND_FILE.LOG, p_print_header => FND_API.G_TRUE);
538: p_return_status := fnd_api.g_ret_sts_unexp_error;
539: WHEN OTHERS THEN
540: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
541: g_error_api_path := 'ENC_LIQ_TRANS:'||g_error_api_path;
534: g_error_api_path := 'ENC_LIQ_TRANS:'||g_error_api_path;
535: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','ENC_LIQ_TRANS');
536: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving ENC_LIQ_TRANS');
537: psp_message_s.print_error(p_mode => FND_FILE.LOG, p_print_header => FND_API.G_TRUE);
538: p_return_status := fnd_api.g_ret_sts_unexp_error;
539: WHEN OTHERS THEN
540: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
541: g_error_api_path := 'ENC_LIQ_TRANS:'||g_error_api_path;
542: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','ENC_LIQ_TRANS');
540: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
541: g_error_api_path := 'ENC_LIQ_TRANS:'||g_error_api_path;
542: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','ENC_LIQ_TRANS');
543: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving ENC_LIQ_TRANS');
544: psp_message_s.print_error(p_mode => FND_FILE.LOG, p_print_header => FND_API.G_TRUE);
545: p_return_status := fnd_api.g_ret_sts_unexp_error;
546: END enc_liq_trans;
547: -- End of changes for Create and update multi thread enh.
548: -- #######################################################################
541: g_error_api_path := 'ENC_LIQ_TRANS:'||g_error_api_path;
542: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','ENC_LIQ_TRANS');
543: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving ENC_LIQ_TRANS');
544: psp_message_s.print_error(p_mode => FND_FILE.LOG, p_print_header => FND_API.G_TRUE);
545: p_return_status := fnd_api.g_ret_sts_unexp_error;
546: END enc_liq_trans;
547: -- End of changes for Create and update multi thread enh.
548: -- #######################################################################
549: -- This procedure begins the encumbrance liquidation process
925: FETCH enc_control_cur1 INTO enc_control_rec1;
926: IF enc_control_cur1%rowcount = 0
927: then
928: g_control_rec_found := 'FALSE';
929: p_return_status := fnd_api.g_ret_sts_success;
930: EXIT;
931: end if;
932: IF enc_control_cur1%NOTFOUND THEN
933: CLOSE enc_control_cur1;
951: FETCH enc_control_cur2 INTO enc_control_rec2;
952: IF enc_control_cur2%rowcount = 0
953: then
954: g_control_rec_found := 'FALSE';
955: p_return_status := fnd_api.g_ret_sts_success;
956: EXIT;
957: end if;
958: IF enc_control_cur2%NOTFOUND THEN
959: CLOSE enc_control_cur2;
978: FETCH enc_control_cur3 INTO enc_control_rec3;
979: IF enc_control_cur3%rowcount = 0
980: then
981: g_control_rec_found := 'FALSE';
982: p_return_status := fnd_api.g_ret_sts_success;
983: EXIT;
984: end if;
985: IF enc_control_cur3%NOTFOUND THEN
986: CLOSE enc_control_cur3;
1221: LPAD(r_summary_lines.summary_lines_count(recno), 15, ' '));
1222: END LOOP;
1223:
1224: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving ENC_BATCH_BEGIN');
1225: p_return_status := fnd_api.g_ret_sts_success;
1226: END enc_batch_begin;
1227:
1228: -- ##########################################################################
1229: -- This procedure ends the encumbrance liquidation process
1548: p_set_of_books_id,
1549: p_return_status);
1550: END IF;
1551:
1552: IF p_return_status <> fnd_api.g_ret_sts_success THEN
1553: RAISE fnd_api.g_exc_unexpected_error;
1554: END IF;
1555: END IF;
1556: End of comment for Create and Update multi thread *****/
1549: p_return_status);
1550: END IF;
1551:
1552: IF p_return_status <> fnd_api.g_ret_sts_success THEN
1553: RAISE fnd_api.g_exc_unexpected_error;
1554: END IF;
1555: END IF;
1556: End of comment for Create and Update multi thread *****/
1557:
1598:
1599: COMMIT;
1600: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Committing ');
1601:
1602: p_return_status := fnd_api.g_ret_sts_success;
1603:
1604: OPEN summary_lines_cur;
1605: FETCH summary_lines_cur BULK COLLECT INTO r_summary_lines.person_id, r_summary_lines.full_name,
1606: r_summary_lines.employee_number, r_summary_lines.assignment_id,
1894: p_business_group_id,
1895: p_set_of_books_id,
1896: p_return_status);
1897: end if;
1898: IF p_return_status = fnd_api.g_ret_sts_success THEN
1899: COMMIT;
1900: ELSE
1901: RAISE fnd_api.g_exc_unexpected_error;
1902: END IF;
1897: end if;
1898: IF p_return_status = fnd_api.g_ret_sts_success THEN
1899: COMMIT;
1900: ELSE
1901: RAISE fnd_api.g_exc_unexpected_error;
1902: END IF;
1903: end if;
1904: ---END IF;
1905:
1903: end if;
1904: ---END IF;
1905:
1906: / * Added For Restart Update/Quick Update Encumbrance Lines Enh. * /
1907: p_return_status := fnd_api.g_ret_sts_success;/ * pulled this line from below commit * /
1908: ---IF p_mode = 'N' THEN / * Call the house keeping step only in normal mode * /
1909:
1910: / * Commented for Restart Update/Quick Update Encumbrance Lines Enh.
1911: and the same code is moved to PSPENUPB
1950: p_action_type,
1951: p_business_group_id,
1952: p_set_of_books_id,
1953: l_status_code);
1954: IF (l_status_code <> fnd_api.g_ret_sts_success) THEN
1955: g_error_api_path := 'MOVE_QKUPD_REC_TO_HIST: ' || g_error_api_path;
1956: RAISE fnd_api.g_exc_unexpected_error;
1957: END IF;
1958: END IF;
1952: p_set_of_books_id,
1953: l_status_code);
1954: IF (l_status_code <> fnd_api.g_ret_sts_success) THEN
1955: g_error_api_path := 'MOVE_QKUPD_REC_TO_HIST: ' || g_error_api_path;
1956: RAISE fnd_api.g_exc_unexpected_error;
1957: END IF;
1958: END IF;
1959: COMMIT;
1960: END IF;
1959: COMMIT;
1960: END IF;
1961: -- End of Enh. fix 2143723
1962:
1963: p_return_status := fnd_api.g_ret_sts_success;
1964: * /
1965: END enc_batch_end;
1966: End of comment for bug fix 4625734 ****/
1967:
2284: WHERE enc_control_id = r_liq_lines.enc_control_id(recno);
2285:
2286: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Updated gl_phase to ''Summarize'' in psp_enc_controls');
2287:
2288: p_return_status := fnd_api.g_ret_sts_success;
2289:
2290: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving CREATE_GL_ENC_LIQ_LINES');
2291: EXCEPTION
2292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2288: p_return_status := fnd_api.g_ret_sts_success;
2289:
2290: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving CREATE_GL_ENC_LIQ_LINES');
2291: EXCEPTION
2292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2293: g_error_api_path := 'CREATE_GL_ENC_LIQ_LINES:'||g_error_api_path;
2294: p_return_status := fnd_api.g_ret_sts_unexp_error;
2295: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving CREATE_GL_ENC_LIQ_LINES');
2296: WHEN OTHERS THEN
2290: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving CREATE_GL_ENC_LIQ_LINES');
2291: EXCEPTION
2292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2293: g_error_api_path := 'CREATE_GL_ENC_LIQ_LINES:'||g_error_api_path;
2294: p_return_status := fnd_api.g_ret_sts_unexp_error;
2295: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving CREATE_GL_ENC_LIQ_LINES');
2296: WHEN OTHERS THEN
2297: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
2298: g_error_api_path := 'CREATE_GL_ENC_LIQ_LINES:'||g_error_api_path;
2296: WHEN OTHERS THEN
2297: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
2298: g_error_api_path := 'CREATE_GL_ENC_LIQ_LINES:'||g_error_api_path;
2299: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','CREATE_GL_ENC_LIQ_LINES');
2300: p_return_status := fnd_api.g_ret_sts_unexp_error;
2301: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving CREATE_GL_ENC_LIQ_LINES');
2302: END create_gl_enc_liq_lines;
2303: -- End of changes for bg fix 4625734
2304:
2449: enc_liq_rec.attribute10,
2450: NULL, -- Bug 4068182
2451: l_return_status);
2452:
2453: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2455: END IF;
2456:
2457: / * Flag the original line as Superceded* /
2450: NULL, -- Bug 4068182
2451: l_return_status);
2452:
2453: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2455: END IF;
2456:
2457: / * Flag the original line as Superceded* /
2458: update psp_enc_summary_lines set status_code='S'
2469: where enc_control_id = enc_control_rec.enc_control_id;
2470: l_count := 0;
2471: end if;
2472:
2473: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2475: END IF;
2476: END LOOP;
2477: --COMMIT;
2470: l_count := 0;
2471: end if;
2472:
2473: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2475: END IF;
2476: END LOOP;
2477: --COMMIT;
2478: p_return_status := fnd_api.g_ret_sts_success;
2474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2475: END IF;
2476: END LOOP;
2477: --COMMIT;
2478: p_return_status := fnd_api.g_ret_sts_success;
2479:
2480: EXCEPTION
2481: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2482: g_error_api_path := 'CREATE_GL_ENC_LIQ_LINES:'||g_error_api_path;
2477: --COMMIT;
2478: p_return_status := fnd_api.g_ret_sts_success;
2479:
2480: EXCEPTION
2481: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2482: g_error_api_path := 'CREATE_GL_ENC_LIQ_LINES:'||g_error_api_path;
2483: p_return_status := fnd_api.g_ret_sts_unexp_error;
2484: WHEN OTHERS THEN
2485: g_error_api_path := 'CREATE_GL_ENC_LIQ_LINES:'||g_error_api_path;
2479:
2480: EXCEPTION
2481: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2482: g_error_api_path := 'CREATE_GL_ENC_LIQ_LINES:'||g_error_api_path;
2483: p_return_status := fnd_api.g_ret_sts_unexp_error;
2484: WHEN OTHERS THEN
2485: g_error_api_path := 'CREATE_GL_ENC_LIQ_LINES:'||g_error_api_path;
2486: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','CREATE_GL_ENC_LIQ_LINES');
2487: p_return_status := fnd_api.g_ret_sts_unexp_error;
2483: p_return_status := fnd_api.g_ret_sts_unexp_error;
2484: WHEN OTHERS THEN
2485: g_error_api_path := 'CREATE_GL_ENC_LIQ_LINES:'||g_error_api_path;
2486: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','CREATE_GL_ENC_LIQ_LINES');
2487: p_return_status := fnd_api.g_ret_sts_unexp_error;
2488: END create_gl_enc_liq_lines;
2489: End of comment for bug fix 4625734 *****/
2490:
2491: /***** Commented the following procedure as it is no longer used (for bug fix 4625734)
2619: FND_GLOBAL.USER_ID,
2620: FND_GLOBAL.LOGIN_ID,
2621: FND_GLOBAL.USER_ID,
2622: SYSDATE);
2623: p_return_status := fnd_api.g_ret_sts_success;
2624:
2625: EXCEPTION
2626: WHEN OTHERS THEN
2627: --dbms_output.put_line('Insert into psp_enc_summary_lines failed');
2626: WHEN OTHERS THEN
2627: --dbms_output.put_line('Insert into psp_enc_summary_lines failed');
2628: g_error_api_path := 'insert_into_enc_sum_lines:'||g_error_api_path;
2629: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','INSERT_INTO_ENC_SUM_LINES');
2630: p_return_status := fnd_api.g_ret_sts_unexp_error;
2631: END insert_into_enc_sum_lines;
2632: End of comment for bug fix 4625734 *****/
2633:
2634: -- ##########################################################################
2797: -- gl_tie_tab.delete; Commented for bug fix 4625734
2798:
2799: gl_je_source( l_user_je_source,
2800: l_return_status);
2801: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2803: END IF;
2804:
2805: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' l_user_je_source: ' || l_user_je_source);
2798:
2799: gl_je_source( l_user_je_source,
2800: l_return_status);
2801: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2803: END IF;
2804:
2805: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' l_user_je_source: ' || l_user_je_source);
2806:
2805: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' l_user_je_source: ' || l_user_je_source);
2806:
2807: gl_je_cat( l_user_je_cat,
2808: l_return_status);
2809: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2811: END IF;
2812:
2813: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' l_user_je_cat: ' || l_user_je_cat);
2806:
2807: gl_je_cat( l_user_je_cat,
2808: l_return_status);
2809: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2811: END IF;
2812:
2813: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' l_user_je_cat: ' || l_user_je_cat);
2814:
2813: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' l_user_je_cat: ' || l_user_je_cat);
2814:
2815: enc_type( l_enc_type_id,
2816: l_return_status);
2817: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2818: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2819: END IF;
2820:
2821: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' l_enc_type_id: ' || l_enc_type_id);
2814:
2815: enc_type( l_enc_type_id,
2816: l_return_status);
2817: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2818: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2819: END IF;
2820:
2821: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' l_enc_type_id: ' || l_enc_type_id);
2822:
2926: fnd_message.set_name('PSP','PSP_TR_VALUE_NOT_FOUND');
2927: fnd_message.set_token('VALUE','l_value');
2928: fnd_message.set_token('TABLE','l_table');
2929: fnd_msg_pub.add;
2930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2931: END;
2932: If enc_control_rec.gl_phase = 'Summarize' then --- added for 2444657
2933: UPDATE psp_enc_summary_lines
2934: SET group_id = l_group_id
2966: fnd_message.set_name('PSP','PSP_TR_NOT_SET_UP');
2967: fnd_message.set_token('ERROR','l_error');
2968: fnd_message.set_token('PRODUCT','l_product');
2969: fnd_msg_pub.add;
2970: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2971: END;* /
2972: -- End of Comments for bug 2478000
2973:
2974:
3035: INT_REC.ATTRIBUTE29,
3036: INT_REC.ATTRIBUTE30,
3037: L_RETURN_STATUS);
3038:
3039: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3040: --dbms_output.put_line('Insert into gl_interface failed');
3041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3042: END IF;
3043:
3037: L_RETURN_STATUS);
3038:
3039: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3040: --dbms_output.put_line('Insert into gl_interface failed');
3041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3042: END IF;
3043:
3044: END LOOP; --int_cur loop
3045: end if; --- phase = 'Summarize' ... for 2444657
3115: -- insert into psp_stout values(0, 'req did not get submitted');
3116:
3117: fnd_message.set_name('PSP','PSP_TR_GL_IMP_FAILED');
3118: fnd_msg_pub.add;
3119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3120:
3121: ELSE
3122: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Submitted Journal Import (req_id: ' || req_id || ')');
3123: -- insert into psp_stout values(94, 'transfer in Gl');
3160: IF call_status = FALSE then
3161: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Journal Import failed');
3162: fnd_message.set_name('PSP','PSP_TR_GL_IMP_FAILED');
3163: fnd_msg_pub.add;
3164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3165: END IF;
3166: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Journal Import completed');
3167: END IF;
3168: END IF; -- l_rec_count > 0 moved this from below tie back for 2444657 (checks interface.COUNT bug 4625734)
3178: g_sob_id,
3179: 'N', -- Bug 2039196: new parameter.
3180: p_action_type, -- Added for Restart Update Enh.
3181: l_return_status);
3182: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN --- moved this stmnt inside loop
3183: l_tie_back_failed := 'Y'; -- 2479579
3184: END IF;
3185: end loop;
3186: end of comment for bug fix 4625734 *****/
3204: 'N',
3205: NULL, --p_action_type,
3206: l_return_status);
3207:
3208: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3210: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' gl_enc_tie_back failed for group_id: ' || r_groups.group_id(recno));
3211: ELSE
3212: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' gl_enc_tie_back successful for group_id: ' || r_groups.group_id(recno));
3205: NULL, --p_action_type,
3206: l_return_status);
3207:
3208: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3210: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' gl_enc_tie_back failed for group_id: ' || r_groups.group_id(recno));
3211: ELSE
3212: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' gl_enc_tie_back successful for group_id: ' || r_groups.group_id(recno));
3213: END IF;
3255:
3256: /***** commented for Enh. 2768298 Removal of suspense posting in liquidation
3257: if g_invalid_suspense = 'Y' then -- introduced this IF-ELSE for 2479579
3258: enc_batch_end(g_payroll_id,p_action_type,'N',g_bg_id,g_sob_id,l_return_status);
3259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3260: end if;
3261: End of comment for Enh. 2768298 Removal of suspense posting in Liquidation *****/
3262:
3263: p_return_status := fnd_api.g_ret_sts_success;
3259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3260: end if;
3261: End of comment for Enh. 2768298 Removal of suspense posting in Liquidation *****/
3262:
3263: p_return_status := fnd_api.g_ret_sts_success;
3264: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving TR_TO_GL_INT');
3265: EXCEPTION
3266: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3267: --dbms_output.put_line('Gone to one level top ..................');
3262:
3263: p_return_status := fnd_api.g_ret_sts_success;
3264: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving TR_TO_GL_INT');
3265: EXCEPTION
3266: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3267: --dbms_output.put_line('Gone to one level top ..................');
3268: g_error_api_path := 'TR_TO_GL_INT:'||g_error_api_path;
3269: p_return_status := fnd_api.g_ret_sts_unexp_error;
3270: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving TR_TO_GL_INT');
3265: EXCEPTION
3266: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3267: --dbms_output.put_line('Gone to one level top ..................');
3268: g_error_api_path := 'TR_TO_GL_INT:'||g_error_api_path;
3269: p_return_status := fnd_api.g_ret_sts_unexp_error;
3270: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving TR_TO_GL_INT');
3271: /***** Commented for bug fix 4625734
3272: WHEN RETURN_BACK THEN
3273: p_return_status := fnd_api.g_ret_sts_success;
3269: p_return_status := fnd_api.g_ret_sts_unexp_error;
3270: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving TR_TO_GL_INT');
3271: /***** Commented for bug fix 4625734
3272: WHEN RETURN_BACK THEN
3273: p_return_status := fnd_api.g_ret_sts_success;
3274: End of comment for bug fix 4625734 *****/
3275: WHEN OTHERS THEN
3276: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
3277: g_error_api_path := 'TR_TO_GL_INT:'||g_error_api_path;
3275: WHEN OTHERS THEN
3276: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
3277: g_error_api_path := 'TR_TO_GL_INT:'||g_error_api_path;
3278: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','TR_TO_GL_INT');
3279: p_return_status := fnd_api.g_ret_sts_unexp_error;
3280: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving TR_TO_GL_INT');
3281: END tr_to_gl_int;
3282:
3283: -- ##########################################################################
3300: fnd_message.set_name('PSP','PSP_TR_NOT_SET_UP');
3301: fnd_message.set_token('ERROR',l_error);
3302: fnd_message.set_token('PRODUCT',l_product);
3303: fnd_msg_pub.add;
3304: p_return_status := fnd_api.g_ret_sts_unexp_error;
3305: WHEN OTHERS THEN
3306: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
3307: g_error_api_path := 'gl_je_source:'||g_error_api_path;
3308: fnd_msg_pub.add_exc_msg('psp_enc_liq_tran','gl_je_source');
3305: WHEN OTHERS THEN
3306: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
3307: g_error_api_path := 'gl_je_source:'||g_error_api_path;
3308: fnd_msg_pub.add_exc_msg('psp_enc_liq_tran','gl_je_source');
3309: p_return_status := fnd_api.g_ret_sts_unexp_error;
3310: END gl_je_source;
3311:
3312: -- ##########################################################################
3313: -- This procedure retrieves the user_je_category_name from gl_je_categories
3329: fnd_message.set_name('PSP','PSP_TR_NOT_SET_UP');
3330: fnd_message.set_token('ERROR',l_error);
3331: fnd_message.set_token('PRODUCT',l_product);
3332: fnd_msg_pub.add;
3333: p_return_status := fnd_api.g_ret_sts_unexp_error;
3334: WHEN OTHERS THEN
3335: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
3336: g_error_api_path := 'gl_je_cat:'||g_error_api_path;
3337: fnd_msg_pub.add_exc_msg('psp_enc_liq_tran','gl_je_cat');
3334: WHEN OTHERS THEN
3335: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
3336: g_error_api_path := 'gl_je_cat:'||g_error_api_path;
3337: fnd_msg_pub.add_exc_msg('psp_enc_liq_tran','gl_je_cat');
3338: p_return_status := fnd_api.g_ret_sts_unexp_error;
3339: END gl_je_cat;
3340:
3341: -- ##########################################################################
3342: -- This procedure retrieves the encumbrance_type_id from gl_encumbrance_types
3361: fnd_message.set_name('PSP','PSP_TR_NOT_SET_UP');
3362: fnd_message.set_token('ERROR',l_error);
3363: fnd_message.set_token('PRODUCT',l_product);
3364: fnd_msg_pub.add;
3365: p_return_status := fnd_api.g_ret_sts_unexp_error;
3366: WHEN OTHERS THEN
3367: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
3368: g_error_api_path := 'enc_type:'||g_error_api_path;
3369: fnd_msg_pub.add_exc_msg('psp_enc_liq_tran','enc_type');
3366: WHEN OTHERS THEN
3367: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
3368: g_error_api_path := 'enc_type:'||g_error_api_path;
3369: fnd_msg_pub.add_exc_msg('psp_enc_liq_tran','enc_type');
3370: p_return_status := fnd_api.g_ret_sts_unexp_error;
3371:
3372: END enc_type;
3373:
3374: -- ##########################################################################
4024: l_award_id,
4025: l_task_id,
4026: l_effective_date,
4027: l_return_status);
4028: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4029: --insert_into_psp_stout( 'poeta call failed ');
4030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4031: END IF;
4032:
4026: l_effective_date,
4027: l_return_status);
4028: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4029: --insert_into_psp_stout( 'poeta call failed ');
4030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4031: END IF;
4032:
4033: END IF;
4034:
4093: IF l_reversal_ac_failed = 'Y' THEN
4094: fnd_message.set_name('PSP','PSP_GL_REVERSE_AC_REJECT');
4095: fnd_message.set_token('GLCCID',x_lines_glccid);
4096: fnd_msg_pub.add;
4097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4098: END IF; * /
4099:
4100: / ***** Commented for Enh. 2768298 Removal of suspense posting in Liquidation
4101: IF l_suspense_ac_failed = 'Y' THEN
4124: fnd_msg_pub.add;
4125: -- Bug 2039196: Introduced the if condn.
4126: if p_mode = 'N' then
4127: enc_batch_end(g_payroll_id,p_action_type, 'N',g_bg_id, g_sob_id,l_return_status);
4128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4129: end if;
4130: END IF;
4131: * /
4132:
4195:
4196: --
4197: END IF; -- IF (PROCESS_COMPLETE)
4198:
4199: p_return_status := fnd_api.g_ret_sts_success;
4200: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving GL_ENC_TIE_BACK');
4201: EXCEPTION
4202:
4203: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4199: p_return_status := fnd_api.g_ret_sts_success;
4200: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving GL_ENC_TIE_BACK');
4201: EXCEPTION
4202:
4203: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4204: --dbms_output.put_line('Gone to one level top ..................');
4205: g_error_api_path := 'GL_ENC_TIE_BACK:'||g_error_api_path;
4206: p_return_status := fnd_api.g_ret_sts_unexp_error;
4207: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving GL_ENC_TIE_BACK');
4202:
4203: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4204: --dbms_output.put_line('Gone to one level top ..................');
4205: g_error_api_path := 'GL_ENC_TIE_BACK:'||g_error_api_path;
4206: p_return_status := fnd_api.g_ret_sts_unexp_error;
4207: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving GL_ENC_TIE_BACK');
4208: /***** Commented the following as part of bug fix 4625734
4209: / * Added Exceptions for bug 2056877 * /
4210: WHEN NO_PROFILE_EXISTS THEN
4210: WHEN NO_PROFILE_EXISTS THEN
4211: g_error_api_path := SUBSTR('GL_ENC_TIE_BACK:'||g_error_api_path,1,230);
4212: fnd_message.set_name('PSP','PSP_NO_PROFILE_EXISTS');
4213: fnd_msg_pub.add;
4214: p_return_status := fnd_api.g_ret_sts_success; --- changed error to success for 2479579
4215:
4216: WHEN NO_VAL_DATE_MATCHES THEN
4217: g_error_api_path := SUBSTR('GL_ENC_TIE_BACK:'||g_error_api_path,1,230);
4218: fnd_message.set_name('PSP','PSP_NO_VAL_DATE_MATCHES');
4218: fnd_message.set_name('PSP','PSP_NO_VAL_DATE_MATCHES');
4219: fnd_message.set_token('ORG_NAME',l_orig_org_name);
4220: fnd_message.set_token('PAYROLL_DATE',l_encumbrance_date);
4221: fnd_msg_pub.add;
4222: p_return_status := fnd_api.g_ret_sts_unexp_error;
4223: p_return_status := fnd_api.g_ret_sts_success; --- changed error to success for 2479579
4224:
4225: WHEN NO_GLOBAL_ACCT_EXISTS THEN
4226: g_error_api_path := SUBSTR('GL_ENC_TIE_BACK:'||g_error_api_path,1,230);
4219: fnd_message.set_token('ORG_NAME',l_orig_org_name);
4220: fnd_message.set_token('PAYROLL_DATE',l_encumbrance_date);
4221: fnd_msg_pub.add;
4222: p_return_status := fnd_api.g_ret_sts_unexp_error;
4223: p_return_status := fnd_api.g_ret_sts_success; --- changed error to success for 2479579
4224:
4225: WHEN NO_GLOBAL_ACCT_EXISTS THEN
4226: g_error_api_path := SUBSTR('GL_ENC_TIE_BACK:'||g_error_api_path,1,230);
4227: fnd_message.set_name('PSP','PSP_NO_GLOBAL_ACCT_EXISTS');
4227: fnd_message.set_name('PSP','PSP_NO_GLOBAL_ACCT_EXISTS');
4228: fnd_message.set_token('ORG_NAME',l_orig_org_name);
4229: fnd_message.set_token('PAYROLL_DATE',l_encumbrance_date);
4230: fnd_msg_pub.add;
4231: p_return_status := fnd_api.g_ret_sts_unexp_error; --End of Modification forBug 2056877.
4232: p_return_status := fnd_api.g_ret_sts_success; --- changed error to success for 2479579
4233: end of comment for bug fix 4625734 *****/
4234:
4235: WHEN OTHERS THEN
4228: fnd_message.set_token('ORG_NAME',l_orig_org_name);
4229: fnd_message.set_token('PAYROLL_DATE',l_encumbrance_date);
4230: fnd_msg_pub.add;
4231: p_return_status := fnd_api.g_ret_sts_unexp_error; --End of Modification forBug 2056877.
4232: p_return_status := fnd_api.g_ret_sts_success; --- changed error to success for 2479579
4233: end of comment for bug fix 4625734 *****/
4234:
4235: WHEN OTHERS THEN
4236: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
4235: WHEN OTHERS THEN
4236: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
4237: g_error_api_path := 'GL_ENC_TIE_BACK:'||g_error_api_path;
4238: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','GL_ENC_TIE_BACK');
4239: p_return_status := fnd_api.g_ret_sts_unexp_error;
4240: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving GL_ENC_TIE_BACK');
4241:
4242: END gl_enc_tie_back;
4243:
4396: P_ATTRIBUTE29,
4397: P_ATTRIBUTE30);
4398: --dbms_output.put_line('Insert into gl_interface successful.................');
4399:
4400: p_return_status := fnd_api.g_ret_sts_success;
4401:
4402: EXCEPTION
4403: WHEN OTHERS THEN
4404: --dbms_output.put_line('Error while inserting into gl_interface..........');
4403: WHEN OTHERS THEN
4404: --dbms_output.put_line('Error while inserting into gl_interface..........');
4405: g_error_api_path := 'insert_into_gl_int:'||g_error_api_path;
4406: fnd_msg_pub.add_exc_msg('psp_enc_liq_tran','insert_into_gl_int');
4407: p_return_status := fnd_api.g_ret_sts_unexp_error;
4408:
4409:
4410: END insert_into_gl_int;
4411: End of comment for bug fix 4625734 *****/
4778: WHERE enc_control_id = r_liq_lines.enc_control_id(recno);
4779:
4780: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Updated gms_phase to ''Summarize'' in psp_enc_controls');
4781:
4782: p_return_status := fnd_api.g_ret_sts_success;
4783:
4784: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving CREATE_GMS_ENC_LIQ_LINES');
4785: EXCEPTION
4786: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4782: p_return_status := fnd_api.g_ret_sts_success;
4783:
4784: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving CREATE_GMS_ENC_LIQ_LINES');
4785: EXCEPTION
4786: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4787: g_error_api_path := 'CREATE_GMS_ENC_LIQ_LINES:'||g_error_api_path;
4788: p_return_status := fnd_api.g_ret_sts_unexp_error;
4789: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving CREATE_GMS_ENC_LIQ_LINES');
4790: WHEN OTHERS THEN
4784: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving CREATE_GMS_ENC_LIQ_LINES');
4785: EXCEPTION
4786: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4787: g_error_api_path := 'CREATE_GMS_ENC_LIQ_LINES:'||g_error_api_path;
4788: p_return_status := fnd_api.g_ret_sts_unexp_error;
4789: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving CREATE_GMS_ENC_LIQ_LINES');
4790: WHEN OTHERS THEN
4791: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
4792: g_error_api_path := 'CREATE_GMS_ENC_LIQ_LINES:'||g_error_api_path;
4790: WHEN OTHERS THEN
4791: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
4792: g_error_api_path := 'CREATE_GMS_ENC_LIQ_LINES:'||g_error_api_path;
4793: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','CREATE_GMS_ENC_LIQ_LINES');
4794: p_return_status := fnd_api.g_ret_sts_unexp_error;
4795: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving CREATE_GMS_ENC_LIQ_LINES');
4796: END create_gms_enc_liq_lines;
4797: -- End of changes for bug fix 4625734
4798:
4966: enc_liq_rec.attribute9,
4967: enc_liq_rec.attribute10,
4968: enc_liq_rec.expenditure_item_id, -- Introduced for bug 4068182
4969: p_return_status);
4970: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4972: END IF;
4973:
4974: / * Flag the original line as Superceded* /
4967: enc_liq_rec.attribute10,
4968: enc_liq_rec.expenditure_item_id, -- Introduced for bug 4068182
4969: p_return_status);
4970: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4972: END IF;
4973:
4974: / * Flag the original line as Superceded* /
4975: update psp_enc_summary_lines set status_code='S'
4977: END LOOP;
4978:
4979: END LOOP;
4980:
4981: p_return_status := fnd_api.g_ret_sts_success;
4982: EXCEPTION
4983: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4984: g_error_api_path := 'CREATE_GMS_ENC_LIQ_LINES:'||g_error_api_path;
4985: p_return_status := fnd_api.g_ret_sts_unexp_error;
4979: END LOOP;
4980:
4981: p_return_status := fnd_api.g_ret_sts_success;
4982: EXCEPTION
4983: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4984: g_error_api_path := 'CREATE_GMS_ENC_LIQ_LINES:'||g_error_api_path;
4985: p_return_status := fnd_api.g_ret_sts_unexp_error;
4986: WHEN OTHERS THEN
4987: g_error_api_path := 'CREATE_GMS_ENC_LIQ_LINES:'||g_error_api_path;
4981: p_return_status := fnd_api.g_ret_sts_success;
4982: EXCEPTION
4983: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4984: g_error_api_path := 'CREATE_GMS_ENC_LIQ_LINES:'||g_error_api_path;
4985: p_return_status := fnd_api.g_ret_sts_unexp_error;
4986: WHEN OTHERS THEN
4987: g_error_api_path := 'CREATE_GMS_ENC_LIQ_LINES:'||g_error_api_path;
4988: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','CREATE_GMS_ENC_LIQ_LINES');
4989: p_return_status := fnd_api.g_ret_sts_unexp_error;
4985: p_return_status := fnd_api.g_ret_sts_unexp_error;
4986: WHEN OTHERS THEN
4987: g_error_api_path := 'CREATE_GMS_ENC_LIQ_LINES:'||g_error_api_path;
4988: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','CREATE_GMS_ENC_LIQ_LINES');
4989: p_return_status := fnd_api.g_ret_sts_unexp_error;
4990: END create_gms_enc_liq_lines;
4991: End of comment for bug fix 4625734 *****/
4992:
4993: -- ##########################################################################
5267: fnd_message.set_name('PSP','PSP_TR_NOT_SET_UP');
5268: fnd_message.set_token('ERROR',l_error);
5269: fnd_message.set_token('PRODUCT',l_product);
5270: fnd_msg_pub.add;
5271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5272: END;
5273: End of comment for bug fix 4625734 *****/
5274: OPEN transaction_source_cur;
5275: FETCH transaction_source_cur INTO l_gms_transaction_source;
5281: fnd_message.set_name('PSP','PSP_TR_NOT_SET_UP');
5282: fnd_message.set_token('ERROR','TRANSACTION SOURCE = GOLDE');
5283: fnd_message.set_token('PRODUCT','GMS');
5284: fnd_msg_pub.add;
5285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5286: END IF;
5287: end if;
5288:
5289: /***** Commented as part of bug fix 4625734
5288:
5289: /***** Commented as part of bug fix 4625734
5290: enc_type( l_enc_type_id,
5291: l_return_status);
5292: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5294: END IF;
5295: --dbms_output.put_line('enc type='||l_enc_type_id);
5296: End of comment for bg fix 4625734 *****/
5289: /***** Commented as part of bug fix 4625734
5290: enc_type( l_enc_type_id,
5291: l_return_status);
5292: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5294: END IF;
5295: --dbms_output.put_line('enc type='||l_enc_type_id);
5296: End of comment for bg fix 4625734 *****/
5297:
5432: END LOOP;
5433:
5434: IF l_raise_error THEN
5435: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Interface records have errors');
5436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5437: END IF;
5438:
5439: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Completed interface records for errors');
5440: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Computing PA week ending date(s)');
5537: GMS_REC.ORIGINAL_ENCUMBRANCE_ITEM_ID := l_expenditure_item_id; --Bug 6062628
5538:
5539: gms_transactions_pub.LOAD_GMS_XFACE_API(gms_rec, l_return_status);
5540:
5541: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5542: fnd_message.set_name('PSP','PSP_GMS_XFACE_FAILED');
5543: fnd_msg_pub.add;
5544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5545: END IF;
5540:
5541: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5542: fnd_message.set_name('PSP','PSP_GMS_XFACE_FAILED');
5543: fnd_msg_pub.add;
5544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5545: END IF;
5546: END LOOP;
5547: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Inserted into gms_transaction_interface_all by calling gms_transactions_pub.LOAD_GMS_XFACE_API');
5548:
5599: fnd_message.set_name('PSP','PSP_TR_VALUE_NOT_FOUND');
5600: fnd_message.set_token('VALUE',l_value);
5601: fnd_message.set_token('TABLE',l_table);
5602: fnd_msg_pub.add;
5603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5604: END;
5605: --dbms_output.put_line('emp num='||l_emp_num);
5606:
5607: BEGIN
5616: fnd_message.set_name('PSP','PSP_TR_VALUE_NOT_FOUND');
5617: fnd_message.set_token('VALUE',l_value);
5618: fnd_message.set_token('TABLE',l_table);
5619: fnd_msg_pub.add;
5620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5621: END;
5622: --dbms_output.put_line('org name='||l_org_name);
5623:
5624: BEGIN
5633: fnd_message.set_name('PSP','PSP_ORG_VALUE_NOT_FOUND');
5634: fnd_message.set_token('VALUE',l_value);
5635: fnd_message.set_token('TABLE',l_table);
5636: fnd_msg_pub.add;
5637: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5638: END;
5639:
5640: BEGIN
5641: SELECT segment1
5649: fnd_message.set_name('PSP','PSP_TR_VALUE_NOT_FOUND');
5650: fnd_message.set_token('VALUE',l_value);
5651: fnd_message.set_token('TABLE',l_table);
5652: fnd_msg_pub.add;
5653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5654: END;
5655: --dbms_output.put_line('seg1='||l_seg1);
5656:
5657: BEGIN
5666: fnd_message.set_name('PSP','PSP_TR_VALUE_NOT_FOUND');
5667: fnd_message.set_token('VALUE',l_value);
5668: fnd_message.set_token('TABLE',l_table);
5669: fnd_msg_pub.add;
5670: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5671: END;
5672: --dbms_output.put_line('task='||l_task_number);
5673: l_rec_count := l_rec_count + 1;
5674:
5745: int_rec.attribute10,
5746: g_bg_id, -- Introduced for Bug 2935850
5747: l_return_status);
5748:
5749: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5750: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5751: END IF;
5752: end if; --- If award id is not null
5753:
5746: g_bg_id, -- Introduced for Bug 2935850
5747: l_return_status);
5748:
5749: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5750: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5751: END IF;
5752: end if; --- If award id is not null
5753:
5754: -- insert into gms_interface table if there are awards..
5776: GMS_REC.ORIGINAL_ENCUMBRANCE_ITEM_ID:= int_rec.expenditure_item_id; -- Introduced for bug fix 4033329
5777:
5778: gms_transactions_pub.LOAD_GMS_XFACE_API(gms_rec, l_return_status);
5779:
5780: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5781: fnd_message.set_name('PSP','PSP_GMS_XFACE_FAILED');
5782: fnd_msg_pub.add;
5783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5784: END IF;
5779:
5780: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5781: fnd_message.set_name('PSP','PSP_GMS_XFACE_FAILED');
5782: fnd_msg_pub.add;
5783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5784: END IF;
5785:
5786: end if;
5787:
5835: IF req_id_tab(request_counter) = 0 THEN
5836: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Submission of Transaction Import Failed');
5837: fnd_message.set_name('PSP','PSP_TR_GMS_IMP_FAILED');
5838: fnd_msg_pub.add;
5839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5840: ELSE
5841: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Submitted Transaction Import');
5842:
5843: /***** Modified teh following update to BULK UPDATE for R12 performance fixes (bug 4507892)
5890: IF call_status = FALSE then
5891: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Transaction Import failed');
5892: fnd_message.set_name('PSP','PSP_TR_GMS_IMP_FAILED');
5893: fnd_msg_pub.add;
5894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5895: END IF;
5896: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Transaction Import completed');
5897: END LOOP;
5898: END IF; --record_count > 0 ...move this line from below delete xface...for 2444657
5916: 'N', ---Bug 2039196: introduced this param
5917: p_action_type, -- Added for Restart Update Enh.
5918: l_return_status);
5919: -- moved this check into the loop for 2479579
5920: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5921: l_tie_back_failed := 'Y'; --- introduced for 2479579
5922: END IF;
5923: end loop;
5924: End of comment for bug fix 4625734 *****/
5941: 'N',
5942: NULL, --p_action_type,
5943: l_return_status);
5944:
5945: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5946: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' gms_enc_tie_back failed for gms_batch_name: ' || r_gms_batch.gms_batch_name(recno));
5947: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5948: END IF;
5949: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' gms_enc_tie_back successful for gms_batch_name: ' || r_gms_batch.gms_batch_name(recno));
5943: l_return_status);
5944:
5945: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5946: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' gms_enc_tie_back failed for gms_batch_name: ' || r_gms_batch.gms_batch_name(recno));
5947: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5948: END IF;
5949: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' gms_enc_tie_back successful for gms_batch_name: ' || r_gms_batch.gms_batch_name(recno));
5950: END LOOP;
5951: -- End of changes for bug fix 4625734
6026:
6027: /***** Commented for Enh. 2768298 Removal of suspense posting in Liquidation
6028: if g_invalid_suspense = 'Y' then -- introduced this IF-ELSE for 2479579
6029: enc_batch_end(g_payroll_id,p_action_type,'N',g_bg_id,g_sob_id,l_return_status);
6030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6031: end if;
6032: End of somment for Enh. Removal of suspense posting in Liquidation *****/
6033:
6034:
6031: end if;
6032: End of somment for Enh. Removal of suspense posting in Liquidation *****/
6033:
6034:
6035: p_return_status := fnd_api.g_ret_sts_success;
6036: EXCEPTION
6037: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6038: g_error_api_path := 'TR_TO_GMS_INT:'||g_error_api_path;
6039: p_return_status := fnd_api.g_ret_sts_unexp_error;
6033:
6034:
6035: p_return_status := fnd_api.g_ret_sts_success;
6036: EXCEPTION
6037: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6038: g_error_api_path := 'TR_TO_GMS_INT:'||g_error_api_path;
6039: p_return_status := fnd_api.g_ret_sts_unexp_error;
6040:
6041: WHEN RETURN_BACK THEN
6035: p_return_status := fnd_api.g_ret_sts_success;
6036: EXCEPTION
6037: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6038: g_error_api_path := 'TR_TO_GMS_INT:'||g_error_api_path;
6039: p_return_status := fnd_api.g_ret_sts_unexp_error;
6040:
6041: WHEN RETURN_BACK THEN
6042: p_return_status := fnd_api.g_ret_sts_success;
6043:
6038: g_error_api_path := 'TR_TO_GMS_INT:'||g_error_api_path;
6039: p_return_status := fnd_api.g_ret_sts_unexp_error;
6040:
6041: WHEN RETURN_BACK THEN
6042: p_return_status := fnd_api.g_ret_sts_success;
6043:
6044: WHEN OTHERS THEN
6045: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
6046: g_error_api_path := 'TR_TO_GMS_INT:'||g_error_api_path;
6044: WHEN OTHERS THEN
6045: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
6046: g_error_api_path := 'TR_TO_GMS_INT:'||g_error_api_path;
6047: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','TR_TO_GMS_INT');
6048: p_return_status := fnd_api.g_ret_sts_unexp_error;
6049:
6050: END tr_to_gms_int;
6051:
6052: -- ##########################################################################
6824: l_award_id,
6825: l_task_id,
6826: l_effective_date,
6827: l_return_status);
6828: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6830: END IF;
6831:
6832:
6825: l_task_id,
6826: l_effective_date,
6827: l_return_status);
6828: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6830: END IF;
6831:
6832:
6833: END IF;
6911: fnd_msg_pub.add;
6912: -- Bug 2039196: Introduced the if condn.
6913: if p_mode = 'N' then
6914: enc_batch_end(g_payroll_id,g_action_type, 'N',g_bg_id, g_sob_id,l_return_status);
6915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6916: end if;
6917: END IF;
6918: */
6919: ELSIF l_cnt_gms_interface = 0 THEN
7044: END IF;
7045: --
7046: END IF; -- IF (PROCESS_COMPLETE)
7047:
7048: p_return_status := fnd_api.g_ret_sts_success;
7049: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving GMS_ENC_TIE_BACK');
7050: EXCEPTION
7051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7052: --dbms_output.put_line('Gone to one level top ..................');
7047:
7048: p_return_status := fnd_api.g_ret_sts_success;
7049: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving GMS_ENC_TIE_BACK');
7050: EXCEPTION
7051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7052: --dbms_output.put_line('Gone to one level top ..................');
7053: g_error_api_path := 'GMS_ENC_TIE_BACK:'||g_error_api_path;
7054: p_return_status := fnd_api.g_ret_sts_unexp_error;
7055: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving GMS_ENC_TIE_BACK');
7050: EXCEPTION
7051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7052: --dbms_output.put_line('Gone to one level top ..................');
7053: g_error_api_path := 'GMS_ENC_TIE_BACK:'||g_error_api_path;
7054: p_return_status := fnd_api.g_ret_sts_unexp_error;
7055: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving GMS_ENC_TIE_BACK');
7056:
7057: /* Added Exceptions for Bug 2056877 */
7058: /***** Commented the following for bgu fix 4625734
7059: WHEN NO_PROFILE_EXISTS THEN
7060: g_error_api_path := SUBSTR('GMS_ENC_TIE_BACK:'||g_error_api_path,1,230);
7061: fnd_message.set_name('PSP','PSP_NO_PROFILE_EXISTS');
7062: fnd_msg_pub.add;
7063: --p_return_status := fnd_api.g_ret_sts_unexp_error;
7064: p_return_status := fnd_api.g_ret_sts_success; --- replaced error with success for 2479579
7065:
7066: WHEN NO_VAL_DATE_MATCHES THEN
7067: g_error_api_path := SUBSTR('GMS_ENC_TIE_BACK:'||g_error_api_path,1,230);
7060: g_error_api_path := SUBSTR('GMS_ENC_TIE_BACK:'||g_error_api_path,1,230);
7061: fnd_message.set_name('PSP','PSP_NO_PROFILE_EXISTS');
7062: fnd_msg_pub.add;
7063: --p_return_status := fnd_api.g_ret_sts_unexp_error;
7064: p_return_status := fnd_api.g_ret_sts_success; --- replaced error with success for 2479579
7065:
7066: WHEN NO_VAL_DATE_MATCHES THEN
7067: g_error_api_path := SUBSTR('GMS_ENC_TIE_BACK:'||g_error_api_path,1,230);
7068: fnd_message.set_name('PSP','PSP_NO_VAL_DATE_MATCHES');
7068: fnd_message.set_name('PSP','PSP_NO_VAL_DATE_MATCHES');
7069: fnd_message.set_token('ORG_NAME',l_orig_org_name);
7070: fnd_message.set_token('PAYROLL_DATE',l_encumbrance_date);
7071: fnd_msg_pub.add;
7072: --p_return_status := fnd_api.g_ret_sts_unexp_error;
7073: p_return_status := fnd_api.g_ret_sts_success; --- replaced error with success for 2479579
7074:
7075: WHEN NO_GLOBAL_ACCT_EXISTS THEN
7076: g_error_api_path := SUBSTR('GMS_ENC_TIE_BACK:'||g_error_api_path,1,230);
7069: fnd_message.set_token('ORG_NAME',l_orig_org_name);
7070: fnd_message.set_token('PAYROLL_DATE',l_encumbrance_date);
7071: fnd_msg_pub.add;
7072: --p_return_status := fnd_api.g_ret_sts_unexp_error;
7073: p_return_status := fnd_api.g_ret_sts_success; --- replaced error with success for 2479579
7074:
7075: WHEN NO_GLOBAL_ACCT_EXISTS THEN
7076: g_error_api_path := SUBSTR('GMS_ENC_TIE_BACK:'||g_error_api_path,1,230);
7077: fnd_message.set_name('PSP','PSP_NO_GLOBAL_ACCT_EXISTS');
7077: fnd_message.set_name('PSP','PSP_NO_GLOBAL_ACCT_EXISTS');
7078: fnd_message.set_token('ORG_NAME',l_orig_org_name);
7079: fnd_message.set_token('PAYROLL_DATE',l_encumbrance_date);
7080: fnd_msg_pub.add;
7081: --p_return_status := fnd_api.g_ret_sts_unexp_error; --End of Modification for Bug 2056877.
7082: p_return_status := fnd_api.g_ret_sts_success; --- replaced error with success for 2479579
7083: End of comment for bug fix 4625734 *****/
7084:
7085: WHEN OTHERS THEN
7078: fnd_message.set_token('ORG_NAME',l_orig_org_name);
7079: fnd_message.set_token('PAYROLL_DATE',l_encumbrance_date);
7080: fnd_msg_pub.add;
7081: --p_return_status := fnd_api.g_ret_sts_unexp_error; --End of Modification for Bug 2056877.
7082: p_return_status := fnd_api.g_ret_sts_success; --- replaced error with success for 2479579
7083: End of comment for bug fix 4625734 *****/
7084:
7085: WHEN OTHERS THEN
7086: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
7085: WHEN OTHERS THEN
7086: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
7087: g_error_api_path := 'GMS_ENC_TIE_BACK:'||g_error_api_path;
7088: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','GMS_ENC_TIE_BACK');
7089: p_return_status := fnd_api.g_ret_sts_unexp_error;
7090: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving GMS_ENC_TIE_BACK');
7091:
7092: END gms_enc_tie_back;
7093:
7226: fnd_message.set_name('PSP','PSP_ENC_NUM_ASG');
7227: fnd_message.set_token('NUM_ASG',no_of_asg);
7228: fnd_msg_pub.add;
7229: psp_message_s.print_error (p_mode => FND_FILE.LOG,
7230: p_print_header => FND_API.G_FALSE);
7231: END IF;
7232:
7233: p_return_status := FND_API.G_RET_STS_SUCCESS;
7234:
7229: psp_message_s.print_error (p_mode => FND_FILE.LOG,
7230: p_print_header => FND_API.G_FALSE);
7231: END IF;
7232:
7233: p_return_status := FND_API.G_RET_STS_SUCCESS;
7234:
7235: EXCEPTION
7236: WHEN OTHERS THEN
7237: g_error_api_path := SUBSTR('MOVE_QKUPD_REC_TO_HIST:'||g_error_api_path,1,230);
7235: EXCEPTION
7236: WHEN OTHERS THEN
7237: g_error_api_path := SUBSTR('MOVE_QKUPD_REC_TO_HIST:'||g_error_api_path,1,230);
7238: fnd_msg_pub.add_exc_msg('PSP_ENC_UPDATE_LINES','MOVE_QKUPD_REC_TO_HIST');
7239: p_return_status := fnd_api.g_ret_sts_unexp_error;
7240: END move_qkupd_rec_to_hist;
7241: */
7242:
7243: --- Bug 3413373: Created a new wrapper procedure
7367: fnd_message.set_token('PERSON2', l_full_name2);
7368: fnd_message.set_token('TERMDATE2', p_actual_term_date);
7369: fnd_msg_pub.add;
7370:
7371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7372: END IF;
7373:
7374: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Calling enc_liq_trans');
7375:
7380: p_payroll_id => l_payroll_id,
7381: p_action_type => 'T' ,
7382: p_business_group_id => p_business_group_id,
7383: p_set_of_books_id => p_set_of_books_id);
7384: IF l_retcode <> FND_API.G_RET_STS_SUCCESS THEN
7385: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7386: END IF;
7387: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After enc_liq_trans');
7388: end loop;
7381: p_action_type => 'T' ,
7382: p_business_group_id => p_business_group_id,
7383: p_set_of_books_id => p_set_of_books_id);
7384: IF l_retcode <> FND_API.G_RET_STS_SUCCESS THEN
7385: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7386: END IF;
7387: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After enc_liq_trans');
7388: end loop;
7389:
7474: p_payroll_id => l_payroll_id,
7475: p_action_type => 'T' ,
7476: p_business_group_id => p_business_group_id,
7477: p_set_of_books_id => p_set_of_books_id);
7478: IF l_retcode <> FND_API.G_RET_STS_SUCCESS THEN
7479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7480: END IF;
7481: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After enc_liq_trans');
7482: END LOOP;
7475: p_action_type => 'T' ,
7476: p_business_group_id => p_business_group_id,
7477: p_set_of_books_id => p_set_of_books_id);
7478: IF l_retcode <> FND_API.G_RET_STS_SUCCESS THEN
7479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7480: END IF;
7481: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' After enc_liq_trans');
7482: END LOOP;
7483: END IF;
7486:
7487: retcode := 0;
7488: fnd_file.put_line(fnd_file.log, fnd_date.date_to_canonical(SYSDATE) || ' Leaving LIQUIDATE_EMP_TERM');
7489: exception
7490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7491: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','LIQUIDATE_EMP_TERM');
7492: fnd_msg_pub.add;
7493: psp_message_s.print_error(p_mode => FND_FILE.LOG,
7494: p_print_header => FND_API.G_TRUE);
7490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7491: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','LIQUIDATE_EMP_TERM');
7492: fnd_msg_pub.add;
7493: psp_message_s.print_error(p_mode => FND_FILE.LOG,
7494: p_print_header => FND_API.G_TRUE);
7495: ROLLBACK;
7496: retcode := 2;
7497:
7498: when others then
7498: when others then
7499: fnd_msg_pub.add_exc_msg('PSP_ENC_LIQ_TRAN','LIQUIDATE_EMP_TERM');
7500: fnd_msg_pub.add;
7501: psp_message_s.print_error(p_mode => FND_FILE.LOG,
7502: p_print_header => FND_API.G_TRUE);
7503: ROLLBACK;
7504: errbuf := sqlerrm;
7505: retcode := 2;
7506: end;