[Home] [Help]
1: PACKAGE BODY igf_se_gen_001 AS
2: /* $Header: IGFSE01B.pls 120.7 2006/02/01 02:56:25 ridas ship $ */
3:
4: PROCEDURE display_auth_params(p_awd_cal_type IN igs_ca_inst.cal_type%TYPE,
5: p_awd_seq_num IN igs_ca_inst.sequence_number%TYPE,
6: p_fund_id IN igf_aw_fund_mast_all.fund_id%TYPE,
7: p_base_id IN igf_ap_fa_base_rec_all.base_id%TYPE
8: ) IS
1: PACKAGE BODY igf_se_gen_001 AS
2: /* $Header: IGFSE01B.pls 120.7 2006/02/01 02:56:25 ridas ship $ */
3:
4: PROCEDURE display_auth_params(p_awd_cal_type IN igs_ca_inst.cal_type%TYPE,
5: p_awd_seq_num IN igs_ca_inst.sequence_number%TYPE,
6: p_fund_id IN igf_aw_fund_mast_all.fund_id%TYPE,
7: p_base_id IN igf_ap_fa_base_rec_all.base_id%TYPE
8: ) IS
9: ------------------------------------------------------------------------------------
20: --rasingh 6/Jan/2003 Performance Tuning Fixes: 2620242,2620259,2620264
21: -------------------------------------------------------------------------------------
22:
23: --Cursor to find the User Parameter Award Year (which is same as Alternate Code) to display in the Log
24: CURSOR c_alternate_code(cp_ci_cal_type igs_ca_inst.cal_type%TYPE,
25: cp_ci_sequence_number igs_ca_inst.sequence_number%TYPE) IS
26: SELECT alternate_code
27: FROM igs_ca_inst
28: WHERE cal_type = cp_ci_cal_type
21: -------------------------------------------------------------------------------------
22:
23: --Cursor to find the User Parameter Award Year (which is same as Alternate Code) to display in the Log
24: CURSOR c_alternate_code(cp_ci_cal_type igs_ca_inst.cal_type%TYPE,
25: cp_ci_sequence_number igs_ca_inst.sequence_number%TYPE) IS
26: SELECT alternate_code
27: FROM igs_ca_inst
28: WHERE cal_type = cp_ci_cal_type
29: AND sequence_number = cp_ci_sequence_number;
23: --Cursor to find the User Parameter Award Year (which is same as Alternate Code) to display in the Log
24: CURSOR c_alternate_code(cp_ci_cal_type igs_ca_inst.cal_type%TYPE,
25: cp_ci_sequence_number igs_ca_inst.sequence_number%TYPE) IS
26: SELECT alternate_code
27: FROM igs_ca_inst
28: WHERE cal_type = cp_ci_cal_type
29: AND sequence_number = cp_ci_sequence_number;
30:
31: CURSOR c_get_parameters IS
50: l_award_year igf_lookups_view.meaning%TYPE;
51: l_fund_code igf_lookups_view.meaning%TYPE;
52: l_person_number igf_lookups_view.meaning%TYPE;
53: l_para_pass igf_lookups_view.meaning%TYPE;
54: l_awd_alternate_code igs_ca_inst.alternate_code%TYPE := NULL;
55: l_fund_id igf_aw_fund_mast_all.fund_code%TYPE := NULL;
56: l_base_id igs_pe_person.person_number%TYPE := NULL;
57:
58: BEGIN
239: PROCEDURE send_work_auth(p_base_id IN igf_ap_fa_base_rec.base_id%TYPE,
240: p_person_id IN hz_parties.party_id%TYPE,
241: p_fund_id IN igf_aw_fund_mast.fund_id%TYPE,
242: p_award_id IN igf_aw_award.award_id%TYPE,
243: p_ld_cal_type IN igs_ca_inst.cal_type%TYPE,
244: p_ld_seq_no IN igs_ca_inst.sequence_number%TYPE,
245: p_call IN VARCHAR2,
246: p_auth_date IN DATE
247: ) IS
240: p_person_id IN hz_parties.party_id%TYPE,
241: p_fund_id IN igf_aw_fund_mast.fund_id%TYPE,
242: p_award_id IN igf_aw_award.award_id%TYPE,
243: p_ld_cal_type IN igs_ca_inst.cal_type%TYPE,
244: p_ld_seq_no IN igs_ca_inst.sequence_number%TYPE,
245: p_call IN VARCHAR2,
246: p_auth_date IN DATE
247: ) IS
248: ------------------------------------------------------------------------------------
337: SELECT igf_se_auth_s1.NEXTVAL
338: FROM dual;
339:
340: CURSOR c_auth_check(cv_award_id igf_aw_award.award_id%TYPE,
341: cv_ld_cal_type igs_ca_inst.cal_type%TYPE,
342: cv_ld_seq_no igs_ca_inst.sequence_number%TYPE
343: ) IS
344: SELECT auth_id
345: FROM igf_se_auth
338: FROM dual;
339:
340: CURSOR c_auth_check(cv_award_id igf_aw_award.award_id%TYPE,
341: cv_ld_cal_type igs_ca_inst.cal_type%TYPE,
342: cv_ld_seq_no igs_ca_inst.sequence_number%TYPE
343: ) IS
344: SELECT auth_id
345: FROM igf_se_auth
346: WHERE award_id = cv_award_id
371:
372: l_place VARCHAR2(30);
373: l_person_id hz_parties.party_id%TYPE;
374: l_fund_id igf_aw_fund_mast.fund_id%TYPE;
375: l_ld_cal_type igs_ca_inst.cal_type%TYPE;
376: l_ld_seq_no igs_ca_inst.sequence_number%TYPE;
377: l_auth_id igf_se_auth.auth_id%TYPE := 0;
378: l_sequence_no igf_se_auth.sequence_no%TYPE := 0;
379: l_rowid VARCHAR2(30) := 0;
372: l_place VARCHAR2(30);
373: l_person_id hz_parties.party_id%TYPE;
374: l_fund_id igf_aw_fund_mast.fund_id%TYPE;
375: l_ld_cal_type igs_ca_inst.cal_type%TYPE;
376: l_ld_seq_no igs_ca_inst.sequence_number%TYPE;
377: l_auth_id igf_se_auth.auth_id%TYPE := 0;
378: l_sequence_no igf_se_auth.sequence_no%TYPE := 0;
379: l_rowid VARCHAR2(30) := 0;
380: l_visa_type igf_se_auth.visa_type%TYPE;
813: -- This message will be shown if there are no records to process
814: --
815: -------------------------------------------------------------------------------------
816:
817: CURSOR c_auth(cp_awd_cal_type igs_ca_inst.cal_type%TYPE,
818: cp_awd_seq_no igs_ca_inst.sequence_number%TYPE,
819: cp_fund_id igf_aw_fund_mast_all.fund_id%TYPE,
820: cp_base_id igf_ap_fa_base_rec_all.base_id%TYPE
821: ) IS
814: --
815: -------------------------------------------------------------------------------------
816:
817: CURSOR c_auth(cp_awd_cal_type igs_ca_inst.cal_type%TYPE,
818: cp_awd_seq_no igs_ca_inst.sequence_number%TYPE,
819: cp_fund_id igf_aw_fund_mast_all.fund_id%TYPE,
820: cp_base_id igf_ap_fa_base_rec_all.base_id%TYPE
821: ) IS
822: SELECT awd.award_id,
863: AND awd.award_id = cp_award_id
864: AND auth.flag = 'A';
865: l_amounts c_amounts%ROWTYPE;
866:
867: l_ld_cal_type igs_ca_inst.cal_type%TYPE;
868: l_ld_seq_no igs_ca_inst.sequence_number%TYPE;
869: l_awd_cal_type igs_ca_inst.cal_type%TYPE;
870: l_awd_seq_no igs_ca_inst.sequence_number%TYPE;
871:
864: AND auth.flag = 'A';
865: l_amounts c_amounts%ROWTYPE;
866:
867: l_ld_cal_type igs_ca_inst.cal_type%TYPE;
868: l_ld_seq_no igs_ca_inst.sequence_number%TYPE;
869: l_awd_cal_type igs_ca_inst.cal_type%TYPE;
870: l_awd_seq_no igs_ca_inst.sequence_number%TYPE;
871:
872: auth_rec c_auth%ROWTYPE;
865: l_amounts c_amounts%ROWTYPE;
866:
867: l_ld_cal_type igs_ca_inst.cal_type%TYPE;
868: l_ld_seq_no igs_ca_inst.sequence_number%TYPE;
869: l_awd_cal_type igs_ca_inst.cal_type%TYPE;
870: l_awd_seq_no igs_ca_inst.sequence_number%TYPE;
871:
872: auth_rec c_auth%ROWTYPE;
873: l_record VARCHAR2(50);
866:
867: l_ld_cal_type igs_ca_inst.cal_type%TYPE;
868: l_ld_seq_no igs_ca_inst.sequence_number%TYPE;
869: l_awd_cal_type igs_ca_inst.cal_type%TYPE;
870: l_awd_seq_no igs_ca_inst.sequence_number%TYPE;
871:
872: auth_rec c_auth%ROWTYPE;
873: l_record VARCHAR2(50);
874:
1020: l_error_cd igf_se_payment_int.error_code%TYPE DEFAULT NULL;
1021: l_transaction_id igf_se_payment_int.transaction_id%TYPE;
1022: l_batch_id igf_se_payment_int.batch_id%TYPE;
1023: l_auth_id igf_se_payment_int.auth_id%TYPE;
1024: l_ld_cal_type igs_ca_inst.cal_type%TYPE;
1025: l_ld_sequence_number igs_ca_inst.sequence_number%TYPE;
1026: l_error_meaming igf_lookups_view.meaning%TYPE;
1027: l_level VARCHAR2(1);
1028: l_auth_count NUMBER(2) DEFAULT 0;
1021: l_transaction_id igf_se_payment_int.transaction_id%TYPE;
1022: l_batch_id igf_se_payment_int.batch_id%TYPE;
1023: l_auth_id igf_se_payment_int.auth_id%TYPE;
1024: l_ld_cal_type igs_ca_inst.cal_type%TYPE;
1025: l_ld_sequence_number igs_ca_inst.sequence_number%TYPE;
1026: l_error_meaming igf_lookups_view.meaning%TYPE;
1027: l_level VARCHAR2(1);
1028: l_auth_count NUMBER(2) DEFAULT 0;
1029: l_rowid VARCHAR2(30);
1552:
1553:
1554: PROCEDURE se_notify(p_person_id IN hz_parties.party_id%TYPE,
1555: p_fund_id IN igf_aw_fund_mast.fund_id%TYPE,
1556: p_ld_cal_type IN igs_ca_inst.cal_type%TYPE,
1557: p_ld_seq_no IN igs_ca_inst.sequence_number%TYPE,
1558: p_award_id IN igf_aw_award_all.award_id%TYPE
1559: ) IS
1560: ------------------------------------------------------------------------------------
1553:
1554: PROCEDURE se_notify(p_person_id IN hz_parties.party_id%TYPE,
1555: p_fund_id IN igf_aw_fund_mast.fund_id%TYPE,
1556: p_ld_cal_type IN igs_ca_inst.cal_type%TYPE,
1557: p_ld_seq_no IN igs_ca_inst.sequence_number%TYPE,
1558: p_award_id IN igf_aw_award_all.award_id%TYPE
1559: ) IS
1560: ------------------------------------------------------------------------------------
1561: --Created by : ssawhney ( Oracle IDC)