2252: -- Get I/O Directory
2253: --
2254: fnd_profile.get('PER_DATA_EXCHANGE_DIR', l_location);
2255:
2256: fnd_file.put_line(fnd_file.LOG,'directory: <'|| l_location || '>');
2257: if l_location is null then
2258: -- error : I/O directory not defined
2259: fnd_file.put_line(fnd_file.LOG,'Input directory not defined. Set PER_DATA_EXCHANGE_DIR profile (HR: Data Exchange directory).');
2260: raise e_fatal_error;
2255:
2256: fnd_file.put_line(fnd_file.LOG,'directory: <'|| l_location || '>');
2257: if l_location is null then
2258: -- error : I/O directory not defined
2259: fnd_file.put_line(fnd_file.LOG,'Input directory not defined. Set PER_DATA_EXCHANGE_DIR profile (HR: Data Exchange directory).');
2260: raise e_fatal_error;
2261: end if;
2262: -- Open file
2263: l_file_handle := utl_file.fopen(l_location,l_file_name,'r');
2261: end if;
2262: -- Open file
2263: l_file_handle := utl_file.fopen(l_location,l_file_name,'r');
2264: utl_file.get_line(l_file_handle,l_data);
2265: fnd_file.put_line(fnd_file.LOG,l_data);
2266: utl_file.fclose(l_file_handle);
2267: return l_data;
2268: exception
2269: when e_fatal_error then
2267: return l_data;
2268: exception
2269: when e_fatal_error then
2270: UTL_FILE.FCLOSE(l_file_handle);
2271: fnd_file.put_line(fnd_file.LOG,'Fatal Error');
2272: return null;
2273: when UTL_FILE.INVALID_OPERATION then
2274: UTL_FILE.FCLOSE(l_file_handle);
2275: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Operation (file not found).');
2271: fnd_file.put_line(fnd_file.LOG,'Fatal Error');
2272: return null;
2273: when UTL_FILE.INVALID_OPERATION then
2274: UTL_FILE.FCLOSE(l_file_handle);
2275: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Operation (file not found).');
2276: return null;
2277: when UTL_FILE.INTERNAL_ERROR then
2278: UTL_FILE.FCLOSE(l_file_handle);
2279: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Internal Error.');
2275: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Operation (file not found).');
2276: return null;
2277: when UTL_FILE.INTERNAL_ERROR then
2278: UTL_FILE.FCLOSE(l_file_handle);
2279: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Internal Error.');
2280: return null;
2281: when UTL_FILE.INVALID_MODE then
2282: UTL_FILE.FCLOSE(l_file_handle);
2283: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Mode.');
2279: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Internal Error.');
2280: return null;
2281: when UTL_FILE.INVALID_MODE then
2282: UTL_FILE.FCLOSE(l_file_handle);
2283: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Mode.');
2284: return null;
2285: when UTL_FILE.INVALID_PATH then
2286: UTL_FILE.FCLOSE(l_file_handle);
2287: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Path.');
2283: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Mode.');
2284: return null;
2285: when UTL_FILE.INVALID_PATH then
2286: UTL_FILE.FCLOSE(l_file_handle);
2287: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Path.');
2288: return null;
2289: when UTL_FILE.INVALID_FILEHANDLE then
2290: UTL_FILE.FCLOSE(l_file_handle);
2291: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid File Handle.');
2287: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Path.');
2288: return null;
2289: when UTL_FILE.INVALID_FILEHANDLE then
2290: UTL_FILE.FCLOSE(l_file_handle);
2291: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid File Handle.');
2292: return null;
2293: when UTL_FILE.READ_ERROR then
2294: UTL_FILE.FCLOSE(l_file_handle);
2295: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Read Error.');
2291: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid File Handle.');
2292: return null;
2293: when UTL_FILE.READ_ERROR then
2294: UTL_FILE.FCLOSE(l_file_handle);
2295: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Read Error.');
2296: return null;
2297: when others then
2298: fnd_file.put_line(fnd_file.LOG,'Exception : ' || SQLERRM || ' ' || sqlcode);
2299: fnd_file.put_line(fnd_file.LOG,DBMS_UTILITY.format_error_backtrace);
2294: UTL_FILE.FCLOSE(l_file_handle);
2295: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Read Error.');
2296: return null;
2297: when others then
2298: fnd_file.put_line(fnd_file.LOG,'Exception : ' || SQLERRM || ' ' || sqlcode);
2299: fnd_file.put_line(fnd_file.LOG,DBMS_UTILITY.format_error_backtrace);
2300: utl_file.fclose(l_file_handle);
2301: return null;
2302: end get_data_file;
2295: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Read Error.');
2296: return null;
2297: when others then
2298: fnd_file.put_line(fnd_file.LOG,'Exception : ' || SQLERRM || ' ' || sqlcode);
2299: fnd_file.put_line(fnd_file.LOG,DBMS_UTILITY.format_error_backtrace);
2300: utl_file.fclose(l_file_handle);
2301: return null;
2302: end get_data_file;
2303:
3157: WHERE source_id = p_assignment_action_id
3158: AND payroll_id = 111;
3159: l_assgn_number per_all_assignments_f.assignment_number%type;
3160: BEGIN
3161: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENTS PROCESSED SUCCESSFULLY');
3162: fnd_file.put_line(fnd_file.OUTPUT,'----------------------------------');
3163: --fnd_file.put_line(fnd_file.OUTPUT,'-----------------------------------');
3164: fnd_file.put_line(fnd_file.OUTPUT,rpad('ASSIGNMENT NUMBER',20)|| rpad('EMPLOYEE NAME',50)|| rpad('EMPLOYEE CLASSIFICATION',30)|| rpad('AUTO-ENROLMENT DATE',25));
3165: fnd_file.put_line(fnd_file.OUTPUT,'-----------------------------------------------------------------------------------------------------------------------------');
3158: AND payroll_id = 111;
3159: l_assgn_number per_all_assignments_f.assignment_number%type;
3160: BEGIN
3161: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENTS PROCESSED SUCCESSFULLY');
3162: fnd_file.put_line(fnd_file.OUTPUT,'----------------------------------');
3163: --fnd_file.put_line(fnd_file.OUTPUT,'-----------------------------------');
3164: fnd_file.put_line(fnd_file.OUTPUT,rpad('ASSIGNMENT NUMBER',20)|| rpad('EMPLOYEE NAME',50)|| rpad('EMPLOYEE CLASSIFICATION',30)|| rpad('AUTO-ENROLMENT DATE',25));
3165: fnd_file.put_line(fnd_file.OUTPUT,'-----------------------------------------------------------------------------------------------------------------------------');
3166: FOR I IN get_asg_action_id
3159: l_assgn_number per_all_assignments_f.assignment_number%type;
3160: BEGIN
3161: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENTS PROCESSED SUCCESSFULLY');
3162: fnd_file.put_line(fnd_file.OUTPUT,'----------------------------------');
3163: --fnd_file.put_line(fnd_file.OUTPUT,'-----------------------------------');
3164: fnd_file.put_line(fnd_file.OUTPUT,rpad('ASSIGNMENT NUMBER',20)|| rpad('EMPLOYEE NAME',50)|| rpad('EMPLOYEE CLASSIFICATION',30)|| rpad('AUTO-ENROLMENT DATE',25));
3165: fnd_file.put_line(fnd_file.OUTPUT,'-----------------------------------------------------------------------------------------------------------------------------');
3166: FOR I IN get_asg_action_id
3167: LOOP
3160: BEGIN
3161: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENTS PROCESSED SUCCESSFULLY');
3162: fnd_file.put_line(fnd_file.OUTPUT,'----------------------------------');
3163: --fnd_file.put_line(fnd_file.OUTPUT,'-----------------------------------');
3164: fnd_file.put_line(fnd_file.OUTPUT,rpad('ASSIGNMENT NUMBER',20)|| rpad('EMPLOYEE NAME',50)|| rpad('EMPLOYEE CLASSIFICATION',30)|| rpad('AUTO-ENROLMENT DATE',25));
3165: fnd_file.put_line(fnd_file.OUTPUT,'-----------------------------------------------------------------------------------------------------------------------------');
3166: FOR I IN get_asg_action_id
3167: LOOP
3168: FOR J IN get_assignment_info(I.assignment_id,I.asg_action_id)
3161: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENTS PROCESSED SUCCESSFULLY');
3162: fnd_file.put_line(fnd_file.OUTPUT,'----------------------------------');
3163: --fnd_file.put_line(fnd_file.OUTPUT,'-----------------------------------');
3164: fnd_file.put_line(fnd_file.OUTPUT,rpad('ASSIGNMENT NUMBER',20)|| rpad('EMPLOYEE NAME',50)|| rpad('EMPLOYEE CLASSIFICATION',30)|| rpad('AUTO-ENROLMENT DATE',25));
3165: fnd_file.put_line(fnd_file.OUTPUT,'-----------------------------------------------------------------------------------------------------------------------------');
3166: FOR I IN get_asg_action_id
3167: LOOP
3168: FOR J IN get_assignment_info(I.assignment_id,I.asg_action_id)
3169: LOOP
3166: FOR I IN get_asg_action_id
3167: LOOP
3168: FOR J IN get_assignment_info(I.assignment_id,I.asg_action_id)
3169: LOOP
3170: fnd_file.put_line(fnd_file.OUTPUT,rpad(J.assignment_number,20)|| rpad(J.full_name,50)|| rpad(J.classification,30)|| rpad(J.auto_en_date,25));
3171: /*FOR J IN get_warn_messages(I.asg_action_id)
3172: LOOP
3173: fnd_file.put_line(fnd_file.OUTPUT,lpad('WARNING: ',10)||J.line_text);
3174: --fnd_file.put_line(fnd_file.OUTPUT,lpad(J.line_text,125));
3169: LOOP
3170: fnd_file.put_line(fnd_file.OUTPUT,rpad(J.assignment_number,20)|| rpad(J.full_name,50)|| rpad(J.classification,30)|| rpad(J.auto_en_date,25));
3171: /*FOR J IN get_warn_messages(I.asg_action_id)
3172: LOOP
3173: fnd_file.put_line(fnd_file.OUTPUT,lpad('WARNING: ',10)||J.line_text);
3174: --fnd_file.put_line(fnd_file.OUTPUT,lpad(J.line_text,125));
3175: END LOOP;
3176: */
3177: END LOOP;
3170: fnd_file.put_line(fnd_file.OUTPUT,rpad(J.assignment_number,20)|| rpad(J.full_name,50)|| rpad(J.classification,30)|| rpad(J.auto_en_date,25));
3171: /*FOR J IN get_warn_messages(I.asg_action_id)
3172: LOOP
3173: fnd_file.put_line(fnd_file.OUTPUT,lpad('WARNING: ',10)||J.line_text);
3174: --fnd_file.put_line(fnd_file.OUTPUT,lpad(J.line_text,125));
3175: END LOOP;
3176: */
3177: END LOOP;
3178: END LOOP;
3175: END LOOP;
3176: */
3177: END LOOP;
3178: END LOOP;
3179: fnd_file.put_line(fnd_file.OUTPUT,' ');
3180: fnd_file.put_line(fnd_file.OUTPUT,' ');
3181: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENTS COMPLETED WITH WARNINGS');
3182: fnd_file.put_line(fnd_file.OUTPUT,'-----------------------------------');
3183: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENT NUMBER - MESSAGE');
3176: */
3177: END LOOP;
3178: END LOOP;
3179: fnd_file.put_line(fnd_file.OUTPUT,' ');
3180: fnd_file.put_line(fnd_file.OUTPUT,' ');
3181: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENTS COMPLETED WITH WARNINGS');
3182: fnd_file.put_line(fnd_file.OUTPUT,'-----------------------------------');
3183: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENT NUMBER - MESSAGE');
3184: fnd_file.put_line(fnd_file.OUTPUT,'-------------------------------------');
3177: END LOOP;
3178: END LOOP;
3179: fnd_file.put_line(fnd_file.OUTPUT,' ');
3180: fnd_file.put_line(fnd_file.OUTPUT,' ');
3181: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENTS COMPLETED WITH WARNINGS');
3182: fnd_file.put_line(fnd_file.OUTPUT,'-----------------------------------');
3183: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENT NUMBER - MESSAGE');
3184: fnd_file.put_line(fnd_file.OUTPUT,'-------------------------------------');
3185: FOR I IN get_asg_action_id
3178: END LOOP;
3179: fnd_file.put_line(fnd_file.OUTPUT,' ');
3180: fnd_file.put_line(fnd_file.OUTPUT,' ');
3181: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENTS COMPLETED WITH WARNINGS');
3182: fnd_file.put_line(fnd_file.OUTPUT,'-----------------------------------');
3183: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENT NUMBER - MESSAGE');
3184: fnd_file.put_line(fnd_file.OUTPUT,'-------------------------------------');
3185: FOR I IN get_asg_action_id
3186: LOOP
3179: fnd_file.put_line(fnd_file.OUTPUT,' ');
3180: fnd_file.put_line(fnd_file.OUTPUT,' ');
3181: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENTS COMPLETED WITH WARNINGS');
3182: fnd_file.put_line(fnd_file.OUTPUT,'-----------------------------------');
3183: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENT NUMBER - MESSAGE');
3184: fnd_file.put_line(fnd_file.OUTPUT,'-------------------------------------');
3185: FOR I IN get_asg_action_id
3186: LOOP
3187: FOR J IN get_warn_messages(I.asg_action_id)
3180: fnd_file.put_line(fnd_file.OUTPUT,' ');
3181: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENTS COMPLETED WITH WARNINGS');
3182: fnd_file.put_line(fnd_file.OUTPUT,'-----------------------------------');
3183: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENT NUMBER - MESSAGE');
3184: fnd_file.put_line(fnd_file.OUTPUT,'-------------------------------------');
3185: FOR I IN get_asg_action_id
3186: LOOP
3187: FOR J IN get_warn_messages(I.asg_action_id)
3188: LOOP
3188: LOOP
3189: OPEN get_assignment_number(I.assignment_id);
3190: FETCH get_assignment_number INTO l_assgn_number;
3191: CLOSE get_assignment_number;
3192: fnd_file.put_line(fnd_file.OUTPUT,rpad(NVL(l_assgn_number,'NA'),20)||J.line_text);
3193: END LOOP;
3194: END LOOP;
3195: fnd_file.put_line(fnd_file.OUTPUT,' ');
3196: fnd_file.put_line(fnd_file.OUTPUT,' ');
3191: CLOSE get_assignment_number;
3192: fnd_file.put_line(fnd_file.OUTPUT,rpad(NVL(l_assgn_number,'NA'),20)||J.line_text);
3193: END LOOP;
3194: END LOOP;
3195: fnd_file.put_line(fnd_file.OUTPUT,' ');
3196: fnd_file.put_line(fnd_file.OUTPUT,' ');
3197: fnd_file.put_line(fnd_file.OUTPUT,'ERRORED ASSIGNMENTS');
3198: fnd_file.put_line(fnd_file.OUTPUT,'-------------------');
3199: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENT NUMBER - MESSAGE');
3192: fnd_file.put_line(fnd_file.OUTPUT,rpad(NVL(l_assgn_number,'NA'),20)||J.line_text);
3193: END LOOP;
3194: END LOOP;
3195: fnd_file.put_line(fnd_file.OUTPUT,' ');
3196: fnd_file.put_line(fnd_file.OUTPUT,' ');
3197: fnd_file.put_line(fnd_file.OUTPUT,'ERRORED ASSIGNMENTS');
3198: fnd_file.put_line(fnd_file.OUTPUT,'-------------------');
3199: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENT NUMBER - MESSAGE');
3200: fnd_file.put_line(fnd_file.OUTPUT,'-------------------------------------');
3193: END LOOP;
3194: END LOOP;
3195: fnd_file.put_line(fnd_file.OUTPUT,' ');
3196: fnd_file.put_line(fnd_file.OUTPUT,' ');
3197: fnd_file.put_line(fnd_file.OUTPUT,'ERRORED ASSIGNMENTS');
3198: fnd_file.put_line(fnd_file.OUTPUT,'-------------------');
3199: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENT NUMBER - MESSAGE');
3200: fnd_file.put_line(fnd_file.OUTPUT,'-------------------------------------');
3201: FOR I IN get_asg_action_id_error
3194: END LOOP;
3195: fnd_file.put_line(fnd_file.OUTPUT,' ');
3196: fnd_file.put_line(fnd_file.OUTPUT,' ');
3197: fnd_file.put_line(fnd_file.OUTPUT,'ERRORED ASSIGNMENTS');
3198: fnd_file.put_line(fnd_file.OUTPUT,'-------------------');
3199: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENT NUMBER - MESSAGE');
3200: fnd_file.put_line(fnd_file.OUTPUT,'-------------------------------------');
3201: FOR I IN get_asg_action_id_error
3202: LOOP
3195: fnd_file.put_line(fnd_file.OUTPUT,' ');
3196: fnd_file.put_line(fnd_file.OUTPUT,' ');
3197: fnd_file.put_line(fnd_file.OUTPUT,'ERRORED ASSIGNMENTS');
3198: fnd_file.put_line(fnd_file.OUTPUT,'-------------------');
3199: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENT NUMBER - MESSAGE');
3200: fnd_file.put_line(fnd_file.OUTPUT,'-------------------------------------');
3201: FOR I IN get_asg_action_id_error
3202: LOOP
3203: FOR J IN get_messages(I.asg_action_id)
3196: fnd_file.put_line(fnd_file.OUTPUT,' ');
3197: fnd_file.put_line(fnd_file.OUTPUT,'ERRORED ASSIGNMENTS');
3198: fnd_file.put_line(fnd_file.OUTPUT,'-------------------');
3199: fnd_file.put_line(fnd_file.OUTPUT,'ASSIGNMENT NUMBER - MESSAGE');
3200: fnd_file.put_line(fnd_file.OUTPUT,'-------------------------------------');
3201: FOR I IN get_asg_action_id_error
3202: LOOP
3203: FOR J IN get_messages(I.asg_action_id)
3204: LOOP
3204: LOOP
3205: OPEN get_assignment_number(I.assignment_id);
3206: FETCH get_assignment_number INTO l_assgn_number;
3207: CLOSE get_assignment_number;
3208: fnd_file.put_line(fnd_file.OUTPUT,rpad(NVL(l_assgn_number,'NA'),20)||J.line_text);
3209: END LOOP;
3210: END LOOP;
3211: END;
3212: -----
3314: hr_utility.set_location('Entering: '||l_proc,1);
3315: G_PAYROLL_ACTION_ID := pactid;
3316: FETCH_DATA();
3317: /* IF G_PENSION_STAGING_DATE IS NULL THEN
3318: fnd_file.put_line(fnd_file.OUTPUT,'Staging Date has not been Set.');
3319: RAISE_APPLICATION_ERROR (-20001,'Please enter a Staging Date.') ;
3320: END IF;
3321: IF (G_PRP_END_DATE < FND_DATE.canonical_to_date(G_PENSION_STAGING_DATE)) THEN-- Staging Date
3322: fnd_file.put_line(fnd_file.OUTPUT,'Staging Date Not Yet Reached in this Pay Reference Period.');
3318: fnd_file.put_line(fnd_file.OUTPUT,'Staging Date has not been Set.');
3319: RAISE_APPLICATION_ERROR (-20001,'Please enter a Staging Date.') ;
3320: END IF;
3321: IF (G_PRP_END_DATE < FND_DATE.canonical_to_date(G_PENSION_STAGING_DATE)) THEN-- Staging Date
3322: fnd_file.put_line(fnd_file.OUTPUT,'Staging Date Not Yet Reached in this Pay Reference Period.');
3323: RAISE_APPLICATION_ERROR (-20001,'Please check the Staging Date / Default Pension Scheme if they are properly set up.') ;
3324: END IF;-- Staging Date
3325: bug 16178067 */
3326: /* IF G_BUSINESS_GROUP_ID IS NOT NULL AND G_PAYROLL_ID IS NOT NULL AND G_PRP_END_DATE IS NOT NULL THEN
3351: G_EMPLOYER_COMPONENT;
3352: IF C_GET_DEFAULT_PENSION_INFO%NOTFOUND THEN
3353: --ERROR
3354: hr_utility.trace('No Default Pension Scheme has been set up.');
3355: fnd_file.put_line(fnd_file.OUTPUT,'No Default Pension Scheme has been set up.');
3356: RAISE_APPLICATION_ERROR(-20001,'No Default Pension Scheme has been set up.');
3357: END IF;
3358: CLOSE C_GET_DEFAULT_PENSION_INFO;
3359: */
3451: EXCEPTION
3452: /*
3453: WHEN L_EXCEPTION THEN
3454: hr_utility.trace('Please Check the Staging Date / Default Pension Scheme if they are properly Set up.');
3455: fnd_file.put_line(fnd_file.OUTPUT,' ');
3456: RAISE_APPLICATION_ERROR (-20001,'Please Check the Staging Date / Default Pension Scheme if they are properly Set up.') ;
3457: */
3458: WHEN OTHERS THEN
3459: RAISE_APPLICATION_ERROR (-20001,'Error Occured in Action Creation');