DBA Data[Home] [Help]

APPS.HXT_RETRO_PROCESS dependencies on HXT_UTIL

Line 128: --HXT_UTIL.DEBUG('Start process.');-- debug only --HXT115

124: g_debug := hr_utility.debug_enabled;
125: -- commented out. using sysdate view, now. RTF
126: -- insert into fnd_sessions values (userenv('SESSIONID'), trunc(SYSDATE));
127: -- commit;
128: --HXT_UTIL.DEBUG('Start process.');-- debug only --HXT115
129: -- time period will be ignored completely when passed in as NULL
130: l_date_earned := to_date(to_char(trunc(l_date_earned),'DD/MM/RRRR'),'DD/MM/RRRR');
131: l_payroll_id := to_char(p_payroll_id);
132: l_retro_batch_id := p_retro_batch_id; --BSE115M

Line 204: --HXT_UTIL.DEBUG('Beginning we have batches loop');

200: l_index := list_batch_rec_ids.first;
201:
202: WHILE l_index is not null LooP
203: BEGIN
204: --HXT_UTIL.DEBUG('Beginning we have batches loop');
205: --
206: -- Select and process all user specified batches for this payroll/reference number
207: -- Process batch range specified by the user, else do all available
208: --

Line 211: HXT_UTIL.DEBUG('payroll_id = '||to_char(p_payroll_id)||' retro_batch_id = '

207: -- Process batch range specified by the user, else do all available
208: --
209: l_loop_flag := TRUE;
210:
211: HXT_UTIL.DEBUG('payroll_id = '||to_char(p_payroll_id)||' retro_batch_id = '
212: ||to_char(list_batch_rec_ids(l_index).batch_id)||' ref_num = '||p_ref_num);
213: FOR batch_rec IN cur_batch(p_payroll_id, list_batch_rec_ids(l_index).batch_id, p_ref_num ) LOOP
214: --HXT_UTIL.DEBUG('Batch number is ' || TO_CHAR(batch_rec.batch_id));
215: l_batch_id := batch_rec.batch_id;

Line 214: --HXT_UTIL.DEBUG('Batch number is ' || TO_CHAR(batch_rec.batch_id));

210:
211: HXT_UTIL.DEBUG('payroll_id = '||to_char(p_payroll_id)||' retro_batch_id = '
212: ||to_char(list_batch_rec_ids(l_index).batch_id)||' ref_num = '||p_ref_num);
213: FOR batch_rec IN cur_batch(p_payroll_id, list_batch_rec_ids(l_index).batch_id, p_ref_num ) LOOP
214: --HXT_UTIL.DEBUG('Batch number is ' || TO_CHAR(batch_rec.batch_id));
215: l_batch_id := batch_rec.batch_id;
216: l_kounter := l_kounter + 1;
217: --
218: -- rollback all PayMix data per user request

Line 252: --HXT_UTIL.DEBUG('Begin timecard validation.');

248: ELSE
249: --
250: -- Validate batch, status:0=Normal, 1=Warning, 2=Stop Level Data Error, 3=System
251: --
252: --HXT_UTIL.DEBUG('Begin timecard validation.');
253: -- Delete prior errors for this batch
254: HXT_BATCH_PROCESS.Del_Prior_Errors(batch_rec.batch_id);
255: HXT_RETRO_VAL.Val_Retro_Timecard(batch_rec.batch_id,
256: batch_rec.tim_id,

Line 286: --HXT_UTIL.DEBUG('Successful timecard validation.');

282: l_final_valid_retcode := l_valid_retcode;
283: END IF;
284: -- Successful Validation, Set batch to ready Status
285: IF l_valid_retcode = 0 then
286: --HXT_UTIL.DEBUG('Successful timecard validation.');
287: HXT_BATCH_PROCESS.Set_batch_status(l_date_earned, batch_rec.batch_id, 'VV');
288: END IF;
289: -- set status to Warning and lets user know we have a TAMS/O
290: -- User Level Data Error for this batch

Line 292: --HXT_UTIL.DEBUG('Timecard validation warnings.');

288: END IF;
289: -- set status to Warning and lets user know we have a TAMS/O
290: -- User Level Data Error for this batch
291: IF l_valid_retcode = 1 then
292: --HXT_UTIL.DEBUG('Timecard validation warnings.');
293: HXT_BATCH_PROCESS.Set_batch_status(l_date_earned, batch_rec.batch_id, 'VW');
294: FND_MESSAGE.SET_NAME('HXT','HXT_39349_CHK_IND_TCARD_ERRS'); --HXT111
295: HXT_BATCH_PROCESS.Insert_Pay_Batch_Errors( batch_rec.batch_id,
296: 'W',

Line 301: --HXT_UTIL.DEBUG('Timecard validation errors.');

297: '',
298: l_return);
299: END IF;
300: IF l_valid_retcode > 2 THEN
301: --HXT_UTIL.DEBUG('Timecard validation errors.');
302: HXT_BATCH_PROCESS.Set_batch_status(l_date_earned, batch_rec.batch_id, 'VE');
303: FND_MESSAGE.SET_NAME('HXT','HXT_39349_CHK_IND_TCARD_ERRS');
304: HXT_BATCH_PROCESS.Insert_Pay_Batch_Errors( batch_rec.batch_id,
305: 'VE',

Line 338: HXT_UTIL.DEBUG('Now moving to PayMIX.');

334: 'VE',
335: '',
336: l_return);
337: ELSIF batch_rec.batch_status in ('VV','VW') THEN -- RETROPAY
338: HXT_UTIL.DEBUG('Now moving to PayMIX.');
339: HXT_RETRO_MIX.retro_sum_to_mix(batch_rec.batch_id,
340: batch_rec.tim_id, l_sum_retcode,
341: v_err_buf);
342: HXT_UTIL.DEBUG('back from moving to PayMIX. v_er_buf is '||v_err_buf);

Line 342: HXT_UTIL.DEBUG('back from moving to PayMIX. v_er_buf is '||v_err_buf);

338: HXT_UTIL.DEBUG('Now moving to PayMIX.');
339: HXT_RETRO_MIX.retro_sum_to_mix(batch_rec.batch_id,
340: batch_rec.tim_id, l_sum_retcode,
341: v_err_buf);
342: HXT_UTIL.DEBUG('back from moving to PayMIX. v_er_buf is '||v_err_buf);
343: HXT_UTIL.DEBUG('back from moving to PayMIX. l_sum_retcode is '||to_char(l_sum_retcode));
344: IF l_sum_retcode > l_final_sum_retcode then
345: l_final_sum_retcode := l_sum_retcode;
346: END IF;

Line 343: HXT_UTIL.DEBUG('back from moving to PayMIX. l_sum_retcode is '||to_char(l_sum_retcode));

339: HXT_RETRO_MIX.retro_sum_to_mix(batch_rec.batch_id,
340: batch_rec.tim_id, l_sum_retcode,
341: v_err_buf);
342: HXT_UTIL.DEBUG('back from moving to PayMIX. v_er_buf is '||v_err_buf);
343: HXT_UTIL.DEBUG('back from moving to PayMIX. l_sum_retcode is '||to_char(l_sum_retcode));
344: IF l_sum_retcode > l_final_sum_retcode then
345: l_final_sum_retcode := l_sum_retcode;
346: END IF;
347: IF (l_sum_retcode = 0) then

Line 348: --HXT_UTIL.DEBUG('Successful move to PayMIX.');

344: IF l_sum_retcode > l_final_sum_retcode then
345: l_final_sum_retcode := l_sum_retcode;
346: END IF;
347: IF (l_sum_retcode = 0) then
348: --HXT_UTIL.DEBUG('Successful move to PayMIX.');
349: HXT_BATCH_PROCESS.Set_batch_status(l_date_earned, batch_rec.batch_id, 'VT');
350: ELSE
351: retcode := 2;
352: FND_MESSAGE.SET_NAME('HXT','HXT_39452_RETRO_SYSTEM_ERROR');

Line 395: HXT_UTIL.DEBUG('Other exception.'||sqlerrm);

391: l_index := null;
392:
393: WHEN OTHERS THEN
394: HXT_BATCH_PROCESS.Set_batch_status(l_date_earned, batch_rec.batch_id, 'VE');
395: HXT_UTIL.DEBUG('Other exception.'||sqlerrm);
396: l_index := null;
397: END; -- batches
398: END LOOP; -- while more batches exist in the range l_index not equal to null
399: -- Check for error totals to return a status from concurrent manager.

Line 463: --HXT_UTIL.DEBUG('Retcode:' || TO_CHAR(l_retcode) || ' ' || l_errbuf);

459: l_retcode := 2;
460: END IF;
461: retcode := l_retcode;
462: errbuf := l_errbuf;
463: --HXT_UTIL.DEBUG('Retcode:' || TO_CHAR(l_retcode) || ' ' || l_errbuf);
464: -- begin C431
465: -- commented out. using sysdate view, now. RTF
466: --delete from fnd_sessions where session_id = userenv('SESSIONID');
467:

Line 520: HXT_UTIL.Gen_Error(p_batch_id, 0, 0, /*g_time_period_id*/NULL, p_error_text,

516: ,p_error_text IN VARCHAR2
517: ,p_oracle_error_text IN VARCHAR2 default NULL ) RETURN NUMBER IS
518: -- calls error processing procedure --
519: BEGIN
520: HXT_UTIL.Gen_Error(p_batch_id, 0, 0, /*g_time_period_id*/NULL, p_error_text,
521: p_location, p_oracle_error_text
522: ,trunc(sysdate) -- C431
523: ,hr_general.end_of_time
524: ,'ERR');