133: p_codepath in out nocopy varchar2
134: )
135: is
136:
137: cursor c_gl_sets_of_books(cp_set_of_books_id number) is
138: select currency_code
139: from gl_sets_of_books
140: where set_of_books_id = cp_set_of_books_id;
141:
135: is
136:
137: cursor c_gl_sets_of_books(cp_set_of_books_id number) is
138: select currency_code
139: from gl_sets_of_books
140: where set_of_books_id = cp_set_of_books_id;
141:
142: r_gl_sets_of_books c_gl_sets_of_books%rowtype;
143:
138: select currency_code
139: from gl_sets_of_books
140: where set_of_books_id = cp_set_of_books_id;
141:
142: r_gl_sets_of_books c_gl_sets_of_books%rowtype;
143:
144: lv_default_tds_section_code jai_ap_tds_inv_taxes.default_section_code%type;
145: ln_default_tds_tax_id jai_ap_tds_inv_taxes.default_tax_id%type;
146: lv_default_from jai_ap_tds_inv_taxes.default_from%type;
169: p_codepath := jai_general_pkg.plot_codepath(2, p_codepath); /* 2 */
170: goto exit_from_procedure;
171: end if;
172:
173: open c_gl_sets_of_books(p_set_of_books_id);
174: fetch c_gl_sets_of_books into r_gl_sets_of_books;
175: close c_gl_sets_of_books;
176:
177: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
170: goto exit_from_procedure;
171: end if;
172:
173: open c_gl_sets_of_books(p_set_of_books_id);
174: fetch c_gl_sets_of_books into r_gl_sets_of_books;
175: close c_gl_sets_of_books;
176:
177: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
178: if r_gl_sets_of_books.currency_code <> p_invoice_currency_code then
171: end if;
172:
173: open c_gl_sets_of_books(p_set_of_books_id);
174: fetch c_gl_sets_of_books into r_gl_sets_of_books;
175: close c_gl_sets_of_books;
176:
177: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
178: if r_gl_sets_of_books.currency_code <> p_invoice_currency_code then
179: /* Foreign currency invoice */
174: fetch c_gl_sets_of_books into r_gl_sets_of_books;
175: close c_gl_sets_of_books;
176:
177: p_codepath := jai_general_pkg.plot_codepath(3, p_codepath); /* 3 */
178: if r_gl_sets_of_books.currency_code <> p_invoice_currency_code then
179: /* Foreign currency invoice */
180: p_codepath := jai_general_pkg.plot_codepath(3.1, p_codepath); /* 3.1 */
181: ln_exchange_rate := p_exchange_rate;
182: end if;