PACKAGE BODY: APPS.IGF_SL_EDIT

Source

1 PACKAGE BODY igf_sl_edit AS
2 /* $Header: IGFSL10B.pls 120.0 2005/06/01 13:58:43 appldev noship $ */
3 
4 PROCEDURE insert_edit(p_loan_number   igf_sl_edit_report.loan_number%TYPE,
5                       p_orig_chg_code igf_sl_edit_report.orig_chg_code%TYPE,
6                       p_err_type      igf_sl_edit_report.sl_error_type%TYPE,
7                       p_err_code      igf_sl_edit_report.sl_error_code%TYPE,
8                       p_field_name    igf_sl_edit_report.field_name%TYPE,
9                       p_field_value   igf_sl_edit_report.field_value%TYPE)
10 IS
11   /*************************************************************
12   Created By : venagara
13   Date Created On : 2000/11/07
14   Purpose :
15   Know limitations, enhancements or remarks
16   Change History
17   Who             When            What
18 
19   (reverse chronological order - newest change first)
20   ***************************************************************/
21 
22   lv_rowid     VARCHAR2(25);
23   lv_edtr_id   NUMBER;
24 BEGIN
25 
26   IF p_err_code NOT IN ('0','00','000','0000','00000') THEN
27     igf_sl_edit_report_pkg.insert_row (
28       x_mode                              => 'R',
29       x_rowid                             => lv_rowid,
30       x_edtr_id                           => lv_edtr_id,
31       x_loan_number                       => p_loan_number,
32       x_orig_chg_code                     => p_orig_chg_code,
33       x_sl_error_type                     => p_err_type,
34       x_sl_error_code                     => p_err_code,
35       x_field_name                        => p_field_name,
36       x_field_value                       => p_field_value
37     );
38   END IF;
39 EXCEPTION
40 WHEN others THEN
41    fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
42    fnd_message.set_token('NAME','igf_sl_edit.insert_edit');
43    igs_ge_msg_stack.add;
44    app_exception.raise_exception;
45 END insert_edit;
46 
47 
48 PROCEDURE delete_edit(p_loan_number   igf_sl_edit_report.loan_number%TYPE,
49                       p_orig_chg_code igf_sl_edit_report.orig_chg_code%TYPE)
50 IS
51   /*************************************************************
52   Created By : venagara
53   Date Created On : 2000/11/07
54   Purpose :
55   Know limitations, enhancements or remarks
56   Change History
57   Who             When            What
58 
59   (reverse chronological order - newest change first)
60   ***************************************************************/
61 
62    lv_row_id  VARCHAR2(25);
63    CURSOR c_tbh_cur IS
64    SELECT rowid row_id FROM igf_sl_edit_report
65    WHERE loan_number   = p_loan_number
66    AND   orig_chg_code = p_orig_chg_code;
67 BEGIN
68 
69    FOR tbh_rec in c_tbh_cur LOOP
70        igf_sl_edit_report_pkg.delete_row (tbh_rec.row_id);
71    END LOOP;
72 
73 END delete_edit;
74 
75 
76 END igf_sl_edit;