2: /* $Header: IGFAW20B.pls 120.4 2006/01/27 00:59:32 ridas noship $ */
3:
4:
5: PROCEDURE process_anti_data(p_base_id igf_ap_fa_base_rec_all.base_id%TYPE,
6: p_ld_cal_type igs_ca_inst_all.cal_type%TYPE,
7: p_ld_sequence_number igs_ca_inst_all.sequence_number%TYPE,
8: p_interface igf_aw_anticpt_ints%ROWTYPE,
9: p_delete_flag VARCHAR2)
10: IS
3:
4:
5: PROCEDURE process_anti_data(p_base_id igf_ap_fa_base_rec_all.base_id%TYPE,
6: p_ld_cal_type igs_ca_inst_all.cal_type%TYPE,
7: p_ld_sequence_number igs_ca_inst_all.sequence_number%TYPE,
8: p_interface igf_aw_anticpt_ints%ROWTYPE,
9: p_delete_flag VARCHAR2)
10: IS
11: ------------------------------------------------------------------
558:
559: l_chk_batch c_chk_batch%ROWTYPE;
560:
561:
562: CURSOR c_get_cal_typ_seq_num(p_alternate_code igs_ca_inst_all.alternate_code%TYPE,
563: p_cal_type igs_ca_inst_all.cal_type%TYPE,
564: p_sequence_number igs_ca_inst_all.sequence_number%TYPE
565: )
566: IS
559: l_chk_batch c_chk_batch%ROWTYPE;
560:
561:
562: CURSOR c_get_cal_typ_seq_num(p_alternate_code igs_ca_inst_all.alternate_code%TYPE,
563: p_cal_type igs_ca_inst_all.cal_type%TYPE,
564: p_sequence_number igs_ca_inst_all.sequence_number%TYPE
565: )
566: IS
567: SELECT ld_cal_type, ld_sequence_number
560:
561:
562: CURSOR c_get_cal_typ_seq_num(p_alternate_code igs_ca_inst_all.alternate_code%TYPE,
563: p_cal_type igs_ca_inst_all.cal_type%TYPE,
564: p_sequence_number igs_ca_inst_all.sequence_number%TYPE
565: )
566: IS
567: SELECT ld_cal_type, ld_sequence_number
568: FROM igf_aw_awd_ld_cal_v cal
572:
573: l_get_cal_typ_seq_num c_get_cal_typ_seq_num%ROWTYPE;
574:
575:
576: lv_ci_cal_type igs_ca_inst_all.cal_type%TYPE;
577: ln_ci_sequence_number igs_ca_inst_all.sequence_number%TYPE;
578: lv_alternate_code igs_ca_inst_all.alternate_code%TYPE;
579: lv_ld_cal_type igs_ca_inst_all.cal_type%TYPE;
580: ln_ld_sequence_number igs_ca_inst_all.sequence_number%TYPE;
573: l_get_cal_typ_seq_num c_get_cal_typ_seq_num%ROWTYPE;
574:
575:
576: lv_ci_cal_type igs_ca_inst_all.cal_type%TYPE;
577: ln_ci_sequence_number igs_ca_inst_all.sequence_number%TYPE;
578: lv_alternate_code igs_ca_inst_all.alternate_code%TYPE;
579: lv_ld_cal_type igs_ca_inst_all.cal_type%TYPE;
580: ln_ld_sequence_number igs_ca_inst_all.sequence_number%TYPE;
581: ln_person_id igf_ap_fa_base_rec_all.person_id%TYPE;
574:
575:
576: lv_ci_cal_type igs_ca_inst_all.cal_type%TYPE;
577: ln_ci_sequence_number igs_ca_inst_all.sequence_number%TYPE;
578: lv_alternate_code igs_ca_inst_all.alternate_code%TYPE;
579: lv_ld_cal_type igs_ca_inst_all.cal_type%TYPE;
580: ln_ld_sequence_number igs_ca_inst_all.sequence_number%TYPE;
581: ln_person_id igf_ap_fa_base_rec_all.person_id%TYPE;
582: ln_base_id igf_ap_fa_base_rec_all.base_id%TYPE;
575:
576: lv_ci_cal_type igs_ca_inst_all.cal_type%TYPE;
577: ln_ci_sequence_number igs_ca_inst_all.sequence_number%TYPE;
578: lv_alternate_code igs_ca_inst_all.alternate_code%TYPE;
579: lv_ld_cal_type igs_ca_inst_all.cal_type%TYPE;
580: ln_ld_sequence_number igs_ca_inst_all.sequence_number%TYPE;
581: ln_person_id igf_ap_fa_base_rec_all.person_id%TYPE;
582: ln_base_id igf_ap_fa_base_rec_all.base_id%TYPE;
583: lv_person_number igf_aw_anticpt_ints.person_number%TYPE;
576: lv_ci_cal_type igs_ca_inst_all.cal_type%TYPE;
577: ln_ci_sequence_number igs_ca_inst_all.sequence_number%TYPE;
578: lv_alternate_code igs_ca_inst_all.alternate_code%TYPE;
579: lv_ld_cal_type igs_ca_inst_all.cal_type%TYPE;
580: ln_ld_sequence_number igs_ca_inst_all.sequence_number%TYPE;
581: ln_person_id igf_ap_fa_base_rec_all.person_id%TYPE;
582: ln_base_id igf_ap_fa_base_rec_all.base_id%TYPE;
583: lv_person_number igf_aw_anticpt_ints.person_number%TYPE;
584: param_exception EXCEPTION;