[Home] [Help]
436: g_sys_award_year igf_ap_batch_aw_map.sys_award_year%TYPE ;
437: l_alternate_code igs_ca_inst.alternate_code%TYPE ;
438: l_rec_processed NUMBER;
439: l_rec_imported NUMBER;
440: l_last_person_number igf_ap_li_vern_ints.person_number%TYPE ;
441: l_fa_base_id igf_ap_fa_base_rec.base_id%TYPE;
442: l_person_id igf_ap_fa_base_rec.person_id%TYPE;
443: l_dup_item_found BOOLEAN;
444: l_pay_isir_id igf_ap_isir_matched.isir_id%TYPE ;
468: WHERE map.ci_cal_type = g_ci_cal_type
469: AND map.ci_sequence_number = g_ci_sequence_number ;
470:
471: -- cursor to get persons for import
472: CURSOR c_get_persons ( cp_alternate_code igf_ap_li_vern_ints.ci_alternate_code%TYPE,
473: cp_batch_num igf_ap_li_vern_ints.batch_num%TYPE ) IS
474: SELECT *
475: FROM igf_ap_li_vern_ints
476: WHERE ci_alternate_code = cp_alternate_code
469: AND map.ci_sequence_number = g_ci_sequence_number ;
470:
471: -- cursor to get persons for import
472: CURSOR c_get_persons ( cp_alternate_code igf_ap_li_vern_ints.ci_alternate_code%TYPE,
473: cp_batch_num igf_ap_li_vern_ints.batch_num%TYPE ) IS
474: SELECT *
475: FROM igf_ap_li_vern_ints
476: WHERE ci_alternate_code = cp_alternate_code
477: AND batch_num = cp_batch_num
471: -- cursor to get persons for import
472: CURSOR c_get_persons ( cp_alternate_code igf_ap_li_vern_ints.ci_alternate_code%TYPE,
473: cp_batch_num igf_ap_li_vern_ints.batch_num%TYPE ) IS
474: SELECT *
475: FROM igf_ap_li_vern_ints
476: WHERE ci_alternate_code = cp_alternate_code
477: AND batch_num = cp_batch_num
478: AND import_status_type IN ('R','U')
479: ORDER BY person_number ;
712: IF g_skip_person THEN
713: -- person skip flag set....
714: -- if flag set then the person related records aer to be marked as error records and skipped
715: -- update all person records to error status
716: UPDATE igf_ap_li_vern_ints
717: SET import_status_type = 'E'
718: WHERE batch_num = p_batch_num
719: AND person_number = person_rec.person_number ;
720: --COMMIT ;
784:
785: -- all record validations done ...
786: -- now check for skip record flag
787: IF g_skip_record THEN
788: UPDATE igf_ap_li_vern_ints
789: SET import_status_type = 'E'
790: WHERE verint_id = person_rec.verint_id ;
791: COMMIT ;
792: ELSE
816: END IF;
817:
818: -- now update the record status
819: IF p_delete_flag = 'Y' THEN
820: DELETE FROM igf_ap_li_vern_ints
821: WHERE verint_id = person_rec.verint_id ;
822: COMMIT ;
823: ELSE
824: UPDATE igf_ap_li_vern_ints
820: DELETE FROM igf_ap_li_vern_ints
821: WHERE verint_id = person_rec.verint_id ;
822: COMMIT ;
823: ELSE
824: UPDATE igf_ap_li_vern_ints
825: SET import_status_type = 'I'
826: WHERE verint_id = person_rec.verint_id ;
827: COMMIT ;
828: END IF ;