DBA Data[Home] [Help]

APPS.IGS_AD_IMP_008 dependencies on IGS_AD_RELEMP_INT_ALL

Line 3214: P_RELEMP_REC IN IGS_AD_RELEMP_INT_ALL%ROWTYPE,

3210: END LOOP;
3211: END crt_rel_acad_his;
3212:
3213: PROCEDURE validate_relns_emp_dtls(
3214: P_RELEMP_REC IN IGS_AD_RELEMP_INT_ALL%ROWTYPE,
3215: p_rel_person_id IN hz_parties.party_id%TYPE,
3216: P_EMPLOYER_PARTY_ID IN OUT NOCOPY NUMBER,
3217: P_ERROR_CODE OUT NOCOPY VARCHAR2);
3218:

Line 3220: P_RELEMP_REC IGS_AD_RELEMP_INT_ALL%ROWTYPE, p_person_id NUMBER) AS

3216: P_EMPLOYER_PARTY_ID IN OUT NOCOPY NUMBER,
3217: P_ERROR_CODE OUT NOCOPY VARCHAR2);
3218:
3219: PROCEDURE Crt_Relns_Emp_Dtls(
3220: P_RELEMP_REC IGS_AD_RELEMP_INT_ALL%ROWTYPE, p_person_id NUMBER) AS
3221:
3222: lv_var VARCHAR2(1);
3223: l_rowid VARCHAR2(25);
3224: l_msg_data VARCHAR2(2000);

Line 3261: UPDATE igs_ad_relemp_int_all

3257:
3258: validate_relns_emp_dtls(P_RELEMP_REC,p_person_id,l_employer_party_id,l_error_code);
3259:
3260: IF l_error_code IS NOT NULL THEN
3261: UPDATE igs_ad_relemp_int_all
3262: SET status = '3', error_code = l_error_code
3263: WHERE interface_relemp_id = p_relemp_rec.interface_relemp_id;
3264: ELSE
3265: BEGIN

Line 3300: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,'E322','IGS_AD_RELEMP_INT_ALL');

3296: IF l_enable_log = 'Y' THEN
3297: fnd_message.set_name('igs', 'igs_ad_crt_emp_dtl_failed');
3298: fnd_file.put_line(fnd_file.log, fnd_message.get);
3299: -- Log the message Employment Details failed
3300: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,'E322','IGS_AD_RELEMP_INT_ALL');
3301: END IF;
3302:
3303: IF fnd_log.test(fnd_log.level_exception,l_prog_label) THEN
3304: IF (l_request_id IS NULL) THEN

Line 3318: UPDATE igs_ad_relemp_int_all

3314: l_debug_str, NULL,
3315: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
3316: END IF;
3317: --ssomani, added the update of igs_ad_relemp_int 15 March 2001
3318: UPDATE igs_ad_relemp_int_all
3319: SET status = '3', error_code = 'E322'
3320: WHERE interface_relemp_id = p_relemp_rec.interface_relemp_id;
3321: ELSE
3322: UPDATE igs_ad_relemp_int_all

Line 3322: UPDATE igs_ad_relemp_int_all

3318: UPDATE igs_ad_relemp_int_all
3319: SET status = '3', error_code = 'E322'
3320: WHERE interface_relemp_id = p_relemp_rec.interface_relemp_id;
3321: ELSE
3322: UPDATE igs_ad_relemp_int_all
3323: SET status = '1', error_code = NULL
3324: WHERE interface_relemp_id = p_relemp_rec.interface_relemp_id;
3325: END IF;
3326:

Line 3346: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,'E518','IGS_AD_RELEMP_INT_ALL');

3342: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
3343: END IF;
3344:
3345: IF l_enable_log = 'Y' THEN
3346: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,'E518','IGS_AD_RELEMP_INT_ALL');
3347: END IF;
3348:
3349: UPDATE igs_ad_relemp_int_all
3350: SET status = '3', error_code = 'E518'

Line 3349: UPDATE igs_ad_relemp_int_all

3345: IF l_enable_log = 'Y' THEN
3346: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,'E518','IGS_AD_RELEMP_INT_ALL');
3347: END IF;
3348:
3349: UPDATE igs_ad_relemp_int_all
3350: SET status = '3', error_code = 'E518'
3351: WHERE interface_relemp_id = p_relemp_rec.interface_relemp_id;
3352: END;
3353: END IF;

Line 3357: PROCEDURE validate_relns_emp_dtls(P_RELEMP_REC IN IGS_AD_RELEMP_INT_ALL%ROWTYPE,

3353: END IF;
3354:
3355: END Crt_Relns_Emp_Dtls;
3356:
3357: PROCEDURE validate_relns_emp_dtls(P_RELEMP_REC IN IGS_AD_RELEMP_INT_ALL%ROWTYPE,
3358: P_REL_PERSON_ID IN hz_parties.party_id%TYPE,
3359: P_EMPLOYER_PARTY_ID IN OUT NOCOPY NUMBER,
3360: P_ERROR_CODE OUT NOCOPY VARCHAR2) AS
3361:

Line 3424: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');

3420: --ssomani, corrected these validations 15 March 2001
3421: IF (P_RELEMP_REC.OCCUPATIONAL_TITLE_CODE IS NOT NULl AND lv_var = 'N') THEN
3422: p_error_code :='E223';
3423: IF l_enable_log = 'Y' THEN
3424: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');
3425: END IF;
3426: RETURN;
3427: END IF;
3428:

Line 3432: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');

3428:
3429: IF P_RELEMP_REC.Start_DT IS NULL THEN
3430: p_error_code :='E407';
3431: IF l_enable_log = 'Y' THEN
3432: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');
3433: END IF;
3434: RETURN;
3435: END IF;
3436:

Line 3440: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');

3436:
3437: IF NVL(P_RELEMP_REC.End_Dt,P_RELEMP_REC.Start_Dt) < P_RELEMP_REC.Start_DT THEN
3438: p_error_code :='E406';
3439: IF l_enable_log = 'Y' THEN
3440: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');
3441: END IF;
3442: RETURN;
3443: END IF;
3444:

Line 3453: igs_ad_imp_001.logerrormessage( p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');

3449: IF l_birth_date IS NOT NULL THEN
3450: IF p_relemp_rec.start_dt < l_birth_date THEN
3451: p_error_code := 'E222';
3452: IF l_enable_log = 'Y' THEN
3453: igs_ad_imp_001.logerrormessage( p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');
3454: END IF;
3455: RETURN;
3456: END IF;
3457: END IF;

Line 3463: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,'E224','IGS_AD_RELEMP_INT_ALL');

3459: IF P_RELEMP_REC.TYPE_OF_EMPLOYMENT IS NOT NULL THEN
3460: IF NOT (igs_pe_pers_imp_001.validate_lookup_type_code('HZ_EMPLOYMENT_TYPE',P_RELEMP_REC.TYPE_OF_EMPLOYMENT,222)) THEN
3461: p_error_code :='E224';
3462: IF l_enable_log = 'Y' THEN
3463: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,'E224','IGS_AD_RELEMP_INT_ALL');
3464: END IF;
3465: RETURN;
3466: END IF;
3467: END IF;

Line 3472: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');

3468:
3469: IF NVL(P_RELEMP_REC.FRACTION_OF_EMPLOYMENT,1) NOT BETWEEN 0.01 AND 100.00 THEN
3470: p_error_code :='E225';
3471: IF l_enable_log = 'Y' THEN
3472: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');
3473: END IF;
3474: RETURN;
3475: END IF;
3476:

Line 3481: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');

3477: IF P_RELEMP_REC.TENURE_OF_EMPLOYMENT IS NOT NULL THEN
3478: IF NOT (igs_pe_pers_imp_001.validate_lookup_type_code('HZ_TENURE_CODE',P_RELEMP_REC.TENURE_OF_EMPLOYMENT,222))THEN
3479: p_error_code :='E226';
3480: IF l_enable_log = 'Y' THEN
3481: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');
3482: END IF;
3483: RETURN;
3484: END IF;
3485:

Line 3491: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');

3487:
3488: IF P_RELEMP_REC.WEEKLY_WORK_HOURS < 0 OR P_RELEMP_REC.WEEKLY_WORK_HOURS > 168 THEN
3489: p_error_code :='E227';
3490: IF l_enable_log = 'Y' THEN
3491: igs_ad_imp_001.logerrormessage(p_relemp_rec.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');
3492: END IF;
3493: RETURN;
3494: END IF;
3495:

Line 3500: igs_ad_imp_001.logerrormessage(P_RELEMP_REC.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');

3496: --Employer and Employed_by_party_id are mutually_exclusive
3497: IF P_RELEMP_REC.employer_party_number IS NOT NULL AND P_RELEMP_REC.EMPLOYER IS NOT NULL THEN
3498: p_error_code := 'E755';
3499: IF l_enable_log = 'Y' THEN
3500: igs_ad_imp_001.logerrormessage(P_RELEMP_REC.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');
3501: END IF;
3502: RETURN;
3503: END IF;
3504:

Line 3512: igs_ad_imp_001.logerrormessage(P_RELEMP_REC.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');

3508: FETCH employer_party_number_cur INTO p_employer_party_id;
3509: IF employer_party_number_cur%NOTFOUND THEN
3510: p_error_code := 'E756';
3511: IF l_enable_log = 'Y' THEN
3512: igs_ad_imp_001.logerrormessage(P_RELEMP_REC.interface_relemp_id,p_error_code,'IGS_AD_RELEMP_INT_ALL');
3513: END IF;
3514: RETURN;
3515: END IF;
3516: CLOSE employer_party_number_cur;

Line 3537: FROM igs_ad_relemp_int_all ri

3533: l_interface_run_id igs_ad_interface_all.interface_run_id%TYPE;
3534:
3535: CURSOR Relns_Emp_Dtls(cp_interface_relations_id NUMBER) IS
3536: SELECT ri.*
3537: FROM igs_ad_relemp_int_all ri
3538: WHERE
3539: INTERFACE_RELATIONS_ID = cP_INTERFACE_RELATIONS_ID AND
3540: ri.STATUS = '2';
3541:

Line 3578: UPDATE igs_ad_relemp_int_all

3574: l_rule := Igs_Ad_Imp_001.find_source_cat_rule(p_source_type_id,'RELATIONS_EMPLOYMENT_DETAILS');
3575:
3576: --1 If rule is E or I, then if the match_ind is not null, the combination is invalid
3577: IF l_rule IN ('E','I') THEN
3578: UPDATE igs_ad_relemp_int_all
3579: SET status = '3',
3580: ERROR_CODE = 'E695' -- Error code depicting incorrect combination
3581: WHERE match_ind IS NOT NULL
3582: AND status = '2'

Line 3588: UPDATE igs_ad_relemp_int_all mi

3584: END IF;
3585:
3586: --2 If rule is E and duplicate exists, update match_ind to 19 and status to 1
3587: IF l_rule = 'E' THEN
3588: UPDATE igs_ad_relemp_int_all mi
3589: SET status = '1',
3590: match_ind = '19'
3591: WHERE mi.interface_relations_id = p_interface_relations_id
3592: AND mi.status = '2'

Line 3605: UPDATE igs_ad_relemp_int_all

3601:
3602: --3 If rule is R and there match_ind is 18,19,22 or 23 then the records must have been
3603: -- processed in prior runs and didn't get updated .. update to status 1
3604: IF l_rule = 'R' THEN
3605: UPDATE igs_ad_relemp_int_all
3606: SET status = '1'
3607: WHERE interface_relations_id = p_interface_relations_id
3608: AND match_ind IN ('18','19','22','23')
3609: AND status = '2';

Line 3614: UPDATE igs_ad_relemp_int_all

3610: END IF;
3611:
3612: --4 If rule is R and match_ind is neither 21 nor 25 then error
3613: IF l_rule = 'R' THEN
3614: UPDATE igs_ad_relemp_int_all
3615: SET status = '3',
3616: ERROR_CODE = 'E695'
3617: WHERE interface_relations_id = p_interface_relations_id
3618: AND status = '2'

Line 3624: UPDATE igs_ad_relemp_int_all mi

3620: END IF;
3621:
3622: --5 If rule is R, set duplicated records with no discrepancy to status 1 and match_ind 23
3623: IF l_rule = 'R' THEN
3624: UPDATE igs_ad_relemp_int_all mi
3625: SET status = '1',
3626: match_ind = '23'
3627: WHERE mi.interface_relations_id = p_interface_relations_id
3628: AND mi.match_ind IS NULL

Line 3650: UPDATE igs_ad_relemp_int_all mi

3646: END IF;
3647:
3648: --6 If rule is R records still exist, they are duplicates and have discrepancy .. update status=3,match_ind=20
3649: IF l_rule = 'R' THEN
3650: UPDATE igs_ad_relemp_int_all mi
3651: SET status = '3',
3652: match_ind = '20',
3653: dup_employment_history_id = (SELECT pe.employment_history_id
3654: FROM IGS_AD_EMP_DTL pe

Line 3708: UPDATE igs_ad_relemp_int_all

3704:
3705: validate_relns_emp_dtls(Relns_Emp_Dtls_Rec,p_rel_person_id,l_employer_party_id,l_error_code);
3706:
3707: IF l_error_code IS NOT NULL THEN
3708: UPDATE igs_ad_relemp_int_all
3709: SET status = '3', error_code = l_error_code
3710: WHERE interface_relemp_id = relns_emp_dtls_rec.interface_relemp_id;
3711: ELSE
3712: --Signature of Igs_Ad_Emp_Dtl_Pkg is changed to include HZ.K impact changes

Line 3744: igs_ad_imp_001.logerrormessage(relns_emp_dtls_rec.interface_relemp_id,'E014','IGS_AD_RELEMP_INT_ALL');

3740: );
3741:
3742: IF l_return_Status IN ('E','U') THEN
3743: IF l_enable_log = 'Y' THEN
3744: igs_ad_imp_001.logerrormessage(relns_emp_dtls_rec.interface_relemp_id,'E014','IGS_AD_RELEMP_INT_ALL');
3745: END IF;
3746:
3747: IF fnd_log.test(fnd_log.level_exception,l_prog_label) THEN
3748: IF (l_request_id IS NULL) THEN

Line 3764: UPDATE igs_ad_relemp_int_all

3760: l_debug_str, NULL,
3761: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id)
3762: );
3763: END IF;
3764: UPDATE igs_ad_relemp_int_all
3765: SET error_code = 'E014', status = '3'
3766: WHERE interface_relemp_id = relns_emp_dtls_rec.interface_relemp_id;
3767: ELSE
3768: UPDATE igs_ad_relemp_int_all

Line 3768: UPDATE igs_ad_relemp_int_all

3764: UPDATE igs_ad_relemp_int_all
3765: SET error_code = 'E014', status = '3'
3766: WHERE interface_relemp_id = relns_emp_dtls_rec.interface_relemp_id;
3767: ELSE
3768: UPDATE igs_ad_relemp_int_all
3769: SET status = '1', error_code = NULL, match_ind ='18'
3770: WHERE interface_relemp_id = relns_emp_dtls_rec.interface_relemp_id;
3771: END IF;
3772: END IF;

Line 3786: UPDATE igs_ad_relemp_int_all

3782: --ssomani corrected the validation 15 March 2001
3783:
3784: validate_relns_emp_dtls(Relns_Emp_Dtls_Rec,p_rel_person_id,l_employer_party_id,l_error_code);
3785: IF l_error_code IS NOT NULL THEN
3786: UPDATE igs_ad_relemp_int_all
3787: SET status = '3', error_code = l_error_code
3788: WHERE interface_relemp_id = relns_emp_dtls_rec.interface_relemp_id;
3789: ELSE
3790: --Signature of Igs_Ad_Emp_Dtl_Pkg is changed to include HZ.K impact changes

Line 3837: igs_ad_imp_001.logerrormessage(relns_emp_dtls_rec.interface_relemp_id,'E014','IGS_AD_RELEMP_INT_ALL');

3833: );
3834: END IF;
3835:
3836: IF l_enable_log = 'Y' THEN
3837: igs_ad_imp_001.logerrormessage(relns_emp_dtls_rec.interface_relemp_id,'E014','IGS_AD_RELEMP_INT_ALL');
3838: END IF;
3839: UPDATE igs_ad_relemp_int_all
3840: SET error_code = 'E014', status = '3'
3841: WHERE interface_relemp_id = relns_emp_dtls_rec.interface_relemp_id;

Line 3839: UPDATE igs_ad_relemp_int_all

3835:
3836: IF l_enable_log = 'Y' THEN
3837: igs_ad_imp_001.logerrormessage(relns_emp_dtls_rec.interface_relemp_id,'E014','IGS_AD_RELEMP_INT_ALL');
3838: END IF;
3839: UPDATE igs_ad_relemp_int_all
3840: SET error_code = 'E014', status = '3'
3841: WHERE interface_relemp_id = relns_emp_dtls_rec.interface_relemp_id;
3842: ELSE
3843: UPDATE igs_ad_relemp_int_all

Line 3843: UPDATE igs_ad_relemp_int_all

3839: UPDATE igs_ad_relemp_int_all
3840: SET error_code = 'E014', status = '3'
3841: WHERE interface_relemp_id = relns_emp_dtls_rec.interface_relemp_id;
3842: ELSE
3843: UPDATE igs_ad_relemp_int_all
3844: SET error_code = NULL, status = '1', match_ind ='18'
3845: WHERE interface_relemp_id = relns_emp_dtls_rec.interface_relemp_id;
3846: END IF;
3847: END IF;